yan sayfadan veriyi satır olarak alma

[lanterna]

iyi günler,

işim gereği tablolar ile uğraşıyorum. bir konuda yardımınıza ihtiyacım oldu.
ilk tabloda sütünlarda bir rakam olduğunda 2. sayfada her rakamlı hücre için satır açmam gerekiyor.

bunun bir makro yazılımı ya da kodu var mı acaba?

 

[aliveli06]

Aşağıdaki kodları denermisiniz.

Sub firmaürün()
Dim s1 As Worksheet, s2 As Worksheet, son As Integer
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
Application.ScreenUpdating = False
s2.Range("b:c").ClearContents
s2.Cells(3, 2) = "firma": s2.Cells(3, 3) = "ürün"
son = s2.Range("b65536").End(3).Row + 1
    For i = 4 To Range("b65536").End(3).Row
        For j = 3 To 5
            If Cells(i, j) <> "" Then
                s2.Range("b" & son) = s1.Cells(i, 2)
                s2.Range("c" & son) = s1.Cells(3, j)
                son = son + 1
            End If
        Next j
    Next i
Application.ScreenUpdating = True
End Sub