Este fórum está sendo desativado

[SandroLima]

Bom dia, colegas.

Como fica a transcrição dessa fórmula para VBA?

Código: Selecionar todos

SE([@Data]<>"";TEXTO([@Data];"dd");"")

Seria algo mais ou menos assim:

Código: Selecionar todos

With Tabela_Recibos
        .Range(1, 1).Value = MaxNumber
        .Range(1, 4).Value = Date
        .Range(1, 5).Value = 0
        .Range(1, 6).Value = "-"
        .Range(1, 14).Value = "=if([@Data]<>"""";format[@Data];""dd"");"""")"
    End With

Ou assim:

Código: Selecionar todos

With Tabela_Recibos.ListColumns("Dia").DataBodyRange
        .FormulaLocal = "=if([@Data]<>"""";format[@Data];""dd"");"""")"
    End With

Não sei como trancrever... seria para que se o campo data de uma tabela estivesse vazio o campo dia da mesma linha também deve retornar vazio... caso esteja preenchido retornar somente o dia.

Obrigado.

[osvaldomp]

Testaí ...

Código: Selecionar todos

.Range(1, 14).Formula = "=IF([@Data]<>"""",TEXT([@Data],""dd""),"""")"

[SandroLima]

Certinho, Osvaldomp

Muito obrigado.