Macro que elimine columnas de una Hoja
Necesito una macro que elimine las sgtes columnas
A, C,F, J, L, M, N, O, P, Q, R,S,T , U, V, W, X, Y
De la Hoja 2 llamada BASE DE DATOS.
2 Respuestas
Respuesta de James Bond
1
Prueba con esta macro, solo elimina las columnas de la hoja base de datos
Sub borrar_columnas()
With Sheets("base de datos")
.Range("A:A").EntireColumn.Delete
.Range("C:C").EntireColumn.Delete
.Range("F:F").EntireColumn.Delete
.Range("j:j").EntireColumn.Delete
.Range("L:X").EntireColumn.Delete
End With
End Sub
Ignora la macro anterior te va a dar resultados no esperados prueba con esta macro, es la misma solo cambia el orden de eliminación partiendo de los últimos datos hacia los primeros.
Sub borrar_columnas()
With Sheets("base de datos")
.Range("L:X").EntireColumn.Delete
.Range("j:j").EntireColumn.Delete
.Range("F:F").EntireColumn.Delete
.Range("C:C").EntireColumn.Delete
.Range("A:A").EntireColumn.Delete
End With
End Sub
