Skip to main content

AccessTr.neT


Etiketler
Yazar: makarax - Cevaplar: 3 - İzleme: 3366
Worksheet i klasördeki tüm excel dosyalarına kopyalama
Merhaba Üstatlar. Excel dosyamda bulunan bulunan bir worksheet i belirtiğim klasör içindeki (yaklaşık 100 adet)tüm excellerin içine yapıştırmak istiyorum. Böyle bir macro yapabilir mi? yardımcı olursanız sevinirim.
Yazar: HORZUM - Cevaplar: 10 - İzleme: 528
Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması
İYİ GÜNLER ÜSTADLARIM. AŞAĞIDAKİ KODU ÇALIŞTIRAMADIM...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
    Dim trh As Date
    Dim CsutunTarih As Date 
 
  With ThisWorkbook.Sheets("T1")
If (Target.Column = 3 Or Target.Column = 5) And Target.Row >= 1 Then
        If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
            SonStn = .Cells(1, .Columns.Count).End(xlToLeft).Column
                    Set bul = .Range("B1:" & .Ce