Macro para buscas CNPJ na planilha

2024 - VBA & Macros

Post Recente por Delilo 7 anos atrás

5 Posts

2 Usuários

0 Reactions

703 Visualizações

RSS

Delilo

(@delilo)

Posts: 3

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: 0

Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 06/12/2017 8:34 am