Notifications

Clear all

Descarregar Formula usando .offset(rowcount,1).value="FmlaSE

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

7 Posts

2 Usuários

0 Reactions

1,054 Visualizações

RSS

AdailtonFG

(@adailtonfg)

Posts: 12

Active Member

Topic starter

estou quebrando a cabeça para fazer com q a célula receba =SE(D2<>"";SE(O2<>"Baixado";HOJE()-D2;P2-D2);"-")

estou usando o as seguintes instruções...

rowcount = Worksheets("impressas").Range("a1").CurrentRegion.Rows.Count
With Worksheets("impressas").Range("a1")
.Offset(rowcount, 0).Value = Me.trfa.Value
.Offset(rowcount, 16).Value = Application.ActiveCell.FormulaR1C1 = _
"=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

Sheets("Aut.Coleta").Select
End With

porem na planilha a célula esta recebendo = "FALSO"
como posso utilizar o código sem que a célula receba o valor "FALSO" e sim a formula "SE"

>AFG<

Postado : 20/06/2014 12:02 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Mude a linha em vermelho...

Para:

rowcount = Worksheets("impressas").Range("a1").CurrentRegion.Rows.Count
With Worksheets("impressas").Range("a1")
.Offset(rowcount, 0).Value = Me.trfa.Value
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"
Sheets("Aut.Coleta").Select
End With

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 20/06/2014 12:26 pm

AdailtonFG

(@adailtonfg)

Posts: 12

Active Member

Topic starter

Mude a linha em vermelho...
rowcount = Worksheets("impressas").Range("a1").CurrentRegion.Rows.Count
With Worksheets("impressas").Range("a1")
.Offset(rowcount, 0).Value = Me.trfa.Value
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"
Sheets("Aut.Coleta").Select
End With

Ainda Continua recebendo o valor ="FALSO" ao invés da formula "se"

>AFG<

Postado : 20/06/2014 12:34 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Compacte e poste seu modelo.

Não faz sentido ter dado errado novamente, pois o que vc usa:
.Offset(rowcount, 16).Value = Application.ActiveCell.FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

é uma comparação, e por isso está resultando em falso. pq a formular1c1 atual da célula é diferente do texto que vc quer inserir como fórmula.

Quando eu mandei a nova linha, isso não é mais uma comparação e a fórmula deveria aparecer escrita perfeitamente na célula. Então imagino que vc fez algo errado ao aplicar a solução proposta.
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 20/06/2014 12:35 pm

AdailtonFG

(@adailtonfg)

Posts: 12

Active Member

Topic starter

Compacte e poste seu modelo.

Não faz sentido ter dado errado novamente, pois o que vc usa:
.Offset(rowcount, 16).Value = Application.ActiveCell.FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

é uma comparação, e por isso está resultando em falso. pq a formular1c1 atual da célula é diferente do texto que vc quer inserir como fórmula.

Quando eu mandei a nova linha, isso não é mais uma comparação e a fórmula deveria aparecer escrita perfeitamente na célula. Então imagino que vc fez algo errado ao aplicar a solução proposta.
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

FF

A Planilha esta em anexo.... executa ela ai pfrv.

>AFG<

Postado : 20/06/2014 12:57 pm

AdailtonFG

(@adailtonfg)

Posts: 12

Active Member

Topic starter

Compacte e poste seu modelo.

Não faz sentido ter dado errado novamente, pois o que vc usa:
.Offset(rowcount, 16).Value = Application.ActiveCell.FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

é uma comparação, e por isso está resultando em falso. pq a formular1c1 atual da célula é diferente do texto que vc quer inserir como fórmula.

Quando eu mandei a nova linha, isso não é mais uma comparação e a fórmula deveria aparecer escrita perfeitamente na célula. Então imagino que vc fez algo errado ao aplicar a solução proposta.
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

FF

A frm esta em anexo.... executa ela ai pfrv.