BUSCA EM EXCEL

IRENKO 20/01/2011 15:57:57
#362874

Outra:

Option Explicit

Sub FindData()


Dim MyData As String
Dim wks As Worksheet
Dim rngFoundData As Range

[ô]Obter dados de usuários
MyData = InputBox([Ô]Entre com o texto para localizar a planilha.[Ô])
If MyData = [Ô][Ô] Then Exit Sub

[ô][ô]Pesquisa todas as páginas em livro
For Each wks In Worksheets

[ô] Localizar dados em planilha atual
Set rngFoundData = wks.Cells.Find(What:=MyData, _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

[ô] Selecionar os dados encontrados e sub saída
If Not rngFoundData Is Nothing Then
wks.Activate
rngFoundData.Select
Exit Sub
End If

Next wks

[ô] Dados dizem usuário não foi encontrado
If rngFoundData Is Nothing Then
MsgBox MyData & [Ô] inexistente [Ô] & ActiveWorkbook.Name

End If

End Sub

JPAULO101 20/01/2011 17:47:50
#362882

MUITO OBRIGADO IRENKO E LVFIOROT PELA AJUDA CONSEGUI RESOLVER COM AJUDA DE VOCÊS. ABRAÇOS.