danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Beste,
Graag zou ik een lege rij willen invoegen nadat ik in kolom I de eerste waarde "RE" heb gevonden
Indien waarde gevonden dan rij bovenaan invoegen
Ben begonnen met het schrijven van een code maar geraak er niet aan uit
Graag zou ik een lege rij willen invoegen nadat ik in kolom I de eerste waarde "RE" heb gevonden
Indien waarde gevonden dan rij bovenaan invoegen
Ben begonnen met het schrijven van een code maar geraak er niet aan uit
Code:
Sub zoeken()
Dim RijNr As String
Dim rngFind As Range, rngLookUp As Range
xu = Range("Stiluur")
strFind = "RE"
Set rngLookUp = Range("I" & xu + 9).End(xlDown)
Set rngFind = rngLookdown.Find(strFind, LookIn:=xlValues).Rows
xl = rngFind
Rows(xl:xl).Select
Selection.Insert Shift:=xlUp
Selection.ClearFormats
End Sub