espero que se encuentren bien. Cree una macro que trabaja con una celda y cuatro valores: Ashi, Jack, Planetina y Morty, los cuales están distribuidos en dos parejas como lo muestro abajo. Yo quiero que la celda valga uno si, por lo menos, hay un miembro de cada pareja que vale uno (Ej, si Morty y Ashi valen uno, o Jack y Planetina) y que valga cero en caso contrario (Ej, si solo Jack y Ashi valen 1, o solo Morty).
Al construir mi bloque If, me percato de que hace que la celda valga uno cuando Ashi es igual a 1 y los demás 0, cuando tendría que hacerlo sólo si también Morty o Planetina son 1. Necesitaría saber cómo ordenar los conectores Or y And para que me funcionen correctamente. Desde ya muchas gracias.
Sub Prueba()
Dim Ashi, Jack, Planetina, Morty As Byte
Dim Celda As Range
Set Celda = Sheets("Hoja1").Range("A1")
'PAREJA 1
Ashi = 1
Jack = 0
'PAREJA 2
Planetina = 0
Morty = 0
If Ashi = 1 Or Jack = 1 And Planetina = 1 Or Morty = 1 Then
Celda.Value = 1
Else
Celda.Value = 0
End If
End Sub
Dim Ashi, Jack, Planetina, Morty As Byte
solo declaras como Byte Morty, las demás son tipo variant. Especifica SIEMPRE el tipo de variable. 2) Mirate SELECT CASE, creo que puede ayudarte en tu lógica mejor que IF