Klikken optellen

[ABO01]

Hi,

Zie bijgevoegde. Is het mogelijk dat in gele vak wordt opgeteld hoevaak je smile hebt geklikt?

 

[lam201]

Hang er een macro aan:

Sub Picture1_Click()

With Sheets("Sheet1")

    .Range("D15") = .Range("D15").Value + 1

End With

End Sub

 

[djutoch]

Gezien je klikt in hetzelfde blad is dit voldoende.

Sub Picture1_Klikken()
    Range("D15") = Range("D15").Value + 1
End Sub

 

[emields]

en dit is nog korter

 

[ABO01]

Bedankt. Ze werken allemaal, top

 

[emields]

Als er geen bijkomende vragen zijn vergeet dan niet, in uw eerste post, de vraag als opgelost te zetten.