Macro eliminar códigos.

Hola a todos quisiera preguntarles de que forma puedo eliminar códigos por ejemplo. Tengo en una hoja códigos en la columna A que comienzan con 0101254587, 0101207898,0104027896 etc, todos son de 10 dígitos los primeros 4 dígitos siempre son iguales, lo que pretendo hacer es que la macro elimine todos aquellos que comiencen con 0101 incluyendo a toda la fila, NOTA: no siempre la columna a tiene el mismo rango de datos este es variable.

Saludos y gracias.

1

1 Respuesta

3.639.500 pts. Si me amas, siempre voy a estar en tu corazón; si me...

Prueba con la siguiente

Sub elimina()
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Left(Cells(i, "A"), 4) = "0101" Then
Rows(i).EntireRow.Delete
i = i - 1
End If
Next
End Sub

Saludos. Dam

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas