¿Cuadro de texto de UserForm con formato de fecha?
Mediante el código:
Me.Txt_Fecha = Application.WorksheetFunction.VLookup(ID, Sheets("EXPEDIENTES_COMUNES").Range("A:BI"), 7, 0)... Me traigo al cuadro de texto "Txt_Fecha" de un UserForm el dato de una fecha contenido en una determinada celda de una también determinada hoja de mi libro xlsm, pero en la 'importación' no se respeta el formato de fecha que tiene el dato en el origen.
¿Alguien de por aquí :) me puede decir cómo debo operar para que en destino -en el UserForm- se copie el dato con su formato de fecha original?
1 Respuesta
Respuesta de Dante Amor
1
Visita:
___________________________
Podría ser así:
Me.Txt_Fecha = Format(Application.WorksheetFunction.VLookup(ID, Sheets("EXPEDIENTES_COMUNES").Range("A:BI"), 7, 0), "dd/mm/yyyy")Pero te recomiendo utilizar el método Find:
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim f As Range
Set sh = Sheets("EXPEDIENTES_COMUNES")
Set f = sh.Range("A:BI").Find(ID, , xlValues, xlWhole, , , False)
If Not f Is Nothing Then
Me.Txt_Fecha = Format(sh.Range("G" & f.Row), "dd/mm/yyyy")
Else
MsgBox "No existe"
End If
End SubAquí te explico las ventajas:
Curso de macros. Metodo find completo. - YouTube
Curso de macros. Metodo find ejemplos. - YouTube
------
Sal u dos Dante Amor
