Jump to content

Problema con fecha de dtpicker


Recommended Posts

Tengo ua tabla en excel con varias fechas que van desde el 08/02/2010 hasta el 31/12/2010, tengo un userform que recoge datos de esta tabla, cuando yo ingreso un codigo en un textbox lo busca en la tabla y arroja varios datos en otros textbox, por eso no hay problema, pero el dato de la fecha quiero que me lo muestre en un dtpicker pero me da el dato del 31/12/1899, siendo que el primer dato debe ser 08/02/2010, alguien me puede ayudar?

el codigo va asi

Private Sub TextBox10_AfterUpdate()

Hoja4.Activate

On Error GoTo no:

Cells.Find(What:=TextBox10, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

True).Activate

ActiveCell.Offset(0, 1).Select

TextBox12 = ActiveCell

ActiveCell.Offset(0, -1).Select

ActiveCell.Offset(0, -1).Select

TextBox11 = ActiveCell

ActiveCell.Offset(0, 1).Select

ActiveCell.Offset(0, 5).Select

TextBox13 = ActiveCell

ActiveCell.Offset(0, -5).Select

ActiveCell.Offset(0, 6).Select

Dtpicker1 = ActiveCell

ActiveCell.Offset(0, -6).Select

no:

end sub

Link to post
Share on other sites

1.-solo asegurate d tener un valor en formato fecha en la celda

2.-depues verificaque estes usando el evento correcto,en este caso es el 'activate' del form:

Private Sub UserForm_Activate()
    Me.Caption = "Calendario DTPicker..by ST"
    DTPicker1.Value = [a2]
End Sub

donde en a2 esta la fecha que comentaste( 08/02/2010)

3.-por ultimo llama al formulario de la manera clasica:

Sub cargar()
    UserForm1.Show
End Sub

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy