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.
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.