Guru do Excel e Power BI

Enviado: **26 Jan 2019 às 12:41**

Bom dia, colegas.

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

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.

Enviado: **26 Jan 2019 às 14:42**

Testaí ...

Código: Selecionar todos

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

Enviado: **26 Jan 2019 às 20:58**

Certinho, Osvaldomp

Muito obrigado.

Guru do Excel e Power BI

Transcrever fórmula para VBA

Transcrever fórmula para VBA

Re: Transcrever fórmula para VBA

Re: Transcrever fórmula para VBA