Eliminar filas si todas las celdas están escritas
Mi idea es una macro que abra un libro que yo especifique y que elimine el contenido de las filas de la A a la H si todas las celdas están escritas.
¿Es posible? Porque no encuentro información por ningún lado..
MGracias.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Eliminar_Filas()
'Por.Dante Amor
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo de excel"
.Filters.Clear
.Filters.Add "Archivo de excel", "*.xls*"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path & "\"
'.Show
If .Show Then
nombre = .SelectedItems.Item(1)
Set l2 = Workbooks.Open(nombre)
Set h1 = l2.Sheets(1)
For i = h1.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountA(h1.Range(h1.Cells(i, "A"), h1.Cells(i, "H"))) = 8 Then
h1.Rows(i).Delete
End If
Next
l2.Save
l2.Close False
MsgBox "Archivo actualizado"
End If
End With
Application.ScreenUpdating = True
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
