Bir dosyadaki sheetlerden tek tek aynı satırı alıp (Sheet adları düzensiz) ondan açıklama tablosunu nasıl oluştururum?
Aşağıdkai kod bütün sayfalardaki A1 hücresini ozet sayfasındaki A sutununa yazdırıyor. Yalnız 1 kere çalıştır yoksa peşpeşe altına ekliyor.
Sub OZET()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("ozet").Activate
For Each ws In Worksheets
If ws.Name <> "ozet" Then
ws.Range("a1").Copy
ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)
End If
Next ws
Application.ScreenUpdating = True
End Sub
halilibo
1