Macro para borrar contenido de Rango de celdas.
Una MACRO para borrar contenido de RANGO A1-J1 si K1=0 y así hasta RANGO A50-J50 si K50=0.
Diferencia entre borrar y limpiar o clear y delete?
1 Respuesta
Respuesta de Carlos Arrocha
Prueba con esta a ver si es lo que necesitas.
Sub Limpiar()
With Sheets("Hoja1")
If Sheets("hoja1").Range("K1") = 0 Then
.Range("A1:J50").ClearContents
End If
End With
End Sub
¡Gracias Carlos!
Me sale la leyenda "Subíndice fuera de intervalo" y no se ejecuta.😔
Recuerda que tienes que hacer los cambios necesarios. Donde pone hoja1 debes poner la que corresponda
¡OK. Gracias! Así está.
Lo que hice es una macro:
For a = 1 to 50
If Cells(a,11)=0 Then
If Cells(a,1). Select
Selection. ClearContents
End If
Next
For b = 1 to 50
If Cells(b,11)=0 Then
If Cells(b,1). Select
Selection. ClearContents
End If
Next
Y así 9 veces hasta llegar a la columna J. Funciona pero.... claro
