Foros del Web - Ver Mensaje Individual

KonnaN · #6 (**permalink**) 29/06/2010, 07:02

Si, claro, aquuí te dejo el código del borrado:

Código:

Private Sub btn_borrar_Click()
Dim codigo As Double
Dim maxrow As Double
Dim celdacodigo 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

Se borran el código, y la marca.
A ver si doy con la solución.. Me trae de cabeza desde hace mucho...
No he entendido muy bien el 2º) punto.
Gracias por todo, de verdad.

Saludos.