rijen knippen en plakken in macro

[Etienne1978]

Hallo,

In bijgevoegd bestand (Bekijk bijlage vbdoc1.xls wil ik graag middels een macro dat indien in kolom d 2012 voorkomt deze regel (c : g) geknipt en geplakt wordt in d1 en dan de volgende in d2 etc. zodrain kolom D een naam of : voorkomt moet hij naar de volgende regel.

Is hier een formule voor?


Groet,
Etienne

 

[RvanGalenLast]

Etienne,

Ik denk dat het helpt als je in je bestand een voorbeeld opneemt waarin je laat zie wat de gewenste uitkomst is. Dat maakt het eenvoudiger om je te helpen.

 

[Warme bakkertje]

'-----------------------------------------------------------------
Public Function ValidValue(TestString As String) As Boolean
'-----------------------------------------------------------------
With CreateObject("VBScript.RegExp")
    .Pattern = "[2012]"
    ValidValue = .Test(TestString)
End With
End Function

Sub tst()
With Sheets("Blad1")
    For Each cl In .Range("D1:D" & .Cells(Rows.Count, 4).End(xlUp).Row)
        If ValidValue(cl.Value) Then Sheets("Blad2").Range("D" & Rows.Count).End(xlUp).Offset(1).Resize(, 5) = cl.Offset(, -1).Resize(, 5).Value
    Next
End With
End Sub