FÓRUNS DA INFO
|
1
|
Macro Excel Localizar (find) |
Rafael |
1 resposta(s) |
Ola....preciso de uma macro que realize a procura em todas as "sheets", porém ela tem que ser igual ao localizar do excel, so que ao invez de localizar na sheet onde se trabalha ela irá localizar em todas que estão no arquivo.
Obrigado..
|
Enviado por: HELP Zuquetto
em 25/09/2008
|
Zuquetto,
Li um artigo que você escreveu faz um tempão, sobre como criar uma função para localizar um valor e retonar esse valor (link: http://info.abril.com.br/forum/forum.php?topico=634796).
Eu utilizei sua formula, porém gostaria de saber como faço para na mensagem de retorno venha escrito o conteúdo da célula ao lado.
Por exemplo, eu procuro um texto que está ma célula A2, a formula encontra o texto que está escrito na tela A2 e retorna juntamente com o texto que está na célula A1.
Se você puder me ajudar, meu e-mail é tiagosilvasoares@gmail.com
Muito obrigado!!
|
Enviado por: Zuquetto
em 21/09/2006
|
Rafael...
A macro abaixo procura em todas as planilhas a
'palavra digitada na caixa de entrada.
'O resultado é apresentado na caixa de mensagem
Cole esta macro em um folha de módulo VBA.
Para abrir uma folha de módulo siga os seguintes passos:
Ferramentas>Macro>Editor do Visual Basic>Inserir>Módulo
Para executar a macro, utilize a barra de ferramentas do Visual Basic.
Sub procura()
total = Sheets.Count 'total de planilhas
achei = 0
codigo = InputBox("Digite o nome a ser procurado.", "LOCALIZAR")
If codigo = "" Then Exit Sub
For plan = 1 To total 'percorrer todas as planilhas
Sheets(plan).Select 'ativar planilha
Set celLocalizar = ActiveSheet.Columns.Find(codigo, LookAt:=xlWhole, LookIn:=xlValues)
If celLocalizar Is Nothing Then 'caso não encontrar o codigo
If plan = total And achei = 0 Then
Sheets(1).Select
MsgBox "O conteúdo " & codigo & " não foi encontrado em nenhuma planilha. "
End If
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
Next plan
Sheets(1).Select
End Sub
|
Voltar para Excel 
INFO Online trocou as ferramentas de fórum. A última mensagem foi colocada nessas páginas no dia 31 de outubro de 2008. Para ler as novas mensagens e participar do novo fórum, por favor use a nova ferramenta.
|
|
PUBLICIDADE
|
Últimos tópicos do Fórum INFO
|
|
