300 tane sheet'i birleştiren macro

[celine_87]

Arkadaşlar merhaba,
Ben daha önce hiç macro yazmadım, ancak şu anda çalıştığım yerde benden ilk 2-3 satırları dolu olan 300 tane sheet'i ilk sheet'te bir macro ile birleştirmem isteniyor. Çok acil yapmam lazım. Bunu nasıl yapabilirim? Lütfen yardımcı olun
şimdiden teşekkürler

 

[halit3]

bu kadar sheets varmı bir dosyada aşağıdaki kodu denermisin

not=1. satırdan 3. satıra kadar olanları alır

Sub makro1()
Satır = 1
sayfaadı = ActiveSheet.Name
For i = 1 To Sheets.Count
If Sheets(i).Name <> sayfaadı Then
Sheets(i).Rows("1:3").Copy
Range("A" & Satır).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Satır = Satır + 3
End If
Next i
Range("A1").Select
End Sub

 

[celine_87]

Çok teşekkür ederim...
Çok yardımcı oldu gerçekten..
İyi çalışmalar...