Borrar base de datos a partir de la fila 2
Me ayudas con una macro para borrar la base de datos desde la fila 2 y hasta la última fila con datos.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro para borrar la base de datos.
Sub Paso1()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("BASE DE DATOS") 'Hoja de datos
u = h1.Range("E" & Rows.Count).End(xlUp).Row 'última fila de datos
If u < 2 Then u = 2
h1.Range("A2:Z" & u).ClearContents 'Borra los datos
MsgBox "Borrar Datos de Base de Datos", vbInformation, "PASO 1 TERMIANDO"
End Sub
