Fiz um formulário simples, nada muito sofisticado...
Onde cadastro varios dados que são armazenados em uma planilha.
Dentre esses dados possuo 2 textboxes
Uma Datain e outra DataOut
Referentes a data de saida e volta de uma viagem.
Gostaria que os valores inputados nessas textboxes fossem armazenados na planilha, no entanto, nao importa o que eu faça, todos os outros valores são armazenados na planilha, menos as datas.
Abaixo o código de armazenamento:
Private Sub CommandButton2_Click()
Dim Cliente As String
Dim Destino As String
Dim datain As String
Dim dataout As String
Dim ADT As Integer
Dim CHD As Integer
Dim INF As Integer
Cliente = cliente1
Destino = destino1
datain = txtin
dataout = txtout
ADT = adt1
CHD = chd1
INF = inf1
Dim iRow_1 As Long
Dim ws_1 As Worksheet
Set ws_1 = Worksheets.Application.Sheets("Pré-Orçamentos")
iRow_1 = ws_1.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
ws_1.Cells(iRow_1, 1).Value = cliente1.Value
ws_1.Cells(iRow_1, 2).Value = destino1.Value
ws_1.Cells(iRow_1, 3).Value = txtin.Value
ws_1.Cells(iRow_1, 4).Value = txtout.Value
If nacional1.Value = True Then ws_1.Cells(iRow_1, 5).Value = "Viagem Nacional"
If internacional1.Value = True Then ws_1.Cells(iRow_1, 5).Value = "Viagem Internacional"
If transphospoption.Value = True Then ws_1.Cells(iRow_1, 6).Value = "Transporte+Hospedagem"
MsgBox "Pré-Orçamento Salvo Com Sucesso!"
End Sub
Postado : 16/03/2012 12:28 pm