Code activeren binnen een bepaalde periode

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Graag zou ik een code ontvangen die in werking treedt wanneer deze zich binnen een bepaalde periode bevindt. Bijvoorbeeld: De code dient actief te zijn tussen 1 januari huidig jaar en 31 maart huidig jaar. Ik had zelf iets in gedachten, echter werkt dat niet.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Date > 1-1 and date < 31-3 Then Range("AE49") = "hoi"
Application.EnableEvents = True
End Sub

Tot slot dient de code te worden geactiveerd wanneer ik naar de betreffende map ga. Volgens mij moet ik dan: Private Sub Workbook_SheetActivate(ByVal Sh As Object). Is dit juist?

Alvast heel erg bedankt.

Robert
 
Bv.
Code: 
if date < datevalue("1-4-" &year(date)) then msgbox "hoi"
 
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim start, eind As Date
start = #5/1/2017#
eind = #5/30/2017#

If start <= Date And eind >= Date Then
Range("A1") = "hoi"
End If

End Sub
 
In de Sheet sectie:
Code: 
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Select Case Month(Date)
        Case 1 To 3: Range("AE49") = "hoi"
    End Select
    Application.EnableEvents = True
End Sub

In de Workbook sectie:
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Blad2" Then
        Select Case Month(Date)
            Case 1 To 3: Range("AE49") = "hoi"
        End Select
    End If
End Sub
 
Laatst bewerkt:
Beste mensen,

Ik heb de eerste code gebruikt en die werkt op een kleine aanpassing na (deze moest immers binnen een bereik tussen twee data een melding geven) naar volle tevredenheid. Nu moet ik nog kijken of deze het gaat doen vanuit alle sheets. Hiervoor zal ik verder gaan met de andere codes die ik heb ontvangen. Allemaal alvast heel erg bedankt en ga nog even verder met experimenteren.
 
De code van mij heeft geen aanpassing nodig om tussen twee data te vallen in hetzelfde jaar als date.
Als de datum kleiner is dan 1-4 van welk jaar dan ook, werkt het vanaf 1-1-yeardate.

Bv:

1) als de datum met het jaar(vandaag =2017) < 1-4-2017 dan msgbox
2) als het jaar = 2016 < 1-4-2016 dan msgbox.
3) als het jaar vandaag = 2018 < 1-4-2018 dan ...
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan