Yanındaki değere göre alta satır eklesin ve değeri kopyalasın

[IRONSELF]

Kolay gelsin,

bir konuda yardımınızı bekliyorum.

Ekte ayrıntılı anlattığım şekilde hücrenin yanbıdaki değere göre altına satır ekelesin ve aynısını kopyalasın istiyorum.

yardımcı olur musunuz

iyi çalışmalar.

 

[ÖmerBey]

B1 Hücresindeki değer "FF" ise yanındaki değeri yani mehmetin altına 2 satır eklesin ve aynı değeri oraya kopyalasın aynı zamanda FF leri de kopyalasın

Merhaba,
Sayfanızın yedeğini aldıktan sonra aşağıdaki kodu kullanabilirsiniz.

Sub kod()
For a = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
    If Cells(a, 2) = "FF" Then
        Rows(a + 1).Insert
        Cells(a + 1, 1).Resize(, 2).Value = Cells(a, 1).Resize(, 2).Value
        Rows(a + 1).Insert
        Cells(a + 1, 1).Resize(, 2).Value = Cells(a, 1).Resize(, 2).Value
    End If
Next
End Sub