cellen 1 rij lager kopier als aan voorwaarde is voldaan

[edjep]

Hallo,

Ben opzoek naar een macro/formule welke een range cellen 1 rij lager kopieert.
Zie bijgaand excel voor beeld.

Als in kolom A "dubbel" staat moet de inhoud van cel c en d naar de volgende rij in c en worden gekopieerd.
Is zoiets mogelijk?

Edjep

 

[Niels28]

Sub test()
For Each cl In Sheets(1).Range("A:A").SpecialCells(2)
If cl.Value = "dubbel" Then cl.Offset(1, 2).Resize(1, 2).Value = cl.Offset(, 2).Resize(1, 2).Value
Next
End Sub

Niels