"Range" maken

[Koenie]

Hoi helpers,

Omdat ik nog niet zo lang met Excel werk, loop je nogal eens tegen een vraag aan.

Ik heb voor een urenregistratie een vba code van iemand gehad en deze moet ik dan ook in mijn bestand verwerken.
Nu is mijn vraag hoe ik de "Range" maak waar in de vba code naar wordt verwezen.

Code

Private Sub Worksheet_Activate()
Dim iverstuurd As Integer
If Range ("a1") = "nee" And Day (now) > 15 Then
i verstuurd = msgBox (" is de urenregistratie al bijgewerkt?", vb YesNo)
If iverstuurd = vb Yes Then"
Range ("a1"). value = "ja"
end if
end if
end sub

alvast bedankt voor de hulp

 

[Guidolavespa]

de range moet niet gemaakt worden.


er wordt gewoon verwezen naar de cel a1

zie bijlage met de juiste code.

PS versta wel niet code Day (now) > 15 Then

wat moet dat doen??

 

[Koenie]

uitleg and day(now) 15

Guidolavespa,

de code day(now) > 15 then heeft tot doel;

Vanaf de 15de van de maand te vragen of het is verstuurd.
Dit doet hij tot het moment dat je de vraag met Ja beantwoordt hebt.
(dit natuurlijk allemaal volgens de maker: ik heb (nog) niet zoveel verstand van vba)