Condicional con OR. Problemas para usarlo. EXCEL
Chicos no logro hacer un condicional en VBA con el OR. Tengo muchos condicionales iguales por serparado y me gustaría ahorrar lienas de código usando el OR.
Esto es lo que tengo.
If Formulari.tipologia_final.Caption = "CC" Then FA_fix.Visible = True FA.Visible = True full.Visible = True FA_fix.Enabled = True FA.Enabled = True full.Enabled = True End If If Formulari.tipologia_final.Caption = "CGG" Then FA_fix.Visible = True FA.Visible = True full.Visible = True FA_fix.Enabled = True FA.Enabled = True full.Enabled = True End If If Formulari.tipologia_final.Caption = "SSCC" Then FA_fix.Visible = True FA.Visible = True full.Visible = True FA_fix.Enabled = True FA.Enabled = True full.Enabled = True End If If Formulari.tipologia_final.Caption = "CM" Then FA_fix.Visible = True FA.Visible = True full.Visible = True FA_fix.Enabled = True FA.Enabled = True full.Enabled = True End If
He intentado esto pero me da error:
If Formulari.tipologia_final.Caption = "CC" or "CGG" or "SSCC" or "CM" Then FA_fix.Visible = True FA.Visible = True full.Visible = True FA_fix.Enabled = True FA.Enabled = True full.Enabled = True End If
que es lo que hago mal?
1 Respuesta
Respuesta
1
La comparación debe ser "completa", deberías escribirlo así:
If Formulari.tipologia_final.Caption = "CC" or _ Formulari.tipologia_final.Caption = "CGG" or _ Formulari.tipologia_final.Caption = "SSCC" or _ Formulari.tipologia_final.Caption = "CM" Then FA_fix.Visible = True FA.Visible = True full.Visible = True FA_fix.Enabled = True FA.Enabled = True full.Enabled = True End If
Salu2