Fóruns Microsoft Excel - 2... 2024 - VBA & Macros Criando condição pa... Notifications Clear all Criando condição para checar células 2024 - VBA & Macros Post Recente por Wagner Morel 8 anos atrás 4 Posts 3 Usuários 0 Reactions 985 Visualizações RSS Fabiano (@alanisfcsm) Posts: 0 New 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: 0 New 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 New 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: 4063 Famed 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 Postado : 04/05/2016 11:09 am Super Globals Requests: Server: Options and Features route: community use_home_url: url: https://planilhando.com.br/community/ pageid:1 default_groupid: 3 2022