Boa-noite
Plan1.Cells(linha, 1).Value = Me.txt_contato.Value 'Coluna B da sheet BASE
Plan1.Cells(linha, 2).Value = Me.txt_codigo_SAP.Value 'Coluna C da sheet BASE
Plan1.Cells(linha, 3).Value = Me.txt_nome_transportadora.Value 'Coluna D da sheet BASE
Plan1.Cells(linha, 4).Value = Me.txt_fone.Value 'Coluna D da sheet BASE
Plan1.Cells(linha, 5).Value = Me.txt_email.Value 'Coluna D da sheet BASE
Me.txt_contato.Value = Null
Me.txt_codigo_SAP.Value = Null
Me.txt_nome_transportadora.Value = Null
Me.txt_fone.Value = Null
Me.txt_email.Value = Null
olhe o código acima e compare com o que vc mandou, tem alguns valores digitados errados.
Postado : 19/12/2017 3:48 pm