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
