Corrigir Macro Transferir dados inseridos ultima linha

Fechado
Denunciar
-
 usuário anônimo -
Bom dia,

Tenho um formulario cujo botão Gravar transfere as datas e valores inseridos para a ultima linha vazia da Planilha. Contudo se deixo as celulas formatadas a macro leva os dados para a ultima linha não formatada, pulando as células vazias Como corrigir isto???

Private Sub ButtonGravar_Click()
totalregistro = Worksheets("PAG. A CONSTRUTORA").UsedRange.Rows.Count + 1
With Worksheets("PAG. A CONSTRUTORA")
.Cells(totalregistro, 1) = (DATAPG)
.Cells(totalregistro, 2) = (DATAVC)
.Cells(totalregistro, 3) = Val(VALORPG)

End With
MsgBox "Gravado com Sucesso"

1 resposta

Assine nossa newsletter!

Receba toda semana o melhor conteúdo

Assine nossa newsletter!