psyckiller,

Creio que não entendi a sua solicitação, pois, se é possível usar da forma que você mesmo colocou com exemplo (fazendo referência à própria célula) porque utilizar VBA?

psyckiller,

Creio que não entendi a sua solicitação, pois, se é possível usar da forma que você mesmo colocou com exemplo (fazendo referência à própria célula) porque utilizar VBA?

porque são muitas células... e não tem como puxar pois a fórmula contém referência absoluta $A$1:$F$1; por isso eu copiei a fórmula com $A$9999:$F$9999 para substituir os 9999 pelo valor que está na célula superior, será que não tem jeito de criar uma macro para fazer isso? eu tentei fazer uma macro copiando o conteúdo da célula superior, mas não deu certo, se alguém puder ajudar eu agradeço.

Eu ainda não entendi o desejado. O que considera "valor que está na célula superior" ??

... e não tem como puxar pois a fórmula contém referência absoluta $A$1:$F$1

Igual aos outros, eu ainda não consegui entender. Porque vc simplesmente não tira a referência absoluta, ou seja, deixa como relativa e arrasta?

Eu ainda não entendi o desejado. O que considera "valor que está na célula superior" ??

o que eu quero é bem simples... uma macro que copie o conteúdo de uma célula e cole em parte do conteúdo de outra célula ex.:

na célula "A1" tem o número "1"
na célula "A2" tem uma fórmula com referência absoluta "$A$9999:$F$9999"

o que eu preciso é de uma macro que pegue o "1" da célula "A1" e cole no lugar dos "9999" na célula "A2"... não sei se é possível... desde já agradeço

Experimente:

Sub Susbstituir()
Dim x As Long
'Altere para o nome de sua planilha se necessario
With Sheets("Plan1")
'Considerando inicio na coluna G até BE
    For x = 7 To .Range("BE1").Column
        .Cells(2, x).Formula = Replace(.Cells(2, x).Formula, 9999, .Cells(1, x).Value, 1, -1, vbBinaryCompare)
    Next
End With
End Sub

Tentei montar umn exemplo baseado em suas informações, mas não me encontrei, alem de eu não ser expert em fomulas.
Acredito que a dica do Reinaldo resolverá sua questão, mas como comentou de trocar o Numero Referenciado na Formula, montei um pequeno exemplo com a Função Indireto e Cont.Se, é mais para ver se ajuda, uma vez que quer isto em macro.

Indireto Dinamico

[]a

o código do Reinaldo quase resolveu o problema é que na planilha as fórmulas não estão numa mesma linha, elas estão descendo como em uma escada vou anexar a planilha pra vcs entenderem o que eu quero, desde já agradeço a todos pelo empenho.

ps.: não precisa ser por macro, se tiver uma maneira com fórmula tb serve.

Em H2 faça a seguinte matricial:

{=SE(COLS($G1:G1)<>LIN()-1;"";SOMA(CONT.SE($A1:$F1;$A2:$F2)))}

Arraste para o lado e para baixo,

Abs,

Experimente:

Sub SCascata()
Dim x As Long, y As Long
y = 8 'Iniciando coluna H
With Sheets("plan1")
    'Inicia na linha 2 até a ultima linha da coluna A com valor
    For x = 2 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
        .Cells(x, y).Formula = Replace(.Cells(x, y).Formula, 9999, .Cells(1, y).Value, 1, -1, vbBinaryCompare)
    'Incrementa 1 na coluna
    y = y + 1
    Next
End With
End Sub

Em H2 faça a seguinte matricial:

{=SE(COLS($G1:G1)<>LIN()-1;"";SOMA(CONT.SE($A1:$F1;$A2:$F2)))}

Arraste para o lado e para baixo,

Abs,

Caro Reinaldo, ainda não deu certo para o que eu estava querendo, estou enviando novamente a planilha, quero que o restante da planilha fique como nas colunas pintadas em amarelo, elas vão descendo numa sequencia, essa é só uma parte da planilha, ela completa tem 2242 linhas e 2242 colunas eu estava substituindo os 9999 com o recurso Ctrl+U do excel, então resolvi procurar ajuda pra ver se não tem como automatizar isso.

Em G2 faça a seguinte matricial:

{=SE(COLS($G1:G1)>LIN()-1;"";SOMA(CONT.SE(INDIRETO("$A"&COL()-6&":$F"&COL()-6);$A2:$F2)))}

Arraste para o lado e para baixo.

Me avise.

Abs,

Não é apenas substituir mas incluir formulas tambem ???
Creio que o melhor e utilizar a excelente proposta do colega Mandrix
veja no seu anexo como fica com essa proposta

Em G2 faça a seguinte matricial:

{=SE(COLS($G1:G1)>LIN()-1;"";SOMA(CONT.SE(INDIRETO("$A"&COL()-6&":$F"&COL()-6);$A2:$F2)))}

Arraste para o lado e para baixo.

Me avise.

Abs,

poderia me explicar detalhadamente como funciona essa fórmula

obrigado