Anónimo
Como crear un bucle para una celda en especifica.
Quisiera crear una especie de bucle para la celda C3 de la hoja 3. Algo que permita por medio de un boton, generar un consecutivo del 1 al 10(cada vez que lo presione) pero que al llegar a 10 y presionar luego, nuevamente regrese a 1.
Respuesta de Dante Amor
1
H o l a:
Pon la siguiente macro en un botón:
Sub Consecutivo()
'Por.Dante Amor
Set celda = Sheets("Hoja3").Range("C3")
If celda.Value >= 10 Then
celda.Value = 1
Else
celda.Value = celda.Value + 1
End If
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Consecutivo
- Aceptar.
- Para ejecutarla dale click a la imagen.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias