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
Atenciosamente,
Arthur Andrade
Seja Cordial, trate os outros membros com respeito!
Caso sua dúvida tenha sido resolvida, clique no botão verde no canto direito superior da sua tela, marcando como [RESOLVIDO]
Agradeça quem te ajudou! Clique na mãozinha!
Postado : 16/03/2012 12:28 pm