Notifications
Clear all

Pesquisar MACRO com Formatação Condicional 2 planilhas

8 Posts
3 Usuários
0 Reactions
1,786 Visualizações
(@brunapucci)
Posts: 0
New Member
Topic starter
 

Bom dia pessoal!
Sou meio leiga com essa parte de macros ainda e estou tentando fazer uma que tenha um botão pesquisar, que eu digite uma palavra e ela localize a mesma. Porém, preciso que esse mesmo valor localizado, seja localizado também, ao mesmo tempo, em uma outra planilha (arquivos diferentes, não abas diferentes).
EX: Planilha 1: Estoque
Planilha 2: SAP
Cliquei em um botão, abriu pesquisar! Digito o valor que quero encontrar. Localizou tanto na planilha 1, quanto na planilha 2.

Fiz um código aqui pra um UserForm1, com um botão OK , e um botão Sair da seguinte maneira:

Private Sub btOK_Click()
Cells.Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Strikethrough = False
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
Unload UserForm1

Exit Sub
End Sub

Neste caso ele está localizando valores iguais numa mesma planilha e eu não consegui fazer com que eu digite o valor a ser pesquisado.

E depois,

Private Sub btLimpar_Click()

    Cells.FormatConditions.Delete
    Unload UserForm1
Exit Sub
End Sub

Apenas para limpar a pesquisa feita.

Alguém consegue me ajudar?!
Agradeço!

 
Postado : 28/09/2017 4:57 am
(@brunoxro)
Posts: 0
New Member
 

Boa noite,

Anexe uma planilha de exemplo. Assim fica mais fácil tentar ajudar.

att,

 
Postado : 28/09/2017 5:00 pm
(@brunapucci)
Posts: 0
New Member
Topic starter
 

Bom dia!

Obrigada pela disposição!

Boa noite,

Anexe uma planilha de exemplo. Assim fica mais fácil tentar ajudar.

att,

Anexei o que consegui fazer!!

 
Postado : 29/09/2017 4:35 am
(@brunoxro)
Posts: 0
New Member
 

Boa tarde,

Os dois arquivos são iguais? Tem que pesquisar em toda a planilha ou em apenas uma coluna? Em resumo, explique mais detalhadamente (passo a passo) o processo que você que fazer.

att,

 
Postado : 29/09/2017 12:19 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite brunapucci

Não poste em tópico dos outros. (Já excluí a postagem que você havia feito em um tópico de outro usuário)

Como você é novata, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

 
Postado : 29/09/2017 4:04 pm
(@brunapucci)
Posts: 0
New Member
Topic starter
 

Boa tarde,

Os dois arquivos são iguais? Tem que pesquisar em toda a planilha ou em apenas uma coluna? Em resumo, explique mais detalhadamente (passo a passo) o processo que você que fazer.

att,

Bom dia Bruno!!

- São arquivos diferentes;
- Tem que pesquisar em toda a planilha;
Na planilha que mandei, tem um botão. Eu quero que ao clicar no botão, abra a caixa UserForm com o campo da pesquisa e dois botões: OK pra gerar a pesquisa e Limpar para limpar a pesquisa.
Essa pesquisa deve ser feita em duas planilhas diferentes, encontrando os resultados iguais simultaneamente de toda planilha, não apenas de uma única coluna.
Ao clicar no Limpar, ele limpa essa pesquisa e os dados encontrados iguais.
Anexei a outra planilha que sera utilizada pra ser o vínculo de valores.

Obrigada!!!

 
Postado : 02/10/2017 4:25 am
(@brunoxro)
Posts: 0
New Member
 

Boa noite,

Olhando suas planilhas de exemplo, só tem um probleminha. Nenhuma informação contida numa célula de uma planilha tem na outra planilha, são completamente diferentes.

att,

 
Postado : 09/10/2017 7:48 pm
(@brunapucci)
Posts: 0
New Member
Topic starter
 

É porque é só pra teste hehe não é a oficial

 
Postado : 10/10/2017 5:41 am