Farklı Dosyalardan aynı isimli sayfaları birleştirme

[RALKAN]

Arkadaşlar farklı dosyalarda bulunan data isimli sayfaları tek bir yerde birleştirmek mümkün olurmu bu konuda yardımcı olabilirmisiniz.

Not : Veri satır sayısı her dosyada farklı sayıda

 

[uzmanamele]

merhaba
mümkündür

 

[uzmanamele]

merhaba
sorularınızı örnek dosya ile sorarsanız daha çabuk ve net cevap alabilirsiniz.

aşağıdaki kodları deneyin. kodlar (&#231alıntıdır.

Sub SayfaBirleştir()
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
End With
End Sub

 

[RALKAN]

merhaba
sorularınızı örnek dosya ile sorarsanız daha çabuk ve net cevap alabilirsiniz.

aşağıdaki kodları deneyin. kodlar (ç)alıntıdır.

Sub SayfaBirleştir()
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
End With
End Sub

Sn uzmanamele ilginize çok teşekkür ederim , Örnek dosya ektedir.Esas yapmak istediğim işlem farklı isimlerde ki dosyalarda bulunan data isimli örnekteki gibi sayfaların tek bir yerde birleştirmek,herbir sayfadaki satır sayısı eşit değil.Dosya yolu aşağıda ki gibidir.
D:\Idari\DATA_SATIS_GIDER_BANKA_KASA\OCAK08\SATIŞLAR_OCAK2008.xls Dosyasında ki data sayfası gibi (bunun gibi şu an için Ocak-Haziran aylarını içeren dosyalar mevcut) tüm bu klasörlerdeki Satışlar_...... .xls dosyalarında ki data sayfalarını birleştirmek işin özü.

 

[RALKAN]

Örnek dosya ektedir.Esas yapmak istediğim işlem farklı isimlerde ki dosyalarda bulunan data isimli örnekteki gibi sayfaların tek bir yerde birleştirmek,herbir sayfadaki satır sayısı eşit değil.Dosya yolu aşağıda ki gibidir.
D:\Idari\DATA_SATIS_GIDER_BANKA_KASA\OCAK08\SATIŞLAR_OCAK2008.xls Dosyasında ki data sayfası gibi (bunun gibi şu an için Ocak-Haziran aylarını içeren dosyalar mevcut) tüm bu klasörlerdeki Satışlar_...... .xls dosyalarında ki data sayfalarını birleştirmek işin özü.[/QUOTE]

Bu konuda yardımcı olabilirmisiniz.