Eliminar filas

Buenas Tardes Intenta con este codigo y me cuentas
copialo en un modulo
herramientas
macro
editor de VBA
Insertar
modulo

Sub EliminarReferencias()
Dim celda As Range
Dim c() As Integer
Dim hoj As Worksheet
Dim i As Integer
Dim l As Integer
Set hoj = Worksheets("Hoja1")
hoj.Cells(65536, 11).Activate
i = Selection.End(xlUp).Row
ReDim c(i) As Integer
For Each celda In hoj.Range(Cells(1, 11), Cells(i, 11))
If celda.Value = "RFGES4586" Or celda.Value = "TRGFED54122" Or
celda.Value = "TYRDSF5542" Then
l = l + 1
c(l) = celda.Row
End If
Next
For i = l To 1 Step -1
hoj.Cells(c(i), 1).EntireRow.Delete
Next
hoj.Cells(1, 11).Select
End Sub

Ejecutalo y listo.
Me cuenta si le sirvio



Fran ha escrito:

Hola a todos, necesitaria hacer una macro que eliminara filas donde
aparecen ciertas referencias, estas referencias siempre estan en la
misma columna. Ejemplo: en la columna K aparecen 100 referencias, de
estas referencias quiero eliminar la fila donde aparecen una de las
siguientes referencias, RFGES4586, La TRGFED54122 y la TYRDSF5542

En la parte que te adjunto da un error de compilacion.


For Each celda In hoj.Range(Cells(1, 11), Cells(i, 11))
If celda.Value = "RFGES4586" Or celda.Value = "TRGFED54122" Or

Hola Fran. Las filas...

If celda.Value = "RFGES4586" Or celda.Value = "TRGFED54122" Or
celda.Value = "TYRDSF5542" Then

.. deben ir juntas en una sola fila

Saludos desde Tenerife.
*************************
"Fran" escribió en el mensaje
news:

En la parte que te adjunto da un error de compilacion.


For Each celda In hoj.Range(Cells(1, 11), Cells(i, 11))
If celda.Value = "RFGES4586" Or celda.Value = "TRGFED54122" Or