Macro para buscas CNPJ na planilha
Enviado: 06 Dez 2017 às 10:41
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
Desde já agradeço a quem puder me dar uma direção

Desde já agradeço a quem puder me dar uma direção
Código: Selecionar todos
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