Macro para enumerar celdas de acuerdo a numero donde inicia y donde termina, eligiendo en que celda empieza la numeración
Realizo esta consulta, o más bien pido su ayuda para enumerar celdas (asignarle un número), pero que yo indique el numero de inicio y el de final, esto claro, seleccionando la celda donde empieza a enumerar, osea supongamos que me situo en la celda E4, que me salga un formulario, o algo así, que me pregunte cual es el número de inicio, y el de el final, por ejemplo, que ponga 16 (inicio), y el de el final (31), y que me enumere las celdas apartir del 16 al 31.
Respuesta de Dante Amor
3
H o l a:
Te anexo la macro
Sub Numerar()
'Por.Dante Amor
ini = Application.InputBox("Escribe el número inicial", "NUMERAR", ActiveCell, 8)
If ini = False Then Exit Sub
If Not IsNumeric(ini) Then Exit Sub
fin = Application.InputBox("Escribe el número Final", "NUMERAR")
If fin = False Then Exit Sub
If Not IsNumeric(fin) Then Exit Sub
If fin < ini Then
MsgBox "El número final debe se mayor al inicial", vbExclamation, "NUMERAR"
Exit Sub
End If
'
For i = ini To fin
ActiveCell.Offset(n, 0) = i
n = n + 1
Next
End SubInstrucciones para userform
- Abre tu hoja de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / UserForm
- Le das dobleclik en cualquier parte del Panel del userForm y copias la macro
- En el panel del UserForm creas un Combobox, que se llame ComboBox1
Sigue 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: Numerar
- Aceptar.
- Para ejecutarla dale click a la imagen.
¡Gracias! perfecto, gracias dante, por ayudar a personas como nosotros, que apenas empezamos con esto de las macros, es muy amable de su parte, mis agradecimientos
