twee functies aan een knop

[Demeter]

Ik prbeer twee goed lopende functie nu onder een knop te brengen met een if functie.Dit lukt niet geheel.Hij loopt al vast bij het 'rode' gedeelte. Kan nu niet zo zien wat daar nu fout aan is. Iemand?

Sub knop_dual()

With ActiveSheet.Range("a1:a500")
    Set c = .Find("Medewerker1", LookIn:=xlValues)

[COLOR="Red"]If Rows(c).Offset(2, 0).EntireRow.Hidden = True Then[/COLOR]

    With ActiveSheet.Range("a1:a500")
        Set c = .Find("Medewerker1", LookIn:=xlValues)
        c.Select
        p = (c.Row() + 1)
        Set d = .Find("Medewerker2", LookIn:=xlValues)
        d.Select
        q = (d.Row() - 1)
        Rows(p & ":" & q).EntireRow.Hidden = False
        c.Offset(0, 1).Select
    End With
    Set c = Nothing
    Set d = Nothing

Else
    
    With ActiveSheet.Range("a1:a500")
        Set c = .Find("Medewerker1", LookIn:=xlValues)
        c.Select
        p = (c.Row() + 2)
        Set d = .Find("Medewerker2", LookIn:=xlValues)
        d.Select
        q = (d.Row() - 2)
        Rows(p & ":" & q).EntireRow.Hidden = True
        c.Offset(0, 1).Select
    End With
    Set c = Nothing
    Set d = Nothing

    
End If
End With

End Sub

Bijvoorbaat dank,
Ferenc


ps, gaat om het principe als ik deze code werkende heb ga ik proberen om hem efficienter te schrijven.

 

[Wigi]

Werkt

If c.Offset(2, 0).EntireRow.Hidden Then

?

Wigi

 

[Demeter]

Noop, dat werkt ook niet. heb al verschillende opties geprobeerd.

Heb het bestandje nu ook bijgevoegd.


Groet,
Ferenc

 

[Wigi]

If c.Offset(2, 0).EntireRow.Hidden Then

werkt wel, alleen denk ik dat je de code probeert uit te voeren terwijl VBE nog in een "verbeterstatus" is. (kan het niet beter omschrijven). Ik bedoel dat hij die regel nog in het geel aanduidt.

Sluit daarom VBE af, sla op, sluit het bestand, open opnieuw en voer de code uit (code staat bovenaan deze post)

Lukt het dan?

Wigi

 

[Demeter]

Helemaal gelijk.

Je hebt gelijk.
Zal wel per abuis de verkeerd vbe hebben gesloten tijdens het testen.

Werk zo af en toe met 2x excel geopent, 1 voor testfile en een voor het echte werk. Zodat ik altijd een simpele file verloren kan zien gaan of op helpmij kan posten .


Thanks for the input W.:thumb:

Groet,
Ferenc

 

[Wigi]

Ferenc

doe eens wat in je handtekening staat...

 

[Demeter]

oeps, sorry.