• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rij invoegen na gezochte waarde in kolom

Status
Niet open voor verdere reacties.
danny147

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

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
 
Bij gebrek aan een voorbeeldbestand het volgende in elkaar "geflanst". Je moet het even passend maken voor je eigen situatie:
Code: 
Sub zoeken()
For i = 1 To 100
    If Cells(i, "A").Value = "RE" Then
        Rows(i).Insert
        Rows(i).ClearFormats
        Exit For
    End If
Next i
End Sub
 
Laatst bewerkt:
Waarom niet onderaan de tabel iets toevoegen en dan sorteren ?
 
Beste,

Ben eruit geraakt, misschien iets te vroeg gepost :D

Code: 
Sub zoeken()
Dim cl As String
    xu = Range("Stiluur")
    iRowEinde = Range("CHEinde") + 1
    strFind = "RE"
    cl = Range("I" & xu + 9 & ":" & "I" & iRowEinde).Find(strFind, LookAt:=xlWhole).row
    Rows(cl & ":" & cl).Insert
    Rows(cl & ":" & cl).ClearFormats
End Sub

Bedankt voor het meedenken :thumb:

PS: De bedoeling is om een lege rij te creëren tussen RM (Mekaniekers) en RE (Elektriekers) zodat het opgesplitst is.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan