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.
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
