Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por Delillo
#28637
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
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
#28641
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!!!!
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord