Başlıkların Detay Satırlara Aktarımı

[y.selim]

Merhaba,

Bir döngü ve if yapısıyla listedeki merkez adı yazan başlıkların ilgili hücrelere taşınması işleminde yardımınızı rica ederim ?

 

[veyselemre]

Sub test()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        If Trim(Cells(i, 1).Value) = "MERKEZ :" Then
            mrk = Cells(i, 2).Value
        Else
            If Cells(i, 2).Value = "MAHSUP" And mrk <> "" Then
                Cells(i, 2).Value = mrk
            End If
        End If
    Next i
End Sub

 

[y.selim]

Teşekkürler Veysel bey gayet güzel çalışıyor.