
20/10/2008, 00:28
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 10 meses Puntos: 88 | |
Respuesta: Eliminacion de filas en excel 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. 
Última edición por mrocf; 20/10/2008 a las 09:28 |