Ola.
Nem sei se alguem vai conseguir me ajudar, mas...
estou tentando fazer uma macro que aplica formular com deslocamento dinâmico
eu consegui fazer
mas como tem troca de NUMERO DE COLUNA e LETRA DE COLUNA em um loop fica lento .
-------------------------------------------------------------------------------------------------------------------
For gfd = 1 To 20
For sto = 1 To scn
For Cs = 0 To Ma + 3
Cg(sto) = Cells(1, Cx(sto) + Cs).Address' --<<--pega NUMERO de coluna e transforma em endereço de celula "G1"
Cg(sto) = Mid(Cg(sto), InStr(Cg(sto), "$") + 1, InStr(2, Cg(sto), "$") - 2) ' --<<--pega o endereço de celula e transforma em LETRA de coluna
Cells(L, cd + Cs).FormulaLocal = "=SE(" & Cg(sto) & Lg & "<>"""";" & Cg(sto) & Lg & ";"""")" '--<<-- monta a formula
Next
L = L - 1
Next
Lg = Lg - 1
Next
-----------------------------------------------------------------------------------------------------------------
bem, a macro funciona, mas como é para ser aplicada de acordo com a necessidade não pode demorar a ser aplicada.
existe maneira de transformar Numero de coluna em Letra de coluna sem ter que fazer esse processo todo ????
ou existe maneira de montar a formula sem ter que transformar o numero de coluna em letra de coluna ???
Estava pensando numa maneira de transformar as letras de colunas para o padrão RC de formula antes de entrar no loop
Mas como a posição de onde pega e de onde cola a formula varia dentro do processo estou confuso de como fazer
Ps.
Não postei uma planilha de exemplo pq além de ter outros processo e macros envolvidos essa é apenas uma formula experimental.
Att.
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 15/07/2014 6:00 pm