Kør en macro på aktive celler i en bestemt kolonne

hvis det er hvergang du står på cellen, så:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Dato")) Is Nothing Then
'Call din makro

End If

End Sub


Hvis det er hvergang den ændres, så:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Dato")) Is Nothing Then
'Call din makro

End If

End Sub


Sættes i arkets modul

Jeg kan ikke få den til at virke.

Er dette forkert????

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Dato")) Is Nothing Then
Call "Showit"

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Dato")) Is Nothing Then
Call Showit

End If

End Sub

Forkert

prøv at skrive Showit med små bogstaver, hvis makroen findes skriver den det med stort S ligesom det står i makronavnet

prøv lige at sætte første linie med makronavnet showit herind

Har du sat den i arkets modul, det ark som indeholder området Dato

Det virker :-)))
Jeg skal bare lige have fundet ud af hvordan man lukker Popup kalenderen efter hver indtastning.

Sender du et svar

Tak for hjælpen

et svar ;-))