Estou com um probleminha... Acontece que eu preciso todo mês atualizar uma
planilha de gastos aqui de onde eu trabalho e nessa planilha existe uma
fórmula que traz o valor da soma de todos os meses anteriores até o mês
corente. Eu tenho uma macro que agrupa e desagrupa as colunas, mas eu preciso
de uma macro que faça mais ou menos os seguinte:
Eu tendo essa fórmula:
"=+E10+G10+I10+K10+M10+O10+Q10+S10"
No mês q vem eu preciso q ela fique assim:
"=+E10+G10+I10+K10+M10+O10+Q10+S10+U10"
Será q alguém poderia me ajudar?
Muito obrigado!

Oi Scaroni,

experimente este procedimento:

Sub CriaFormula()
Dim intMes As Integer
Dim i As Integer
Dim j As Integer
Dim strFormula As String

'Mês atual
intMes = Month(Date)

strFormula = "="

'A partir da quinta coluna, pulando uma para
'cada mês
j = 5
For i = 1 To intMes
strFormula = strFormula & "+R10C" & j
'pula uma coluna
j = j + 2
Next i

'Célula onde vai ser colocada a fórmula:
Range("A1").FormulaR1C1 = strFormula

End Sub

--
Luiz Cláudio C. V. Rocha
Coordenador de Projetos FórumAccess
São Paulo - Brasil
MVP Office
http://www.msmvps.com/officedev


"Scaroni" escreveu:

> Estou com um probleminha... Acontece que eu preciso todo mês atualizar uma
> planilha de gastos aqui de onde eu trabalho e nessa planilha existe uma
> fórmula que traz o valor da soma de todos os meses anteriores até o mês
> corente. Eu tenho uma macro que agrupa e desagrupa as colunas, mas eu preciso
> de uma macro que faça mais ou menos os seguinte:
> Eu tendo essa fórmula:
> "=+E10+G10+I10+K10+M10+O10+Q10+S10"
> No mês q vem eu preciso q ela fique assim:
> "=+E10+G10+I10+K10+M10+O10+Q10+S10+U10"
> Será q alguém poderia me ajudar?
> Muito obrigado!

Nossa, kra, funcionou perfeitamente!!!!! Eu ainda não tou familiarizado com
essa funcionalidade do excel, mas td bem...
Eu tenho uma q atualiza fórmulas, mas ela pega e só atualiza 2 células e ela
mexe com a primeira célula tb, e não é isso q eu quero!
Muito obrigado msm, kra!
--
"Quem dá e depois tira com o diabo fica, sua mão se danifica, sua vó será
maldita e sua sogra ressuscita!"


"Luiz Cláudio C. V. Rocha" escreveu:

> Oi Scaroni,
>
> experimente este procedimento:
>
> Sub CriaFormula()
> Dim intMes As Integer
> Dim i As Integer
> Dim j As Integer
> Dim strFormula As String
>
> 'Mês atual
> intMes = Month(Date)
>
> strFormula = "="
>
> 'A partir da quinta coluna, pulando uma para
> 'cada mês
> j = 5
> For i = 1 To intMes
> strFormula = strFormula & "+R10C" & j
> 'pula uma coluna
> j = j + 2
> Next i
>
> 'Célula onde vai ser colocada a fórmula:
> Range("A1").FormulaR1C1 = strFormula
>
> End Sub
>
> --
> Luiz Cláudio C. V. Rocha
> Coordenador de Projetos FórumAccess
> São Paulo - Brasil
> MVP Office
> http://www.msmvps.com/officedev
>
>
> "Scaroni" escreveu:
>
> > Estou com um probleminha... Acontece que eu preciso todo mês atualizar uma
> > planilha de gastos aqui de onde eu trabalho e nessa planilha existe uma
> > fórmula que traz o valor da soma de todos os meses anteriores até o mês
> > corente. Eu tenho uma macro que agrupa e desagrupa as colunas, mas eu preciso
> > de uma macro que faça mais ou menos os seguinte:
> > Eu tendo essa fórmula:
> > "=+E10+G10+I10+K10+M10+O10+Q10+S10"
> > No mês q vem eu preciso q ela fique assim:
> > "=+E10+G10+I10+K10+M10+O10+Q10+S10+U10"
> > Será q alguém poderia me ajudar?
> > Muito obrigado!

Só mais uma pergunta: Teria algum modo de atualizar automaticamente a coluna
toda?
Eu tenho a seguinte macro:
"Private Sub atualiza(plan As String, ParamArray r() As Variant)
Dim i As Byte
For i = 0 To UBound(r())
Sheets(plan).Range(r(i)).Copy Sheets(Sheets.Count).Range(r(i)).Offset(0, 1)
Sheets(plan).Range(r(i)).FormulaLocal =
Sheets(Sheets.Count).Range(r(i)).Offset _(0, 1).FormulaLocal
Next i
End Sub"
Ela recebe o nme de um plan e uma coluna como parâmetros e atualiza a coluna
toda automaticamente.
Será q se eu usar o range q eu tenho nessa macro ele atualiza a coluna toda?
Abraço!

--
"Quem dá e depois tira com o diabo fica, sua mão se danifica, sua vó será
maldita e sua sogra ressuscita!" -
Chaves


"Scaroni" escreveu:

> Nossa, kra, funcionou perfeitamente!!!!! Eu ainda não tou familiarizado com
> essa funcionalidade do excel, mas td bem...
> Eu tenho uma q atualiza fórmulas, mas ela pega e só atualiza 2 células e ela
> mexe com a primeira célula tb, e não é isso q eu quero!
> Muito obrigado msm, kra!
> --
> "Quem dá e depois tira com o diabo fica, sua mão se danifica, sua vó será
> maldita e sua sogra ressuscita!"
>
>
> "Luiz Cláudio C. V. Rocha" escreveu:
>
> > Oi Scaroni,
> >
> > experimente este procedimento:
> >
> > Sub CriaFormula()
> > Dim intMes As Integer
> > Dim i As Integer
> > Dim j As Integer
> > Dim strFormula As String
> >
> > 'Mês atual
> > intMes = Month(Date)
> >
> > strFormula = "="
> >
> > 'A partir da quinta coluna, pulando uma para
> > 'cada mês
> > j = 5
> > For i = 1 To intMes
> > strFormula = strFormula & "+R10C" & j
> > 'pula uma coluna
> > j = j + 2
> > Next i
> >
> > 'Célula onde vai ser colocada a fórmula:
> > Range("A1").FormulaR1C1 = strFormula
> >
> > End Sub
> >
> > --
> > Luiz Cláudio C. V. Rocha
> > Coordenador de Projetos FórumAccess
> > São Paulo - Brasil
> > MVP Office
> > http://www.msmvps.com/officedev
> >
> >
> > "Scaroni" escreveu:
> >
> > > Estou com um probleminha... Acontece que eu preciso todo mês atualizar uma
> > > planilha de gastos aqui de onde eu trabalho e nessa planilha existe uma
> > > fórmula que traz o valor da soma de todos os meses anteriores até o mês
> > > corente. Eu tenho uma macro que agrupa e desagrupa as colunas, mas eu preciso
> > > de uma macro que faça mais ou menos os seguinte:
> > > Eu tendo essa fórmula:
> > > "=+E10+G10+I10+K10+M10+O10+Q10+S10"
> > > No mês q vem eu preciso q ela fique assim:
> > > "=+E10+G10+I10+K10+M10+O10+Q10+S10+U10"
> > > Será q alguém poderia me ajudar?
> > > Muito obrigado!

Já dei um jeit aki, kra, é só tirar o "10" da frente do "R" e td funciona!
Valew msm, kra!!!!!
--
"Quem dá e depois tira com o diabo fica, sua mão se danifica, sua vó será
maldita e sua sogra ressuscita!" -
Chaves


"Scaroni" escreveu:

> Estou com um probleminha... Acontece que eu preciso todo mês atualizar uma
> planilha de gastos aqui de onde eu trabalho e nessa planilha existe uma
> fórmula que traz o valor da soma de todos os meses anteriores até o mês
> corente. Eu tenho uma macro que agrupa e desagrupa as colunas, mas eu preciso
> de uma macro que faça mais ou menos os seguinte:
> Eu tendo essa fórmula:
> "=+E10+G10+I10+K10+M10+O10+Q10+S10"
> No mês q vem eu preciso q ela fique assim:
> "=+E10+G10+I10+K10+M10+O10+Q10+S10+U10"
> Será q alguém poderia me ajudar?
> Muito obrigado!

Exato,

o 10 é que fixa a linha. Sem ele, vale a coluna toda.


--
Luiz Cláudio C. V. Rocha
Coordenador de Projetos FórumAccess
São Paulo - Brasil
MVP Office
http://www.msmvps.com/officedev


"Scaroni" escreveu:

> Já dei um jeit aki, kra, é só tirar o "10" da frente do "R" e td funciona!
> Valew msm, kra!!!!!
> --
> "Quem dá e depois tira com o diabo fica, sua mão se danifica, sua vó será
> maldita e sua sogra ressuscita!" -
> Chaves
>
>
> "Scaroni" escreveu:
>
> > Estou com um probleminha... Acontece que eu preciso todo mês atualizar uma
> > planilha de gastos aqui de onde eu trabalho e nessa planilha existe uma
> > fórmula que traz o valor da soma de todos os meses anteriores até o mês
> > corente. Eu tenho uma macro que agrupa e desagrupa as colunas, mas eu preciso
> > de uma macro que faça mais ou menos os seguinte:
> > Eu tendo essa fórmula:
> > "=+E10+G10+I10+K10+M10+O10+Q10+S10"
> > No mês q vem eu preciso q ela fique assim:
> > "=+E10+G10+I10+K10+M10+O10+Q10+S10+U10"
> > Será q alguém poderia me ajudar?
> > Muito obrigado!