Cambiar formato a fecha al colocarlo en otro textbox
Tengo un calendar que al clickear en la fecha me llena un text box. Esa información me sirve para colocar la fecha de realización del informe de la siguiente manera:
Private Sub Calendar1_Click()
TextBox11.Text = Calendar1.Value
End Sub
'textbox para colocar la fecha
Private Sub TextBox11_Change()
'comando para poder colocar fecha
Sheets(ComboBox8.Value).[m3] = TextBox11.Value
TextBox11 = Format(TextBox11, " dd ""de"" mmmm ""de"" yyyy")
End Sub
La idea es tener otro textbox (textbox13) para poder colocarlo como parte del nombre del archivo a guardar con el formato "dd-mm-yy"
nomb = TextBox12 & h.Name & TextBox13
1 Respuesta
Entonces lo resolví así.
Private Sub Calendar1_Click()
TextBox11.Text = Calendar1.Value
TextBox13.Text = Calendar1.Value
End Sub'textbox para colocar la fecha al final del documento
Private Sub TextBox11_Change()
Sheets(ComboBox8.Value).[m3] = TextBox11.Value
TextBox11 = Format(TextBox11, " dd ""de"" mmmm ""de"" yyyy")
End Sub
'textbox para colocar la fecha en el nombre del documento
Private Sub TextBox13_Change()
'comando para poder colocar fecha
TextBox13 = Format(TextBox13, "dd-mm-yy")
End SubPrivate Sub CommandButton10_Click()
'comando para generar el PDF del Check list
If ComboBox8.ListIndex = -1 Then
MsgBox "Seleccione una hoja", vbInformation, "AVISO"
Exit Sub
End If
Call Mostrar
Set h = Sheets(ComboBox8.ListIndex + 1)
Dim NombreArchivo As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Ruta = ThisWorkbook.Path & "\"
nomb = TextBox12 & h.Name & TextBox13
h.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & nomb & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
'MsgBox "Se ha guardado el documento en PDF", vbInformation
OcultarRestantes
End Sub
