Eliminacion de filas en excel

[agl_ar]

Hola
Tengo una planilla con miles de filas, y tengo que eliminar las que sumen 0 en determinadas celdas.
Hay alguna manera de automatizar esto?

Gracias
Alejandro

[RatonesPelones]

creo que tienes que trabajar creando alguna macro para eso.

[mrocf]

¿Qué significa: - "... filas que sumen 0 en determinadas celdas ..."?

Ejemplifica para que se comprenda acabadamente su necesidad.

Saludos, Cacho.

[Antonio8688]

Hola Alejandro.

En realidad no eres muy explícito en tu consulta. Por ejemplo, no informas en qué columnas están las celdas con valor "0". De todas formas, prueba con esta macro:


'Elimina filas según una condición

Option Explicit

Sub ElimFila()
' Macro grabada el 27/02/08 por Toño

Dim Celda As String
Celda = "0"

'se evalúa la col F
Range("F1").Select

While ActiveCell.Value <> ""
If ActiveCell.Value = Celda Then
ActiveCell.EntireRow.Delete
Else

ActiveCell.Offset(1, 0).Select
End If

Wend

End Sub


Fíjate que en esta rutina yo evalúo la columna F. Debes modificarla de acuerdo con tus necesidades. Te sugiero sacar un backup de tu fichero antes de ejecutar la macro. Espero haberte ayudado.

_____________________________________________
Un saludo desde Barranquilla, la Puerta de Oro de Colombia

[SidV]

Gracias Antonio...
Y como seria si quiero que el Macro evalue todas las columnas de mi hoja de trabajo?

Porq tengo un problema que me quiero sacar de encima con un Macro, sin embargo no puedo programarlo (dado mi ignorancia, claro).

Quiero que el macro vea columna por columna, si cada columna esta vacia... en caso de que este vacia, la elimine. Pero si tiene "un dato" (aunque sea), la deje como está.
Es importante destacar que quiero eliminar la columna... no la fila.

Gracias.

[Antonio8688]

SidV, cambia en el código el rango a evaluar y la palabra Row por Column.

________________________________________________
Un saludo desde Barranquilla, la Puerta de Oro de Colombia

[mrocf]

Hola! SidV.
Una alternativa a lo mostrado por Antonio sería:

a) Selecciona el rango COMPLETO a evaluar;
b) Ejecuta la siguiente macro

Código:

Sub EliminaColumnas()
Dim ii As Integer, LastCol As Integer
ii = Selection.Column
LastCol = ii + Selection.Columns.Count - 1
Do While ii <= LastCol
  If WorksheetFunction.CountA(Intersect(Selection, Columns(ii))) = 0 Then
    Columns(ii).Delete
    LastCol = LastCol - 1
  Else
    ii = ii + 1
  End If
Loop
End Sub

En este caso, se evaluará el contenido de TODAS las columnas del rango seleccionado.

Saludos, Cacho.