door op cel te klikken automatisch uur invullen

[bjornesto]

Beste

ik heb in Cel D14 een verwijzing (hyperlink) gemaakt naar ofwel een ander bestand op de pc ofwel een website

Is het mogelijk dat als ik op Cel C14 het uur er dan opkomt en dat het blijft staan

 

[Cobbe]

Hang deze code achter je blad:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
 Cells(14, 3) = Format(Date, "dd-mm-yyyy-")
End Sub

 

[bjornesto]

Beste Cobbe heb code even aangepast maar ik heb nog bepaalde cellen die deze opmaak kunnen gebruiken

Kan je dat dan ook via cells doen of is het eerder aan te raden via range

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Cells(14, 3) = Format(Time, "hh:mm")
End Sub

 

[bjornesto]

volgende cellen zouden wel afzonderlijk een macro moeten krijgen daarvoor in D14, D15, D37, D38, D39 staan allemaal zo'n hyperlinks

namelijk C14, C15, C37,C38, C39

 

[Cobbe]

Dat schijnt niet te lukken. Of ik ben te ........

Ik krijg het startadres niet afgevangen.

 

[bjornesto]

Beste

Ik kan het wel zo doen en dit werkt maar dan als je op 1 van die links zou klikken dan komt er op al die cellen dezelfde tijd en dat is niet de bedoeling

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Cells(14, 3) = Format(Date, "dd-mm-yyyy-")
Cells(15, 3) = Format(Date, "dd-mm-yyyy-")
End Sub

zou het liever zo hebben maar dan zegt hij dat hij een code heeft met dezelfde naam
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Cells(14, 3) = Format(Date, "dd-mm-yyyy-")
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Cells(15, 3) = Format(Date, "dd-mm-yyyy-")
End Sub

 

[Warme bakkertje]

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Range(Target.Range.Address).Offset(, -1) = Format(Date, "dd-mm-yyyy-")
End Sub

 

[Cobbe]

Ziet ge dat ik er te dom voor ben.

Die range speelde mij parten.