Kopiëren+invoegen rij ALS celwaarde IS waarde

[Rydr]

Forumleden,

Ik zit met een probleempje gerelateerd aan het automatisch defineren, kopieren en invoegen van rijen a.d.h.v. een bepaalde celwaarde.

Mijn situatie;

Ik wil wanneer C4= "Bindumper A" de gehele rij kopieren en vervolgens invoegen onder rij 4 (max. één kopie per rij).
Cel C6 geeft geen "Bindumper A" waarde. Deze blijft dan staan en de macro werkt vervolgens zijn lijst naar beneden af.

Een tweede extra die ik maar niet in mijn macro verwerkt krijg is dat na het plakken van de nieuwe rij de waarde van het lijntype (Bindumper A) verwijderd moet worden.

Zie de bijlage voor een voorbeeld bestand.

Alvast super bedankt!!

Roy
Bekijk bijlage Excel Voorbeeld INSERT NEW ROW IF CELL CONTAINS VALUE x.xlsm

 

[HSV]

Test deze code eens Roy.

Sub hsv()
Dim i As Long
With Sheets("Begin situatie")
 For i = .Cells(3, 1).CurrentRegion.Rows.Count To 4 Step -1
   If .Cells(i, 3) = "Bindumper A" Then
     .Cells(i, 1).Offset(1).EntireRow.Insert
     .Cells(i, 1).Resize(, 18).Offset(1) = .Cells(i, 1).Resize(, 18).Value
     .Cells(i, 3).Offset(1).Clear
   End If
 Next i
End With
End Sub

 

[Rydr]

Test deze code eens Roy.

Sub hsv()
Dim i As Long
With Sheets("Begin situatie")
 For i = .Cells(3, 1).CurrentRegion.Rows.Count To 4 Step -1
   If .Cells(i, 3) = "Bindumper A" Then
     .Cells(i, 1).Offset(1).EntireRow.Insert
     .Cells(i, 1).Resize(, 18).Offset(1) = .Cells(i, 1).Resize(, 18).Value
     .Cells(i, 3).Offset(1).Clear
   End If
 Next i
End With
End Sub

Die werkt zeker Harry,

Super bedankt, als startende VB gebruiker leer ik steeds meer elke dag

Roy