1

Quiero eliminar las filas que contengan datos de las columnas A y B, para eso desarrolle una macro, corre y no marca ningun error pero no borra las celdas

¿Que puedo estar haciendo mal?

Sub Limpiar()
Dim Celda As Range, UltimaFila As Long
UltimaFila = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
For Each Celda In Range("A2:B" & UltimaFila)
If (Celda.Value = "") Then Celda.ClearContents
Next Celda
End Sub

Filas que quiero eliminar

1
  • 1
    Quiero eliminar las filas que contengan datos. Pero en tu código pones If (Celda.Value = "") Then Celda.ClearContents y eso lo que hace es que si la celda está en blanco, borra el valor (pero no borra la fila, ojo). Prueba con If Not Celda.Value = "" Then Celda.ClearContents aunque si lo que quieres es simplemente borrar el contenido de todas las celdas, es más rápido si haces Range("A2:B" & UltimaFila).ClearContents
    – Esei
    el 27 nov. 2019 a las 21:09

2 respuestas 2

2

Gracias al comentario de @Elier Sanchez, esta linea era la que tenia mal If (Celda.Value = "")

Funciona el codigo de esta manera

Sub Limpiar()
Dim Celda As Range, UltimaFila As Long
UltimaFila = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
For Each Celda In Range("A2:B" & UltimaFila)
Celda.ClearContents
Next Celda
End Sub
1
  • 1
    No necesitas hacer un bucle para esto. Con poner Range("A2:B" & UltimaFila).ClearContents se borrarían todas, que es justo lo que estás haciendo ahora, pero de 1 en 1.
    – Esei
    el 28 nov. 2019 a las 19:20
1

Prueba así:

Sub Limpiar()
Dim UltimaFila As Long
UltimaFila = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Sheet2").Range("A2:B" & UltimaFila).ClearContents
End Sub
1
  • Procura siempre explicar por qué el código que sugieres resuelve la pregunta y cómo debería usarse.
    – Alfabravo
    el 28 nov. 2019 a las 19:40

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.