Bom Dia,

Estou com um probleminha e não estou achando a solução. Eu declarei uma variável 'lCodigo' como long, mas ao ser adicionado a planilha, esta ficando como texto. Fiquei sem entender o motivo. Se alguém puder dar uma olhada no código eu fico grato. Deixei ele em negrito com co caretinha para facilitar encontrar-los.

Obrigado.

Private Sub cmdincluir_Click()

Sheets("ADM FICHAS MERCADORIA").Select
i = 1

Dim lCodigo As Long
Dim lSequencia As Long
Dim lCodkit As Long
Dim lMatricula As Long
Dim lCodproduto As Long
Dim lQt As Long
Dim cValorunitario As Currency
Dim cValortotal As Currency
Dim cCustounitario As Currency
Dim cCustototal As Currency

If Me.cbsequencia = "" Then
MsgBox "Sequencia do Kit esta Vazio", , ""
Me.cbsequencia.SetFocus
Exit Sub
End If

If Me.txtcodproduto = "" Then
MsgBox "Codgo do Produto esta Vazio", , ""
Me.txtcodproduto.SetFocus
Exit Sub
End If

If Me.txtqt = "" Then
MsgBox "Quantidade esta Vazio", , ""
Me.txtqt.SetFocus
Exit Sub
End If

'usando a variável vCodigo para memorizar a autonumeração
lCodigo = Range("A60000").End(xlUp).Offset(0, 0).Value
Me.cmdsequencialancamento = lCodigo + 1

lSequencia = Me.cbsequencia
lCodkit = Me.txtcodkit
lMatricula = Me.txtmatricula
lCodproduto = Me.txtcodproduto

If Me.txtqt = "" Or 0 Then
Me.txtqt.SetFocus
Exit Sub
Else
lQt = Me.txtqt
End If
cValorunitario = Me.txtvalorunitario
cValortotal = Me.txtvalortotal
cCustounitario = Me.txtcustounitario
cCustototal = Me.txtcustototal

If Me.cbsequencia = "" Then
MsgBox "Selecione uma Sequência"
Me.cbsequencia.SetFocus
Exit Sub
End If

Do Until Cells(i, 1) = ""
i = i + 1
Loop
Cells(i, 1) = Me.cmdsequencialancamento
Cells(i, 2) = lSequencia
Cells(i, 3) = lCodproduto
Cells(i, 4) = lQt
Cells(i, 5) = Me.txtproduto
Cells(i, 6) = Me.txtdescricao
Cells(i, 7) = cValorunitario
Cells(i, 8) = cValortotal
Cells(i, 9) = cCustounitario
Cells(i, 10) = cCustototal

Me.cmdsequencialancamento = Clear
Me.txtcodproduto = Clear
Me.txtqt = Clear
Me.txtproduto = Clear
Me.txtdescricao = Clear
Me.txtvalorunitario = Clear
Me.txtvalortotal = Clear
Me.txtcustounitario = Clear
Me.txtcustototal = Clear

Application.DisplayAlerts = False 'Disabilita o prompt
ActiveWorkbook.Save 'Salva as alterações
Application.DisplayAlerts = True 'Habilita o prompt

End Sub