1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
ZeroEm secundario () C dévil como gama Rng1 dévil como gama WS dévil como hoja de trabajo Fijar WS = gama (“AllAll”). Padre Para cada c en la gama (“dings”) Si UCase$ (c.Value) = “VERDAD” entonces Fijar rng1 = se intersecan (gama (“AllAll”), WS. Filas (c.Row)) rng1.Value = “0” Terminar si Después Submarino del extremo