Tablolarla çalışma

[aguldemir]

Arkadaşlar.
Daha önce sayfalardaki verileri birleştirme ile ilgili bir sıkıntım vardı ihsan hocam bu sorunumu çözmüştü. http://www.excel.web.tr/f14/sayfalardaki-verileri-tarihe-gore-tek-sayfada-toplama-t104151.html Hatta ben bir çok dosya hazırladım. Kendisine ne kadar teşekkür etsem azdır.
Şuanda yeni hazırladığım dosyada tablolarla çalışmak istiyorum. Çok uğraştım sitede hatta webde arattırdım ama yapmak istediğim şeyle ilgi örnek bulamadım. Belkide ben yanlış araştırdım. Örnek dosyada özet sayfası ve 380 adında sayfa var. Özet sayfamda birleştirmenin yapılacağı şablon. 380 isimli sayfada tablolar var. Tablo380 ve tablo180 adında.
İhsan hocamın verdiği kod aşağıdaki gibidir.
Option Explicit
Sub aktar()
Dim ts, kaplan, trabzonspor, bordo
trabzonspor = MsgBox(Sheets(1).Range("P3") & " Tarihli Verileri" & _
" Aktarıyorum", vbYesNo, "Onay")
Application.ScreenUpdating = False
Sheets(1).Range("A3:N1048576").ClearContents
bordo = 3
For kaplan = 2 To Sheets.Count
For ts = 3 To Sheets(kaplan).Cells(1048576, "A").End(xlUp).Row
If Sheets(kaplan).Cells(ts, "A") = Sheets(1).Range("P3") Then
Sheets(1).Cells(bordo, "A") = Sheets(kaplan).Cells(ts, "B")
Sheets(1).Cells(bordo, "B") = Sheets(kaplan).Cells(ts, "C")
Sheets(1).Cells(bordo, "C") = Sheets(kaplan).Cells(ts, "D")
Sheets(1).Cells(bordo, "D") = Sheets(kaplan).Cells(ts, "E")
Sheets(1).Cells(bordo, "E") = Sheets(kaplan).Cells(ts, "F")
Sheets(1).Cells(bordo, "F") = Sheets(kaplan).Cells(ts, "G")
Sheets(1).Cells(bordo, "G") = Sheets(kaplan).Cells(ts, "H")
Sheets(1).Cells(bordo, "H") = Sheets(kaplan).Cells(ts, "I")
Sheets(1).Cells(bordo, "I") = Sheets(kaplan).Cells(ts, "J")
Sheets(1).Cells(bordo, "J") = Sheets(kaplan).Cells(ts, "K")
Sheets(1).Cells(bordo, "K") = Sheets(kaplan).Cells(ts, "L")
Sheets(1).Cells(bordo, "L") = Sheets(kaplan).Cells(ts, "M")
Sheets(1).Cells(bordo, "M") = Sheets(kaplan).Cells(ts, "N")
Sheets(1).Cells(bordo, "N") = Sheets(kaplan).Cells(ts, "O")
bordo = bordo + 1
End If
Next
Next
Application.ScreenUpdating = True
MsgBox Sheets(1).Range("P3") & " Tarihli Verileri Aktardım", vbInformation, "Bitiş"
End Sub

Benim bu kodu tablolara uyarlamam mümkün mü? Yani verileri sayfalardan değilde 380 isimli sayfanın içinde bulunan tablo380 ve tablo 180 den aktaracak.

 

[İhsan Tank]

Merhaba
Hangi tablodan veri alacağınızı biz nasıl belirleyeceğiz

 

[aguldemir]

Özür dilerim eksik bilgi verdim

Hocam yine size yük oluyorum galiba hakkınızı helal edin.
Alttaki örnekte açıklama yaptım. 05.09.2011 tarihinde verileri aktar dediğim zaman makineler isimli sayfadaki Tablo180 ve Tablo 380 den verileri sırayla alacak. Verilerin yerleri özet tablosundaki ile aynı sırada.
Özet sayfasındaki A sütununa tabloların 3. sütunu gelecek. B-4, C-5 gibi yan yana gidecek. Umarın anlatabilmişimdir.