Borrar rangos de las hojas del archivo alcances
Quiero que me ayudes con algo para terminarla, el botón 1 me esta borrado toda la pestaña de BASE DE DATOS y así esta bien, pero le quiero adicionar que también me borre lo de las demás pestañas la de ALCANCES, BOGOTÁ, BQUILLA, MDLLIN, CALI Y MODIFICAR POR FUERA. Pero que no me borre los títulos que le coloque sino lo que exporta o coloco diariamente. En las de operaciones de no liberar como las coloco manualmente, esta también quiero que me borreo, pero conservar los títulos que le coloque ya que eso se utiliza todos los días.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada para borrar los rangos de las hojas
Sub Paso1()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("BASE DE DATOS") 'Hoja de datos
h1.Cells.ClearContents 'Borra el contenido de todas las celdas
'
Set h2 = Sheets("ALCANCES") 'Hoja de Alcances
u = h2.Range("A" & Rows.Count).End(xlUp).Row 'última fila de datos
If u < 4 Then u = 4
h1.Range("A4:K" & u).ClearContents 'Borra los datos
'
hojas = Array("BOGOTA", "BQUILLA", "MDLLIN", "CALI")
For h = LBound(hojas) To UBound(hojas)
hoja = hojas(h)
Sheets(hoja).[A3:I21].ClearContents
Sheets(hoja).[A25:I38].ClearContents
Sheets(hoja).[A41:I500].ClearContents
Next
'
Sheets("ALCANCES").[A5:K84].ClearContents
Sheets("ALCANCES").[A86:K132].ClearContents
Sheets("ALCANCES").[A134:K500].ClearContents
Sheets("MODIFICAR X FUERA").[A4:I500].ClearContents
MsgBox "Datos borrados", vbInformation, "PASO 1 TERMIANDO"
End SubS a l u d o s
