Anular 2 o 3 líneas en una hoja

hola, Roberto !

... el Siguiente codigo:
For i = 2 To 14
[Hoja3].[a:a].Find(3, [a1]).Offset(, i) = 0
Next i
... lo que hace es buscar en la Hoja3 columna A, el numero 3, y luego cuando lo encuentra en toda esa fila, le pongo 0
... mi problema radica en que en la columna "A" hay otro registro que tiene el Nº 3 y no se como hacer que haga lo mismo [...]

hay un ejemplo en la ayuda en linea [vba-excel] del uso del metodo .Find cuando esperas encontrar mas coincidencias
el siguiente es una adaptacion +/- segun lo que necesitas que haga tu codigo:

Dim Celda As Range, Primera As String
With Hoja3.[a:a]
Set Celda = .Find(3) ', , , xlValues)
If Celda Is Nothing Then Exit Sub Else Primera = Celda.Address
Do
Celda.Offset(, 1).Resize(, 13).Value = 0
Set Celda = .FindNext(Celda)
Loop While Not Celda Is Nothing And Celda.Address <> Primera
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Excelente Héctor

Muchas Gracias

saludos

Roberto Miranda
Nicaragua

"Héctor Miguel" escribió en el mensaje
news:

hola, Roberto !

... el Siguiente codigo:
For i = 2 To 14
[Hoja3].[a:a].Find(3, [a1]).Offset(, i) = 0
Next i
... lo que hace es buscar en la Hoja3 columna A, el numero 3, y luego
cuando lo encuentra en toda esa fila, le pongo 0
... mi problema radica en que en la columna "A" hay otro registro que
tiene el Nº 3 y no se como hacer que haga lo mismo [...]

hay un ejemplo en la ayuda en linea [vba-excel] del uso del metodo .Find
cuando esperas encontrar mas coincidencias
el siguiente es una adaptacion +/- segun lo que necesitas que haga tu
codigo:

Dim Celda As Range, Primera As String
With Hoja3.[a:a]
Set Celda = .Find(3) ', , , xlValues)
If Celda Is Nothing Then Exit Sub Else Primera = Celda.Address
Do
Celda.Offset(, 1).Resize(, 13).Value = 0
Set Celda = .FindNext(Celda)
Loop While Not Celda Is Nothing And Celda.Address <> Primera
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.