sayfanın ilk boş stununa diğer sayfalardan veri aktarımı

[mlhtrn]

sayfa 1 benim çalışma sayfam olarak düşünülürse sayfa 2 ve sayfa 3 deki verileri sayfa 1 deki bilgilerin altına otomatik olarak alacak bir kod yazmaya çalışıyorum ama benim istedigim alanları Selectin. ile seçip kopyala yapıştır olayı değil. sayfa 2 ve sayfa 3 deki veriler artabilir veya azalabilir bu durumlarda otomatik olarak verileri yapıştırmasını istiyorum fikirlerinize ihtiyacım var...

 

[hamitcan]

Sayfa1'e gelen verilerin hangi sayfadan geldiği nasıl anlaşılacak ?

 

[mlhtrn]

verilerin nereden geldiği önemli değil arkadaşlar önemli olan güncellenen sayfalar olan sayfa 2 ve sayfa 3 den verilerin makro kodları sayesinde direk aktarımı ilgin için teşekürler

 

[mlhtrn]

Sub Makro4()

Sheets("Sayfa1").Range("A5:Z5").Copy
Sheets("Sayfa3").Select
son = [A65536].End(3).Row
If son = 1 And [a1] = "" Then son = 0
Range("A" & son + 1).Select
ActiveSheet.Paste

Sheets("Sayfa2").Range("A5:Z5").Copy
Sheets("Sayfa3").Select
son = [A65536].End(3).Row
If son = 1 And [a1] = "" Then son = 0
Range("A" & son + 1).Select
ActiveSheet.Paste
End Sub




forumda şu tarzda bir kod buldum burada sayfa 1 ve sayfa 2 deki istenen alanlar sayfa 3 e kopyalanıyor anladığım kadarıyla fakat burada seçili alanı kopyalama yapmak işime yaramayacak çünkü her gün güncellenen veriler dolayısıyla seçili alanın dışına çıkılacak bazı veriler kopyalanmamış olacak . her seferinde gerekli alanı seçmek yerine kodlarla otomatik seçip kopyalamasını istiyorum.

 

[hamitcan]

Böyle deneyin.

Sub Kopyala()
Sayfa2.UsedRange.Font.Color = vbRed
Sayfa3.UsedRange.Font.Color = vbBlue
Sayfa2.UsedRange.Copy Sayfa1.Cells([a65536].End(3).Row + 1, 1)
Sayfa3.UsedRange.Copy Sayfa1.Cells([a65536].End(3).Row + 1, 1)
End Sub

 

[mlhtrn]

teşekürler hamit bey ilginiz ve zaman ayırdığınız için...