Bereik code aanpassen

[Depant]

Hallo allemaal,

Ooit heb ik hier een code gekregen die werkt als een toverdrank. Je weet niet hoe het werkt, maar het werkt super. Kan iemand de code aanpassen zodat het opzoeken van de "1" tot en met kolom "av van plak215" loopt. Ik doe er een voorbeeldbestandje bij, want hoe meer ik typ hoe onduidelijker het wordt.
Programmacode in tabblad gew.
Ps. Als je in tabblad gew a1 1 veranderd in 5 zie wat de code doet.

Alvast bedankt!!
Bekijk bijlage ochtend.xlsm

 

[VenA]

Je weet niet hoe het werkt

ben ik het geheel mee eens.
Bij de eerste regel ben ik de weg al kwijt.

vanaf = Application.WorksheetFunction.Sum([a1])

 

[jkpieterse]

idd. Beter is:

vanaf=Range("A1").Value

 

[Depant]

Hallo bedankt voor jullie reacties,

De code doet wat ie moet doen. Met de verandering in a1 wordt de selectie aangepast aan de dagen dat de monsters in onderzoek zijn.
Als je in "gew a1" 1 vervolgens 2 en dan 3 in typt zie dat het voor mij een schoonheid van een code is.
Maar hij moet verder dan kolom ab kijken, Ik wil de selectie laten gelden tot bijvoorbeeld ba.

Ik hoop dat jullie er nog een naar willen kijken.
Ik vervang het bestand even voor een duidelijkere
In "gew a1" even 1 vervolgens twee en vervolgens 3 typen.

Ik hoop nog wat verder te komen

 

[Haije]

Depant,

doet deze het beter?

Zo ja, dan zeld regel 1 op tab "gew" aanpassen.

De aangebrachte wijzigingen in de code:

    [c2:[COLOR="#FF0000"]pa[/COLOR]30000].ClearContents

ipv

    [c2:[COLOR="#FF0000"]ap[/COLOR]30000].ClearContents

en

For i = 0 To [COLOR="#FF0000"]2[/COLOR]9

ipv

For i = 0 To [COLOR="#FF0000"]1[/COLOR]9

 

[Depant]

Hallo Haije,

Dat is de oplossing.
Wel een beetje suf dat ik zelf niet kon uitvogelen.

Bedankt voor de hulp!!
:thumb::thumb::thumb: