Hola de nuevo,
ya he hecho la macro de Borrar :)
Como se aprecia he insertado algunas cabeceras más para el inventario. (No es que esté loco y por eso las ponga de más).
Parece que está bien...pero yo quiero ir más allá.
Cuando se me borre una fila por un código me gustaría que se recolocaran las inferiores, es decir que la siguiente fila sustituya a la anterior, y la anterior a la anterior, y así sucesivamente. Pero no sé cual sería el procedimiento exacto. Estoy dando vueltas al código que me envío mrocf antes, a ver si le puedo dar algún uso aquí.
Código:
Private Sub btn_borrar_Click()
Dim codigo As Double
Dim maxrow As Double
codigo = txt_borrar_codigo.Value
maxrow = Cells.SpecialCells(xlLastCell).Row + 1
For i = 1 To maxrow
If Cells(i, 2) = codigo Then
Cells(i, 2).Clear
Cells(i, 3).Clear
End If
Next i
End Sub
Simplemente yo escribo un código y se me borran todas las filas para ese código. Sin que se me queden filas intermedias en blanco.
Saludos.