Como Borrar con macros varias celdas a la vez
Quisiera que me explicaran como borrar el contenido de varias celdas mediante una macro por ejemplo una podría ser a1 y así de 5 en 5
3 Respuestas
Si lo que deseas borrar es un rango fijo puedes hacer lo siguiente
Sub Borrar()
Range("A1:F20").Value = ""
End Sub
Realmente lo que necesito es borrar por ejemplo el contenido de a1, el de a7, el de a13 y así sucesivamente hasta un limite
Prueba el siguiente código
F es el numero de la ultima fila
Sub borrar()
Dim X As Double
Dim F As Double
F = Val(InputBox("digite el ultimo valor de la fila"))
For X = 1 To F Step 6
Range("a" & X).Value = ""
Next
End Sub
No especificas si quieres poner las celdas en blanco o simplemente borrar la fila y que los datos se recorran hacia arriba, te dejo un ejemplo, la macro recorrerá las filas partiendo desde a1 y contara 5 lugares hacia la abajo e ira borrando el contenido de toda la fila, si lo que quieres es eliminar toda la fila solo activa la segunda instrucción delete.
Sub borrar()
Set datos = Range("a1").CurrentRegion
With datos
f = .Rows.Count
For i = 1 To f Step 5
.Rows(i).ClearContents
'.Rows(i).entirerow.delete
Next i
End With
End Sub