Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
if para verificar m...
 
Notifications
Clear all

if para verificar mais de um nome

 
2024 - VBA & Macros
Post Recente por gfranco 6 anos atrás
5 Posts
4 Usuários
0 Reactions
1,051 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, bom dia!

eu tenho uma linha de código que preciso alterar:

atual

If [a2] = ricardo Then ' aqui ele verifica apenas um, eu preciso verificar mais nomes (exemplo: 3 nomes)

pretendido

If [a2] = ricardo AND marcelo AND  joao

código completo

Sub Importar()
    Application.ScreenUpdating = False
    Sheets("Controle").Select
    ActiveWorkbook.XmlMaps("cadastro_Mapa").Import URL:="C:teste.xml"
    Range("B6:B9").Select
    Selection.Cut
    Range("B2").Select
    ActiveSheet.Paste
    Range("C10:C13").Select
    Selection.Cut
    Range("C2").Select
    ActiveSheet.Paste
    Rows("6:6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("A2").Select
    If [a2] = ricardo Then ' preciso verificar mais de um nome (exemplo: 3 nomes)
    MsgBox "OS DADOS FORAM IMPORTADOS COM SUCESSO!", vbInformation, "CONCLUÍDO"
    Else
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("Tabela2[fornecedor]").Select
    MsgBox "NÃO FOI POSSÍVEL IMPORTAR OS DADOS!" & Chr(13) & "VERIFIQUE SUA LISTA DE FORNECEDORES ACEITOS.", vbCritical, "ERRO"
    End If
    Application.ScreenUpdating = True
End Sub

Arquivos de exemplo anexo.

muito obrigado a todos.

 
Postado : 18/06/2018 6:17 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

JNEXCEL,

Bom dia!

Substitua por:

'Se os nomes não forem variáveis, use-os entre aspas (" "). No seu código ricardo está sem aspas... por isso não sei se é uma variável ou não
If [a2] = "ricardo" Or  [a2] = "raimundo"  Or [a2] = "pedro" Then

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 : 18/06/2018 6:28 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

https://www.techonthenet.com/excel/formulas/and_vba.php

 
Postado : 18/06/2018 6:39 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, peço PERDÃO pelo erro. :shock: :shock:

Eu acabei referenciando apenas a célula a2 como regra de validação.

me perdoem pelo erro :( :(

eu preciso de uma ajuda para a coluna inteira

segue o código que eu tenho

Sub TESTEIF()
If [A2] = "RICARDO" Or [A2] = "MARCELO" Or [A2] = "JOÃO" Then
MsgBox "NOME VÁLIDO"
Else
MsgBox "VERIFIQUE O NOME"
End If
If [A3] = "RICARDO" Or [A3] = "MARCELO" Or [A3] = "JOÃO" Then
MsgBox "NOME VÁLIDO"
Else
MsgBox "VERIFIQUE O NOME"
End If
If [A4] = "RICARDO" Or [A4] = "MARCELO" Or [A4] = "JOÃO" Then
MsgBox "NOME VÁLIDO"
Else
MsgBox "VERIFIQUE O NOME"
End If
' hoje eu faço célula por célula (nesse exemplo eu fiz de a2 até a4), mas se fossem de a2 até a500 :(
' com eu não sei até qual célula da coluna A será preenchida, eu preciso de um IF para a coluna inteira
' alguém poderia me dar uma luz ?
' MUITO OBRIGADO
End Sub
 
Postado : 18/06/2018 1:51 pm
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Boa tarde.
Veja se o que fiz te ajuda.

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 18/06/2018 2:26 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico