Macro para filtrar y eliminar valores de columna

09/07/2005 - 20:13 por Mk | Informe spam
Llevo tiempo leyendo el grupo y estoy impresionado por la cantidad de
conocimientos que uno puede aprender gracias a la ayuda desinteresada de
otras personas, por ello, gracias de antemano.

Centrandome en la consulta; deseo crear una macro para que en una
columna determinada de una hoja, que por otra parte solo contiene 3
valores diferentes (A,B,C) me elimine por defecto dos de ellos (por
ejemplo A y C). La longitud de dicha columna es variable, pero no creo
que este sea un dato importante.

¿Alguna pista de como puede ser ó como puede ser la instrucción que
tengo que añadir a la macro?.

Gracias

Mk



avast! Antivirus: Mensaje saliente limpio.
Base de datos de Virus (VPS): 0527-2, 08/07/2005
Comprobado el: 09/07/2005 20:13:29
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com
 

Leer las respuestas

#1 carloshernandezy
09/07/2005 - 20:27 | Informe spam
Prueba con este código, creo que te puede servir, modifica la columna
y el valor a eliminar

Sub Example1()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

Firstrow = ActiveSheet.UsedRange.Cells(1).Row
Lastrow = ActiveSheet.UsedRange.Rows.Count + Firstrow - 1
With ActiveSheet
.DisplayPageBreaks = False
For Lrow = Lastrow To Firstrow Step -1
If IsError(.Cells(Lrow, "A").Value) Then
'Do nothing, This avoid a error if there is a error in
the cell

ElseIf .Cells(Lrow, "A").Value = "ron" Then
.Rows(Lrow).Delete
'This will delete each row with the Value "ron" in
Column A, case sensitive.

End If
Next
End With
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
End Sub

Preguntas similares