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.

bu sadece klasörden seçilene kopyalama
Private Sub CommandButton1_Click()
Dim CurWkbk As Workbook
Dim newWkbk As Workbook
Dim ws As Worksheet
Set CurWkbk = ActiveWorkbook
FNameAndPath = Application.GetOpenFilename _
(FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Copyalıyoruz")
If FNameAndPath = False Then Exit Sub
Set newWkbk = Workbooks.Open(Filename:=FNameAndPath)
CurWkbk.Sheets(1).Copy after:=newWkbk.Sheets(1)
End Sub


burdaki (1) ilk 1 içinde olduğun actif sayfanın birinci sayfası diğeride diğerinin birinci sayfası

Teşekkürler hocam. Bu makro ile hepsini teker teker seçerek yapılabiliyor. Buda biraz hızlandırır. eline sağlık

Konu taşınmıştır.