Pergunta : Macro esse pilhas de alvos nas pilhas da mesmo-fileira de uma escala nomeada

Eu preciso um macro que olhe em uma escala nomeada “dings” e para cada pilha nessa escala que avalia PARA RETIFICAR, zerará para fora todas as pilhas na mesma fileira na escala “AllAll”. Em outras palavras se CL17=TRUE (os “dings” estão no CL da coluna), a seguir todas as pilhas na fileira 17 de “AllAll” serão dados um zero.

Thanks,
John class= do

Resposta : Macro esse pilhas de alvos nas pilhas da mesmo-fileira de uma escala nomeada

John,

como isto (ver o exemplo)

Eu supor que os dings e AllAll podem estar em folhas diferentes, o código segurarei o eithe mesmo ou folhas diferentes

Dave



1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

ZeroEm secundário ()
    C não ofuscante como a escala
    Rng1 não ofuscante como a escala
    WS não ofuscante como a folha
    Ajustar WS = escala (“AllAll”). Pai
    Para cada c na escala (“dings”)
        Se UCase$ (c.Value) = “VERDADEIRO” então
            Ajustar rng1 = cruzam-se (escala (“AllAll”), WS. Fileiras (c.Row))
            rng1.Value = “0”
        Terminar se
    Em seguida
Submarino da extremidade
Outras soluções  
 
programming4us programming4us