Soru Malzeme Listesinideki Ekipmanları Sadece Bir Mahal Halinde Yazdırmak

[yalcin33]

Arkadaşlar Merhaba;

Öncelikler herkesin 23 Nisan Bayramı Kutlu olsun.

Aşağıda Örnek Tablo resmi bulunmaktadır. Bu tabloyu "yapmak istediğim tablo" resmindeki gibi makro ile nasıl yapabilirim. Formüllerle denedim bir yere varamadım.

Ayrıca excelide paylaşıyorum.

 

[veyselemre]

Sub Test()
    Set s1 = Sheets("B1")
    Set s3 = Sheets("Sayfa3")
    son = s1.Cells(Rows.Count, 2).End(3).Row
    sat = 2
    s3.Range("B:C").Clear
    For i = 4 To son
        Set Rng = s1.Range("D" & i & ":BK" & i)
            sat = sat + 2
            s3.Cells(sat, 2).Value = s1.Cells(i, 2).Value
            s3.Cells(sat, 3).Value = s1.Cells(i, 3).Value
            s3.Cells(sat, 2).Resize(, 2).Interior.Color = vbGreen
            For Each huc In Rng.Cells
                If huc.Value > 0 Then
                    sat = sat + 1
                    s3.Cells(sat, 2).Value = s1.Cells(2, huc.Column).Value
                    s3.Cells(sat, 3).Value = huc.Value
                End If
            Next huc
    Next i
s3.Columns.AutoFit
End Sub

 

[yalcin33]

Çok Teşekkür ederim. Elleriniz dert görmesin