Colocar fórmulas na célula

2024 - VBA & Macros

Post Recente por _Will_ 7 anos atrás

4 Posts

3 Usuários

0 Reactions

1,162 Visualizações

RSS

_Will_

(@_will_)

Posts: 47

Trusted Member

Topic starter

Olá pessoal,
poderia me ajudar?
Esta macro não está funcionando, onde será que estou errando?
A idéia é colocar a fórmula na coluna 22 somente se na coluna "A" estiver preenchida.

Obrigado

Sub Macro1()
'

    Dim CV As Date

    Range("A2").Select
    
    Do While ActiveCell <> ""
    
    CV = ActiveCell.Offset(0, 22).FormulaR1C1 = _
        "=IF(RC[-13]=0,"""",RIGHT(RC[-13],2)&""/""&LEFT(RIGHT(RC[-13],4),2)&""/""&LEFT(RC[-13],4))"

    ActiveCell.Offset(1, 0).Select
 
    Loop
    
    
End Sub

Postado : 24/08/2017 1:20 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Veja se te atende.

Abraços!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 24/08/2017 1:36 pm

Osvaldomp

(@osvaldomp)

Posts: 858

Prominent Member

Sub InsereFórmula()
 Range("V1:V" & Cells(Rows.Count, 1).End(3).Row).FormulaR1C1 = _
 "=IF(RC[-13]=0,"""",RIGHT(RC[-13],2)&""/""&LEFT(RIGHT(RC[-13],4),2)&""/""&LEFT(RC[-13],4))"
End Sub

Osvaldo

Postado : 24/08/2017 1:54 pm