Gracias

Hola Jairo, en la ayuda de Excel viene el siguiente ejemplo usando FindNext, sólo le modifiqué unas cuantas palabra para que te sirva:

Private Sub CommandButton1_Click()
With Worksheets(1). Range("a1:a500")
Set c =. Find(TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c. Address
Do
c. Offset(0, 3). Value = "ANULADA"
Set c =. FindNext(c)
Loop While Not c Is Nothing And c. Address <> firstAddress
End If
End With
End Sub

Saludos,,,

No olvides cambiar la hoja si no coincide con esto>>> Worksheet(1)

Enrique R

buena tarde

Muchas gracias por tu respuesta pero..


Cuando intento ejecutar el codigo me aparece un (Error de copilacion) en la secuencia

Set c =. Find(TextBox1, LookIn:=xlValues)

Y pone en amarillo la letra c=

Reitero, muchas gracias por tu respuesta

Att:

Jairo A

Ok, seguramente el problema está en TextBox1, así le puse a manera general al TexBox donde escribes el dato que es el que se busca en la columna A, obviamente tu debes cambiarlo por el que tengas, no sé como se llame tu TextBox pero ahí debes colocar su nombre.

saludos,,

Monte de nuevo un archivo con parametros basicos para ejecutar el codigo en donde solo tengo un TextBox con el nombre de (TextBox1)y un CommandButton con el nombre (CommandButton1) con el fin de probar el codigo y no.. No me funciona, el queda en el codigo

Set c =. Find(TextBox1, LookIn:=xlValues)

Y pone de nuevo en amarillo la letra c=

no se que pueda hacer

tengo el archivo guardado y queria adjuntarlo para que lo pudieras ver.. Pero no encuentro la opcion.

Reitero, muchas gracias por tu respuesta

Att;

Jairo A

Http://cid-338d6b5f1335eba3.skydrive.live. Com/browse. Aspx/. Public? Uc=1&lc=22538

Envio ubicacion del archivo de Ejemplo para que lo mires y me cuentes que podria tener mal

gracias

Att:


Jairo A

El problema es que tienes Option Explicit y no tienes dimensionada la variable c

Dim c as range

saludos,,,

Disculpa

No he podido entender la ultima respuesta, ya jugue con el codigo y no e podido ejecutarlo

gracias

Option explicit
Private Sub CommandButton1_Click()
Dim c as range
With Worksheets(1). Range("a1:a500")
Set c =. Find(TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c. Address
Do
c. Offset(0, 3). Value = "ANULADA"
Set c =. FindNext(c)
Loop While Not c Is Nothing And c. Address <> firstAddress
End If
End With
End Sub

Muchas gracias Enrique y que pena las molestias

el codigo es justo lo que necesito

muchas gracias