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,048 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-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