View Single Post
Old 11-06-2010, 14:17   #6
Fibrizio
Member
 
L'Avatar di Fibrizio
 
Iscritto dal: Oct 2009
Cittā: In una cittā
Messaggi: 67
Quote:
Originariamente inviato da zuper Guarda i messaggi
banalissimo counter:

Codice:
Sub counter()
valore = Range("a1").Value
Range("a1").Value = valore + 1
End Sub
adatta la cella che vuoi e richiama la sub dal codice del pulsante
O la richiami con un pulsante o la metti in

Private Sub Workbook_Open()
End Sub


Fibrizio č offline   Rispondi citando il messaggio o parte di esso