H o l a:
Te anexo el código para eliminar filas, cuando lo ejecutes captura los números de fila a eliminar separados por ; (punto y coma).
Pon el siguiente código en un módulo:
Dim valores As New Collection
'
Sub EliminarFilas()
'Por.Dante Amor
Set valores = Nothing
filas = InputBox("Qué Fila/s desea Eliminar, ejemplo: 2; 25; 56 ", "ELIMINAR FILAS", "6;4")
If filas = "" Or filas = False Then Exit Sub
'
res = ordenar(filas)
MsgBox res, vbInformation, "ELIMINAR FILAS"
Set valores = Nothing
End Sub
'
Function ordenar(filas)
'Por Dante Amor
numeros = Split(filas, ";")
lnum = UBound(numeros)
lunum = LBound(numeros)
For i = 0 To UBound(numeros)
If IsNumeric(numeros(i)) And numeros(i) > 0 And numeros(i) < Rows.Count Then
Call agregar(Val(numeros(i)))
Else
ordenar = "La lista capturada no contiene números válidos: " & filas
Exit Function
End If
Next
'
For i = valores.Count To 1 Step -1
numfila = valores(i)
Rows(numfila).Delete
Next
ordenar = "Filas elimiminadas: " & filas
End Function
'
Sub agregar(valor)
'por.Dante Amor
For i = 1 To valores.Count
If valores(i) = valor Then Exit Sub
If valores(i) > valor Then
valores.Add valor, Before:=i
Exit Sub
End If
Next
valores.Add valor 'Es mayor lo agrega al final
End Sub
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 todo el código.
- 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: EliminarFilas
- Aceptar.
- Para ejecutarla dale click a la imagen.
':)
':)