Este fórum está sendo desativado

[Delillo]

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

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

[wesleyribeiro123]

Dellilo
Boa tarde,

Te aconselho pesquisar e dar uma boa estudada em Laços de Repetição, são diversos laços que você verá ser possível no VBA, para este teu caso eu usaria um FOR ... NEXT e já resolveremos o problema.

Acho pouco provável eu acertar o código sem ver a planilha, mas vamos lá, se não ficar totalmente correto, tire pelo menos a ideia e implemente teu código:

Código: Selecionar todos

Private Sub fb_Click()
Dim uLin as Integer
uLin = Plan7.Cells(Rows.Count, 1).End(xlUp).Row 'Nesta linha estamos identificando tua última célula preenchida

For x=1 to uLin 'Estamos informando que o laço deve percorrer da 1ª até última linha preenchida
If cnpj.Text = Plan7.Cells(x,1) Then
    Plan7.cells(x,1).Select
    Exit For
End If

If x=uLin then
   MsgBox = "CNPJ não identificado)
End If
Next x

End Sub

Espero ter ajudado, se não conseguir implementar, seria bem interessante postar uma cópia de tua planilha para que possamos entender melhor tuas necessidades, mesmo que seja com dados fictícios!!!!

[Delillo]

Muito obrigado Wesley, consegui!!