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

Katılım
19 Kasım 2010
Mesajlar
14
Excel Vers. ve Dili
tr
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.

Ekran Alıntısı.PNGEkran Alıntısı1.PNG
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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
 
Katılım
19 Kasım 2010
Mesajlar
14
Excel Vers. ve Dili
tr
Çok Teşekkür ederim. Elleriniz dert görmesin
 
Üst