Contador en Userform con un botón
Buenas tardes
Como podría hacer que al momento de darle click a un botón en la celda "a1" de mi hoja "sheet1" se vaya haciendo un + 1 tengo algo parecido a esto.
Private Sub CommandButton4_Click()
Dim i As Integer
i = i + 1
Sheets("Sheet1").Range("A1") = i
Ahi lo que me hace es que en esa celda pone en 1, pero si le sigo picando al botón no va sumando asi de 1, 2, 3 etc.
Gracias por su atencion
1 Respuesta
Probalo de esta manera:
Private Sub CommandButton4_Click()
'x Elsamatilde
If Sheets("Sheet1").Range("A1") = "" Then
Sheets("Sheet1").Range("A1") = 1
Else
Sheets("Sheet1").Range("A1") = Sheets("Sheet1").Range("A1") +1
End If
Es decir, que si la celda está vacía coloca 1, pero en los clics siguientes te acumula 1 al valor que ya tenga.
Sdos y no olvides finalizar la consulta.
