Este fórum está sendo desativado

[BritoMarques]

Olá a todos!
Tenho uma 2 dúvida e vou usar até uma linha da resposta do Osvaldo sobre o Find:
1- Pq esta linha abaixo,
Set c = Sheets("Plan1").Range("B10:B20").Find(Valor_Doc, lookat:=xlWhole) quando digitada da forma a seguir,
Set c = Sheets("Plan1").Range(cells(10,"B"),cells(20,"B")).Find(Valor_Doc, lookat:=xlWhole) dá erro?

2- Meu código foi digitado da forma abaixo,
Set xCelBuscaR = wsMemo.Range("I5:I3000").Find(xUnidAntT, Lookat:=xlWhole) 'localiza o primeiro endereço,
para atribuir a variável xCelBuscaR o endereço da primeira ocorrência.
Acontece que ao tentar atribuir ente endereço a variável xCelPriR (para guardar o endereço da primeira ocorrência
conforme a seguir,
xCelPriR = xCelBuscaR.Address.
está dando erro.
As variáveis xCelPriR e xCelBuscaR fora declaradas como Range.

Agradeço a colaboração

[osvaldomp]

[quote=BritoMarques post_id=65269 time=1624199024 user_id=15416
Set c = Sheets("Plan1").Range(cells(10,"B"),cells(20,"B")).Find(Valor_Doc, lookat:=xlWhole) dá erro?
A sintaxe da linha inteira está correta. Qual o número e o texto que aparecem na mensagem de erro?

... xCelPriR = xCelBuscaR.Address. está dando erro. As variáveis xCelPriR e xCelBuscaR fora declaradas como Range.
A variável xCelPriR deve ser do tipo String e irá retornar algo como "$K$28" (endereço absoluto de uma célula entre aspas duplas).

[/quote]