Criando condição para checar células

2024 - VBA & Macros

Post Recente por Wagner Morel 9 anos atrás

4 Posts

3 Usuários

0 Reactions

1,021 Visualizações

RSS

Fabiano

(@alanisfcsm)

Posts: 0

Trusted Member

Topic starter

Bom dia!

Como faço em vba?
Se algumas das células forem diferente de 1 então....
exemplo célula B1, C1, D1, E1, I1

Postado : 04/05/2016 7:56 am

robo8268

(@robo8268)

Posts: 73

Trusted Member

Sub checar()
If Range("B1") <> 1 Then
msgBox "é diferente de 1"
End If
End Sub

Postado : 04/05/2016 8:28 am

Fabiano

(@alanisfcsm)

Posts: 0

Trusted Member

Topic starter

Se eu quiser colocar as outras células do exemplo acima junto com a B1?

Postado : 04/05/2016 8:31 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

alanisfcsm,

Boa tarde!

Sub checar()
     'Se todas as condições tiverem que ser verdadeiras
     If Range("B1").Value <> 1 And Range("C1").Value <> 1 And Range("D1").Value <> 1 And Range("E1").Value <> 1 And Range("I1").Value <> 1 Then
          msgBox "é diferente de 1"
     End If
End Sub

Sub checar()
     'Se apenas uma das condições tivere que ser verdadeira
     If Range("B1").Value <> 1 OR Range("C1").Value <> 1 OR Range("D1").Value <> 1 OR Range("E1").Value <> 1 OR Range("I1").Value <> 1 Then
          msgBox "é diferente de 1"
     End If
End Sub

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 : 04/05/2016 11:09 am