Çözüldü Hücredeki verileri düzenleme ve birleştirme

[kaos64]

Örnek dosyadaki verileri hazırlamanda yardımcı olur musunuz
teşekkür ederim şimdiden

 

[ÖmerBey]

Merhaba,
Makro kullanmak isterseniz deneyiniz.

Sub kod()
s = Cells(Rows.Count, "A").End(3).Row
ReDim dz(1 To s * 2, 1 To 3)
For a = 3 To s
    If Cells(a, "B") > 0 Then
        x = x + 1
        dz(x, 1) = Cells(a, "A")
        dz(x, 2) = 1
        dz(x, 3) = Cells(a, "D") + Cells(a, "B")
    End If
    If Cells(a, "C") > 0 Then
        x = x + 1
        dz(x, 1) = Cells(a, "A")
        dz(x, 2) = 0
        dz(x, 3) = Cells(a, "D") + Cells(a, "C")
    End If
Next
Range("I3").Resize(UBound(dz), UBound(dz, 2)).Value = dz
End Sub

 

[ÖmerBey]

İlaveten; lütfen konu başlığınızı sorunuzu özetleyecek şekilde düzenleyiniz.