Buscar un código en una columna y eliminar la fila

Tengo una columna CÓDIGO, esta columna puede existir varias filas con el mismo código.

Deseo buscar el código en la columna y eliminar las filas.

Hay que tener en cuenta que el valor del código que quiero eliminar, ya lo tengo en una variable llamado COD, de un procedimiento anterior.

1 Respuesta

Respuesta
1

Private Sub CommandButton1_Click()
    Call codigo(cod)

' Desde donde quieras llamar a la sub

End Sub

'----------------------------------------------------------------------------------------------------

Sub codigo(cod As String)
    Dim i As Integer
    i = 2

'Suponiendo que la hoja tenga cabeceras si no la i es 1

'Debes poner With La hoja quieres quitar las filas

'Si la hoja es la 1, entonces pone With Hoja1

'Con el with, delante de todos los Range ha de haber un punto
    While (Range("A" + CStr(i)) <> "")

        If (Range("A" + CStr(i)) = cod) Then
            Range(CStr(i) + ":" + CStr(i)).Delete
            i = i - 1
        End If
        i = i + 1
    Wend

'End with
End Sub

El i=i-1 lo pongo por si acaso hay celdas contiguas con el código

Vaya, Si funciona muy bien. Yo estaba haciendo con un For recorriendo el total de las filas con uf y comparandolo al cod para eliminarlo. Aunque el código no me cuadra muy bien, lo noto un poco ortodoxo, seguramente es por costumbre. Aun asi tu respuesta es excelente. Gracias

Si lo haces con el for y hay dos cod seguidos entonces se saltará el 2º.

Si te va bien ya, finaliza la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas