Radio Aportaciones NO PUEDO CONTRA ESTE SENTIMIENTO
REGLAMENTO DE USO (31 Mar 2011)

Recordatorio a todos los usuarios de los foros:

5. Está prohibido transmitir a través de estos foros cualquier contenido (información, datos, gráficos, texto, archivos, ligas, software u otro material) que viole cualquier derecho de propiedad industrial o intelectual. Se requiere mencionar al autor y el medio de publicación cuando se haga una referencia editorial.

Macro eliminar fila si existen datos especificos

Más
12 años 9 meses antes #91238 por elvin
Macro eliminar fila si existen datos especificos Publicado por elvin
Alguien por favor me puede indicar una macro para eliminar fila completa si existe en las columnas A:A las palabras, Garantia, Cambio, Nuevo, Usado.

Aqui en la pagina encontre una macro pero solo elimina el valor contenido en la celda y un solo dato.
Sub EliminarCeldaConocida()
Dim var As Variant
Do While Not IsError(var)
var = Application.Match("Hola", Columns(1), 0)
If Not IsError(var) Then Cells(var, 1).Delete xlShiftUp
Loop
End Sub

Y yo lo que quiero es que me elimine toda la fila y mas de una fila a la vez

Por favor, Conectar para unirse a la conversación.

Más
12 años 9 meses antes #91242 por OCruzG
Respuesta de OCruzG sobre el tema Macro eliminar fila si existen datos especificos
Hola Elvin,

Prueba con este código, a ver si es el resultado que deseas.
Saludos.

Code:
Sub EliminaFilas() Dim i As Long, iArr, iRow As Integer, vList As Variant Application.ScreenUpdating = False vList = Array("Garantia", "Cambio", "Nuevo", "Usado") With ActiveSheet iRow = .Cells(.Rows.Count, 1).End(xlUp).Row For i = iRow To 1 Step -1 With .Cells(i, 1) For iArr = LBound(vList) To UBound(vList) If LCase(.Value) = LCase(vList(iArr)) Then .EntireRow.Delete Exit For End If Next iArr End With Next i End With Application.ScreenUpdating = True End Sub
Obed Cruz
www.exceltrabajaporti.com
Email: obed.cruz@exceltrabajaporti.com
El siguiente usuario dijo gracias: elvin

Por favor, Conectar para unirse a la conversación.

Más
12 años 9 meses antes #91251 por elvin
Respuesta de elvin sobre el tema Macro eliminar fila si existen datos especificos
Exactamente es lo que quiero, muchas muchas muchas gracias

Por favor, Conectar para unirse a la conversación.

Más
12 años 9 meses antes #91290 por OCruzG
Respuesta de OCruzG sobre el tema Macro eliminar fila si existen datos especificos
Excelente.

:)
Obed Cruz
www.exceltrabajaporti.com
Email: obed.cruz@exceltrabajaporti.com

Por favor, Conectar para unirse a la conversación.

Tiempo de carga de la página: 0.526 segundos
Gracias a Foro Kunena

Main Menu

Usuarios