Abç

Obrigado mais uma vez. Paulo.

Você baixou o arquivo de exemplo.
Teste a partir dele. Pode ser que você tenha copiado e colado o código do site, e com isso, a formatação dos códigos HTML esteja dando conflito…

Abç

Obrigado e parabéns pelo site.

Private Sub ProcuraPersonalizada(ByVal TermoPesquisado As String)
Dim Busca As Range

Dim Primeira_Ocorrencia As String
Dim Resultados As String

‘Executa a busca
Set Busca = Plan1.Cells.Find(What:=TermoPesquisado, After:=Range(“A1″), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Sugiro que corrija todas as aspas duplas (“) do código.
Pode ser que você tenha colado direto do site e o VBA não interpretou corretamente as aspas.

Abç

fiz a alteracao, mas continuo com o seguinte erro:

Set BUSCA = Sheets(“Catálogo”).Find(What:=TermoPesquisado, After:=Range(“A:A”), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

pode me ajudar?

obrigado.

Ricardo

Sheets(“Catálogo”)

Acredito que fazendo esta correção sua macro já vai rodar perfeitamente,

Abç

Set BUSCA = CATÁLOGO.Cells.Find(What:=TermoPesquisado, After:=Range(“A:A”), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

OBRIGADO.

BAIXEI O ARQUIVO E COPIEI A “FRMBUSCA” PRA MINHA PLANILHA.

DUVIDA 1: QUERO BUSCAR NAS COLUNAS A,B,C,D NA PLANILHA “CATALOGO”, COMO QUE FACO?

DUVIDA 2: ESTA DANDO O SEGUINTE ERRO, PODE ME JUDAR?

OBS: ALTEREI TODAS AS “PLAN1″ PARA “CATALOGO”.

SEGUE O CODIGO ABAIXO:
Public MatrizResultados As Variant
Public Total_Ocorrencias As Long
Private Sub btn_Procurar_Click()

If Me.txt_Procurar.Text = “” Then
MsgBox “Digite um valor para a pesquisa!”
Else
Call ProcuraPersonalizada(Me.txt_Procurar.Text)
End If

End Sub
Private Sub SpinButton1_Change()
Dim Linha As Long
Dim TotalOcorrencias As Long

TotalOcorrencias = SpinButton1.Max + 1
Linha = MatrizResultados(SpinButton1.Value)

Label_Registros_Contador.Caption = SpinButton1.Value + 1 & ” de ” & TotalOcorrencias
TextBox1.Text = CATÁLOGO.Cells(Linha, 1).Value
TextBox2.Text = CATÁLOGO.Cells(Linha, 2).Value
TextBox3.Text = CATÁLOGO.Cells(Linha, 3).Value
TextBox4.Text = CATÁLOGO.Cells(Linha, 4).Value

End Sub
Private Sub ProcuraPersonalizada(ByVal TermoPesquisado As String)
Dim BUSCA As Range
Dim Primeira_Ocorrencia As String
Dim Resultados As String

‘Executa a busca
Set BUSCA = CATÁLOGO.Cells.Find(What:=TermoPesquisado, After:=Range(“A:A”), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

‘Caso tenha encontrado alguma ocorrência…
If Not BUSCA Is Nothing Then

Primeira_Ocorrencia = BUSCA.Address
Resultados = BUSCA.Row ‘Lista o primeiro resultado na variavel

‘Neste loop, pesquisa todas as próximas ocorrências para
‘o termo pesquisado
Do
Set BUSCA = CATÁLOGO.Cells.FindNext(After:=BUSCA)

‘Condicional para não listar o primeiro resultado
‘pois já foi listado acima
If Not BUSCA.Address Like Primeira_Ocorrencia Then
Resultados = Resultados & “;” & BUSCA.Row
End If
Loop Until BUSCA.Address Like Primeira_Ocorrencia

MatrizResultados = Split(Resultados, “;”)

‘Atualiza dados iniciais no formulário
SpinButton1.Max = UBound(MatrizResultados) ‘Valor maximo do seletor de registros

‘habilita o seletor de registro
SpinButton1.Enabled = True

‘indicador do seletor de registros
Label_Registros_Contador.Caption = “1 de ” & UBound(MatrizResultados) + 1

‘Box com o conteudo encontrado
TextBox1.Text = CATÁLOGO.Cells(MatrizResultados(0), 1).Value
TextBox2.Text = CATÁLOGO.Cells(MatrizResultados(0), 2).Value
TextBox3.Text = CATÁLOGO.Cells(MatrizResultados(0), 3).Value
TextBox4.Text = CATÁLOGO.Cells(MatrizResultados(0), 4).Value

Else ‘Caso nada tenha sido encontrado, exibe mensagem informativa

SpinButton1.Enabled = False ‘desabilita o seletor de registros
Label_Registros_Contador.Caption = “” ‘zera os resultados encontrados
‘limpa os campos do formulário
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
MsgBox “Nenhum resultado para ‘” & TermoPesquisado & “‘ foi encontrado.”

End If

End Sub
Private Sub UserForm_Initialize()

SpinButton1.Enabled = False
Label_Registros_Contador.Caption = “”

End Sub

AGRADECO SUA AJUDA. OBRIGADO!

Teria como fazer os resultados vir como um datagrid ou algio assim.

sds