Eliminar filas
Hola, necesitaría una macro que eliminara todas las filas que las celdas de la columna "C" no tuviesen valor.
Muchas Gracias.
Muchas Gracias.
1 respuesta
Respuesta de Elsa Matilde
1
La rutina recorre la col A hasta la primer celda vacía, considerando que esa col tendrá todas las filas completas. Si es como mencionas con varias filas vacías entremedio, tendrás que realizar esta modificación:
Sub borraFilas()
dim ultifila as integer
'guardo la última fila utilizada en la col A
ultifila=range("A65536").end(xlup).row
'ajustar rango de inicio
ActiveSheet.Range("C1").Select
While ActiveCell.row <= ultifila
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
ultifila = ultifila-1
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Pruébala y comentame si ahora te resulta.
Sub borraFilas()
dim ultifila as integer
'guardo la última fila utilizada en la col A
ultifila=range("A65536").end(xlup).row
'ajustar rango de inicio
ActiveSheet.Range("C1").Select
While ActiveCell.row <= ultifila
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
ultifila = ultifila-1
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Pruébala y comentame si ahora te resulta.
Esta rutina que colocarás en un módulo del Editor, recorre la col C. Se compara la col A para determinar dónde termina la tabla.
Sub borraFilas()
'ajustar rango de inicio
ActiveSheet.Range("C1").Select
While ActiveCell.Offset(0, -2).Value <> ""
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Saludos y no olvides finalizar la consulta
Sub borraFilas()
'ajustar rango de inicio
ActiveSheet.Range("C1").Select
While ActiveCell.Offset(0, -2).Value <> ""
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Saludos y no olvides finalizar la consulta
