zoeken van vormen.

[glda19]

Is onderstaande de enige methode. Laten zoeken naar elke vorm op het werkblad.
Of zou ik dit kunnen wzijzigen naar enkel het bereik.
Ik duid eerst op mijn kalender de plaats aan waar ik de vormen wil leggen of verwijderen.
Dus heeft het toch geen zin om buiten het bereik te laten zoeken.

Dit is een voorbleeld de code niet mijn code.
Moet er altijd op het volledige blad gezocht worden?

For Each shp In ActiveSheet.Shapes
    If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), r) Is Nothing Then _
        shpcount = shpcount + 1
Next shp

 

[emields]

mooi voorbeeldje, spijtig dat het niet zichtbaar is.

 

[glda19]

hoe bedoel je niet zichtbaar

 

[popipipo]

geen voorbeeldje geplaatst

 

[glda19]

haar ik het haalde staat ook geen vb
Vb is volgens mij niet nodig

 

[popipipo]

We zullen zien of er reacties komen zonder VB

 

[glda19]

mijn vraag is enkel of je op de volledige pagina kunt zoeken ook als je het bereik kent

 

[AHulpje]

Natuurlijk kun je op de volledige pagina zoeken als je het bereik kent.
Waarschijnlijk bedoel je of je ook op een deel van het werkblad kunt zoeken naar shapes. En wat wil je vervolgens met die shapes doen?
En als je dan toch bezig bent, kun je deze dan op opgelost zetten: https://www.helpmij.nl/forum/threads/probleem-met-dropdown-maand-on-ribbon.971398/#post-6386787

 

[glda19]

ja bedoel het laatste er tekenen of ze verwijderen

 

[AHulpje]

Kijk hier eens naar:

 

[glda19]

ik vroeg me af of we dit konden vervangen.
En eigenlijk wil ik enkel dat er gezocht word binnen het bereik. Dus niet er buiten

For Each shp In ActiveSheet.Shapes

 

[AHulpje]

Waarom zou je "dit" willen vervangen? Je zult toch echt van iedere shape moeten bepalen of die binnen je gedefinieerde bereik ligt. Als je aan Bereik zou vragen welke shapes er binnen zijn bereik liggen zou Bereik ook om zich heen moeten kijken.
Mijn voorbeeld geeft netjes aan welke shapes binnen en buiten het bereik liggen, als je alleen iets wilt doen met de shapes binnen het bereik dan laat je de shapes buiten het bereik toch links liggen?

En bedankt voor het opgelost zetten van een van je vorige vragen.

 

[glda19]

ga mijn afwezighieds programma volledig her bekijken.