Insertar fila donde se saltea un numero
Tengo a partir de la celda A4 un conteo desde el 1 hasta el 19127, pero evidentemente me faltan algunos números porque el 19127 termina en la celda A18872, quisiera saber si hay alguna forma automática de insertar una fila donde haya un numero salteado.
Seria algo así
Y que quede asi
2 Respuestas
Federico Paz,
Una forma simple para resolver tu inconveniente es generar una tabla de 19127 filas enumerados correlativamente del 1 a 19127 y buscar cada número en la columna N° de asociados, en donde se encontraran la mayoría de valores y en aquellos que no encuentre saldrá error (#N/A"), de esa tabla se filtran los errores (#N/A), se copia los datos filtrados y se pasa a pegar en la última fila de la tabla principal, para finalmente ordenar la columna N° de asociado y se tendrá la columna con todos los números del 1 al 19127.
Se muestra un ejemplo en la imagen adjunta:
Espero que te sirva de ayuda. Cualquier consulta estaré atento.
Por favor, no olvidar de valorar las respuestas.
Te anexo la macro
Sub Macro6()
'
' Por Dante Amor
'
' Insertar fila donde salta número
'
Application.ScreenUpdating = False
u = Range("A" & Rows.Count).End(xlUp).Row
For i = u To 4 Step -1
num2 = Cells(i, "A")
num1 = Cells(i - 1, "A")
n = 0
For j = num2 To num1 + 2 Step -1
Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
Cells(i, "A") = num2 - n
Next
Next
Application.ScreenUpdating = True
MsgBox "Fin"
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: Macro6
- Aceptar.
- Para ejecutarla dale click a la imagen.
.
.
¡Gracias Dante!, si seguimos así te voy a tener dar un porcentaje de mi sueldo
Me encanta la idea! Jeje.
Avísame cualquier duda, con gusto te sigo apoyando.