Rijen invoegen boven variabele rij?

[Demeter]

Hallo,

Ik probeer twee rijen te kopieeren en deze wwer in te voegen boven een cel, welke op een variabele rij staat (ligt aan het hiervoor ingevoegde rijen).

In mijn code selecteer en kopieer ik eerst de regels 38 en 39.
Deze wil ik inserten 1 cel boven de cel met de tekst 'medewerker2'.

Option Explicit
Dim d          As Long
Dim q          As Range

Sub toevoegen_regel()
    
    Rows("38:39").Select
    Selection.Copy
    
    With Worksheets(1).Range("a1:a500")    
        Set d = .Find("Medewerker2", LookIn:=xlValues)
        d.Select                                              
        q = (d.Row() - 1)   
        q.Select
        ActiveSheet.Paste 
        Application.CutCopyMode = False  

    End With
    Set e = Nothing    
    Set g = Nothing

End Sub

Volgens mij zou dit moeten werken, maar.............. krijg de fout melding na: Set d
Compileer fout: Object vereist

Kan iemand mij vertellen wat er fout gaat?


Thanks,
Ferenc

 

[Wigi]

d is een range, geen Long

Om kort te gaan, gebruik:

'Option Explicit
Dim d          As Range

Sub toevoegen_regel()
    Rows("38:39").Copy
    Set d = Worksheets(1).Range("a1:a500").Find("Medewerker2", LookIn:=xlValues)
    Rows(d.Row).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Wigi

 

[Demeter]

Oké

Dank je wel Wigi,

Loop nog steeds te *****n met dat taaltje maar gaande weg leer ik het wel.

Thanks:thumb: .


Groet,
Ferenc