Corrigir Macro Transferir dados inseridos ultima linha Fechado

Question

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"

usuário anônimo · Answer

Veja as dicas desta página

https://br.ccm.net/faq/s/excel-584/formulas

Corrigir Macro Transferir dados inseridos ultima linha

1 Respostas

Assine nossa newsletter!