AccessTr.neT

Tam Versiyon: Worksheet i klasördeki tüm excel dosyalarına kopyalama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.