Bom dia!!

Use nossa base de dados, temos a Pesquisa e a Biblioteca!!!

viewtopic.php?f=21&t=3957

Att

Alexandre, tudo bem?

Obrigada pela ajuda. Como sou leiga em programação você poderia me dizer como faz para essa macro ser executada automaticamente?

Ali em Sub eu tirei o nome da macro de vocês e coloquei 'Abrir_Automaticamente' e em opções tbm coloquei o atalho ctrl+ç, mas clico e nada acontece.

Segundo: Pelo que lí no link que você me mandou a busca é feita em todas as abas da planilha, mas eu não vi isso acontecer, até pq a minha planilha vai ter 4 abas com as mesmas informações (só muda os valores) e quando executei a macro, ela apareceu a pop-up, mas fez a busca só na aba que estava selecionada.

Eu estou fazendo algo errado?

Obrigada.

Galera, bom dia

Eu localizei um código na web, mas ainda assim o formulário não lista os resultados que estão nas outras abas. Vocês poderiam me ajudar?

Sub gsLocalizarAvancado()
frmPesquisaAvancada.Show
End Sub

Private Sub CommandButton1_Click()
Dim currentFind As Excel.Range
Dim firstFind As Excel.Range
Dim lQtdePlan As Integer
Dim lPlanAtual As Integer
Dim lPlanFim As Boolean

lQtdePlan = Worksheets.Count
lPlanAtual = 1
lPlanFim = False

listResultado.Clear

While lPlanAtual <= lQtdePlan

Set currentFind = Worksheets(lPlanAtual).Range("A1:XFD1048576").Find(txtPesquisa.Text, , _
Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)

Set firstFind = Nothing

While Not currentFind Is Nothing And lPlanFim = False
If firstFind Is Nothing Then
Set firstFind = currentFind
ElseIf currentFind.Address = firstFind.Address Then
lPlanFim = True
End If
If lPlanFim = False Then
Set currentFind = Worksheets(lPlanAtual).Range("A1:XFD1048576").FindNext(currentFind)
listResultado.AddItem (Worksheets(lPlanAtual).Name & "!" & currentFind.Address)
End If
Wend
lPlanAtual = lPlanAtual + 1
lPlanFim = False
Wend

Sair:
Exit Sub
End Sub

Private Sub listResultado_Click()
Dim lRng As Range
Dim lEndereco() As String

lEndereco = Split(listResultado, "!")

Worksheets(lEndereco(0)).Activate

Set lRng = Range(lEndereco(1))

lRng.Activate
End Sub