Localizar uma string

[Resolvido/Fechado]
Denunciar
-
 ECJ -
Bom dia,


Gostaria de um código simples, para localizar uma determinada data na coluna B de uma planilha excel, onde após a data ter sido encontrada, guardasse o valor da linha numa variável para poder incluir valores em outras colunas da mesma linha desta planilha.


Já tentei adaptar outros scrips sem sucesso. Dá sempre string não encontrado, embora ela exista.

Segue o cógigo abaixo:

Sub procura()

Sheets("201109").Select

Set celLocalizar = ActiveSheet.Columns.Find("2011-09-26", LookAt:=xlWhole, LookIn:=xlValues)

If celLocalizar Is Nothing Then 'caso não encontrar o codigo

MsgBox "O conteúdo " & codigo & " não foi encontrado na planilha."

Else 'caso o codigo procurado tenha sido encontrado
celLocalizar.Select 'selecionar a célula onde foi encontrado
MsgBox codigo & " foi encontrado na célula " & celLocalizar.Address & ". Planilha " & plan
Sheets(plan).Select
achei = achei + 1
End If

End Sub


Agradeçoa antecipadamente, qq ajuda.

ECJ

1 resposta

Já achei o erro !!!!

A data para pesquisa é "2011-09-26", mas tem que ser informada como "2011/09/26".

Assine nossa newsletter!

Receba toda semana o melhor conteúdo

Assine nossa newsletter!