Celdas vacías en formulario

Tengo un formulario y quiero agregar un botón para eliminar celdas vacías a una hoja
¿Tengo una macro armada... Pero no la puedo usar en el botón... Como debo hacer?
Gracias!
1

1 respuesta

Respuesta
1
Con tan pocas aclaraciones me será imposible darte una respuesta precisa.
Formulario... imagino que diseñaste en la hoja ... ¿o se trata de un Userform?
¿Por qué no la podes usar la macro en el botón?... entonces indicame qué tipo de botón usaste (barra Formulario o Cuadro de controles -Activex)
También escribirme la macro para que pueda darme cuenta cómo hace referencia a las celdas...
Sdos. Espero tus aclaraciones
Es cierto di poca información!... mis disculpas!
Es un USERFORM que tiene botones nuevo/guardar/imprimir....etc
Lo que quiero es agregar un botón para eliminar celdas vacías.
El macro que tengo es la siguiente
Sub Eliminar_filas_vacias()
'ocultamos el procedimiento
Hoja1.Visible = xlSheetVisible
Sheets("Datos").Select
Range("A2").Select
Application.ScreenUpdating = False
'suprondremos que vamos a inspeccionar 1.000 filas,
'en busca de todas las que haya en blanco
For i = 1 To 1000
'si la celda está vacía...
If ActiveCell = "" Or IsNull(ActiveCell) Then
'nos quedamos con la celda donde estamos
'para volver a ella posteriormente
celda = ActiveCell.Address
'vamos hasta la primera celda a la
'derecha que encontremos, con datos
Selection.End(xlToRight).Select
'si está vacía esa celda
If ActiveCell = "" Or IsNull(ActiveCell) Then
'miramos si a la izquierda hay datos
Selection.End(xlToLeft).Select
'si también está vacía esa celda
If ActiveCell = "" Or IsNull(ActiveCell) Then
'eliminamos la fila
Selection.EntireRow.Delete
'volvemos a la celda donde estábamos
'siempre y cuando no estemos en la fila 1
If ActiveCell.Row <> 1 Then Range(celda).Offset(-1, 0).Select
End If
End If
End If
'pasamos a la siguiente fila
ActiveCell.Offset(1, 0).Select
Next
'mostramos el procedimiento
Application.ScreenUpdating = True
Hoja1.Visible = xlSheetVeryHidden
End Sub
Muchas pero muchas gracias!
La rutina debe ir en un módulo del Editor.
En el UF, dibujá el botón y su rutina será esta:
Private Sub CommandButton1_Click()
Call Eliminar_filas_vacias
End Sub
Pruébala sobre 1 copia de tu libro.
PD) Hay nuevos manuales en mi sitio. No te pierdas las novedades del mes !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas