Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para buscas C...
 
Notifications
Clear all

Macro para buscas CNPJ na planilha

 
2024 - VBA & Macros
Post Recente por Delilo 7 anos atrás
5 Posts
2 Usuários
0 Reactions
698 Visualizações
RSS
 Delilo
(@delilo)
Posts: 0
New Member
Topic starter
 

Tudo certo pessoal, sou iniciante no excel, pesquisando e quebrando a cabeça estou conseguindo me virar porem estou com codigo que não consigo resolver, tenho uma planilha com 18 cnpj que vão do A1 ao A18, e não estou conseguindo colsultar esses cnpj, consigo escrever para cunsultar o A1 somente :cry:
Desde já agradeço a quem puder me dar uma direção 

Private Sub fb_Click()

   If cnpj.Text = Plan7.Range("A1") Then
    Application.Visible = True
    Plan2.Activate
    Unload Acesso
    
    Else
    MsgBox "CNPJ Inválido", vbCritical, "Alerta"
    
    End If
    
    Dim linha As Integer
        Plan2.Range("C4").value = cnpj
    
      
      
End Sub
 
Postado : 06/12/2017 6:27 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Dellio,

Bom dia!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras 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

Solicitamos, por gentileza, ao inserir código VBA aqui no fórum, utilizar a ferramenta CODE existente no início na caixa de mensagens (use o botão EDITAR na sua mensagem e verá como fiz para inserir seu códigos entre as palavras-chave CODE e /CODE).

Quanto a sua dúvida, solicitamos também que nas próxima dúvidas inseridas, você anexe, aqui mesmo no fórum, um arquivo exemplo, compactado com .ZIP, para facilitar a rápida resposta por parte de todos. Fiz um exemplo.

Veja se é assim.

Macro para Buscar CNPJ.zip
 
Postado : 06/12/2017 8:34 am
 Delilo
(@delilo)
Posts: 0
New Member
Topic starter
 

Bom dia, ficarei mais atento, muito obrigado Wagner!!

 
Postado : 06/12/2017 8:37 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Editei a minha mensagem anterior e anexei um arquivo. Veja se é dessa forma que queria.

 
Postado : 06/12/2017 8:58 am
 Delilo
(@delilo)
Posts: 0
New Member
Topic starter
 

Exatamente Mestre, muito obrigado :D

 
Postado : 06/12/2017 10:35 am
Forum Jump:
  Tópico Anterior
Próximo Tópico