Oluşan tabloyu listeleme

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Data sayfasındaki verileri, Liste sayfasındaki hale getirmek istiyorum. Yardımcı olursanız makbule geçer.
Saygılarımla

 

[hamitcan]

Kod içindeki g ve h sütunlarını değiştirmeyi unutmayın.

Sub Liste()
    Set S1 = Sheets("Data")
    Set S2 = Sheets("Liste")
    S2.[g:h].ClearContents
    k = 6
    For i = 5 To S1.[g65536].End(3).Row
        For j = 9 To 17
            If S1.Cells(i, j) > 0 Then
                k = k + 1
                S2.Cells(k, "g") = S1.Cells(4, j)
                S2.Cells(k, "h") = S1.Cells(i, j)
            End If
        Next
        k = k + 3
    Next
    MsgBox "Bitti"
End Su

 

[Tevfik_Kursun]

Sayın Hamitcan Hocam,
6. satıra s2.Cells(k, 5) = s1.Cells(i, 7)
ifadeyi yazınca istediğim oldu. İlginize teşekkür ederim.
Saygılarımla