Skip to main content

AccessTr.neT


Worksheet i klasördeki tüm excel dosyalarına kopyalama

Worksheet i klasördeki tüm excel dosyalarına kopyalama

Çözüldü #1
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.
Son Düzenleme: 28/07/2009, 17:34, Düzenleyen: makarax.
Cevapla
Çözüldü #2
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ı
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #3
Teşekkürler hocam. Bu makro ile hepsini teker teker seçerek yapılabiliyor. Buda biraz hızlandırır. eline sağlık
Cevapla
Çözüldü #4
Konu taşınmıştır.
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task