Automatisch nieuwe regel toevoegen

[poelie01]

Hallo,

Ben opzoek naar een manier om telkens wanneer er een getal in kolom D staat, de inhoud van de gehele regel te kopieeren naar de regel eronder.
Vervolgens moet de inhoud van de nieuwe regel van kolom D in kolom C komen te staan, en daarna kan de inhoud van kolom D voor deze twee regels verwijderd worden.

In de bijlage een voobeeld van de oude en de gewenste situatie toegevoegd.

Alvast bedankt.Bekijk bijlage voorbeeld bestand.xlsx

 

[HSV]

Test het maar eens.

Sub hsv()
Dim cl As Range
With Sheets("Oude situatie")
For Each cl In .Columns(4).SpecialCells(2)
    With cl
       .Offset(1).EntireRow.Insert
       .Offset(1, -3).Resize(, 3).Value = cl.Offset(, -3).Resize(, 3).Value
       .Offset(1, -1) = cl.Value
       .ClearContents
       End With
     Next cl
    End With
End Sub

 

[poelie01]

Hallo Harry,

Bedankt voor je reactie dit is inderdaad wat ik zocht.

Wilde dit op een ander bestand toepassen maar dat lukt me helaas niet.

Zou het mogelijk zijn dat deze code op bijgaand bestand wordt toegepast?

Bekijk bijlage Test bestand.xls

Alvast bedankt

 

[HSV]

Bij deze.

Sub hsv()
Dim cl As Range
With Sheets("100x120 Katwijk")
For Each cl In .Columns(8).SpecialCells(2)
    With cl
    If IsNumeric(cl) Then
       .Offset(1).EntireRow.Insert
       .Offset(1, -7).Resize(, 7).Value = cl.Offset(, -7).Resize(, 7).Value
       .Offset(1, -1) = cl.Value
       .ClearContents
    End If
       End With
     Next cl
    End With
End Sub