Başka sheet'ten ilk sheet'e bilgi toplama

[erty]

Örnek dosyadaki gibi ilk sheet'e diğer sheetlerden bilgi aktarılacak bir VB koduna ihtiaycım var. Özellik olarak da ilk sheet sadece bu verileri toplamakta kullanılacak, diğer sheetlerde bulunan tablolar hep aynı yerde ama tablonun bi kısmı daha boş veya daha dolu ve bu tablonun içindeki bilgiler ilk sheet'e kopyalanacak. Ayrıca ilk sheet'e bu bilgiler hangi isimli sheet'ten kopyalanmışsa onun adının yazacağı bir kolon olacak. Sanırım örneğe bakarsanız ne demek istediğimi çok daha rahat anlayacaksınız. Bi türlü yapamadım kafayı yicem, yardımınız için şimdiden teşekkürler...

 

[Orion1]

Merhabalar.
Ekli dosyayı inceleyiniz.
Kodlarda aşağıda.

Private Sub Worksheet_Activate()
Dim sat As Long, i As Long, k As Long
Range("A1:C65536").Clear
sat = 1
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Sheet1" Then
        sonsat = Sheets(i).Cells(65536, "B").End(xlUp).Row
        If sonsat >= 4 Then
            sat2 = 4
            For k = 4 To sonsat
                Cells(sat, 1).Value = Sheets(i).Name
                Cells(sat, 2).Value = Sheets(i).Cells(sat2, "B").Value
                Cells(sat, 3).Value = Sheets(i).Cells(sat2, "D").Value
                sat = sat + 1: sat2 = sat2 + 1
            Next k
        End If
    End If
Next i
End Sub

 

[erty]

Çok teşekkür ederim, tam olarak istediğim şey buydu...

 

[isarican]

Vba macro kodu kullanmanıza bile gerek yok formül ile bu sorunuz çözülürdü bağ yapıştır formülü ile aklınızda olsun bağ yapıştır yardımını tıklayın ne oldugunu anlarsınız