Thiago, acontece que estes combobox não são preenchidos de forma normal, eles agem de acordo com o Modulo de Classe, então não tem como nos referirmos ao nome do Controle "Combobox1", veja que ao iniciar o formulário eles são indicados, mas os valores (datas) são armazenadas na VAriável DTP4 a qual é definida como - Private DTP4 As DateTimePicker, então para fazer o que pretende siga as instruções abaixo :
Veja que criei uma nova Variável de nome DTP5 para podermos diferenciar da primeira, esta será a que preenche o combo2
1º ) No de dois cliques no formulário "formGeofonia" e estará na rotina que inicializa com o formulário - Private Sub UserForm_Initialize(), nesta troque pela rotina abaixo :
Private Sub UserForm_Initialize()
Set DTP4 = New DateTimePicker 'Combobox1
Set DTP5 = New DateTimePicker 'Combobox2
With DTP4
.Add ComboBox1
.Create Me, "dd/mmm/yyyy", _
BackColor:=&H125FFFF, _
TitleBack:=&H808000, _
Trailing:=&H99FFFF
.Value = Date
End With
With DTP5
.Add ComboBox2
.Create Me, "dd/mmm/yyyy", _
BackColor:=&H125FFFF, _
TitleBack:=&H808000, _
Trailing:=&H99FFFF
.Value = Date
End With
End Sub
2º ) Role até a primeira linha no escopo do editor e acrescente a linha :
Private DTP5 As DateTimePicker- percebá que junto teremos a outra referente a DTP4
3º ) Volte ao Formulário e de dois cliques no Botão "OK" e troque a rotina pela a abaixo :
Veja que nas primeiras linhas os valores referentes aos combos datas veem das Variáveis DTP4 e DTP5
Private Sub CommandButton6_Click()
Dim UL As Long ' UL = Última Linha
With Sheets("Dados")
UL = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(UL, "A").Value = CDate(DTP4.Value) 'ComboBox1
.Cells(UL, "A").Offset(0, 1).Value = CDate(DTP5.Value) 'ComboBox2
.Cells(UL, "A").Offset(0, 2).Value = TextBox1.Value
.Cells(UL, "A").Offset(0, 3).Value = TextBox2.Value
.Cells(UL, "A").Offset(0, 4).Value = TextBox3.Value
.Cells(UL, "A").Offset(0, 5).Value = TextBox4.Value
.Cells(UL, "A").Offset(0, 6).Value = TextBox5.Value
End With
Unload Me
End Sub
Faça os testes e veja se é isto, qq duvida retorne.
Se a dica ajudou, clique na mãozinha agradecendo.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 28/07/2015 12:17 pm