Formato de fecha a textbox de formulario VBA

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.

if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}

Código que se inserta en un módulo


Sub muestrauserform()
UserForm1.Show
End Sub

Código que se inserta en un userform

Private Sub CommandButton2_Click()

TextBox2 = Format(TextBox1, «dd «»de»» mmmm «»de»» yyyy»)
End Sub

Private Sub CommandButton3_Click()
TextBox3 = Format(TextBox1, «mm/dd/yyyy»)
End Sub

Private Sub CommandButton4_Click()
TextBox4 = Format(TextBox1, «yyyy/mm/dd»)
End Sub

Private Sub CommandButton5_Click()
TextBox5 = Format(TextBox1, «dd/mm/yyyy hh:mm:ss»)
End Sub

Private Sub CommandButton6_Click()
TextBox8 = Format(TextBox1, «»»Saldo al: «»dd-mm-yyyy»)
End Sub

Private Sub CommandButton7_Click()
d = Day(CDate(TextBox1))
m = Month(CDate(TextBox1))
y = Year(CDate(TextBox1))
TextBox6 = CDate(d & «/» & m & «/» & y)
End Sub

Private Sub CommandButton8_Click()
TextBox7 = Format(TextBox1, «»»Hoy es:»» dd «»de»» mmmm «»de»» yyyy»)
End Sub

Private Sub CommandButton9_Click()
TextBox9 = Format(TextBox1, «»»Saldo al:»» yyyymmdd»)
End Sub

Private Sub UserForm_Activate()
If Cells(4, «C») = Empty Then
MsgBox («Ingrese fecha en celda C4»), vbInformation, «AVISO»
Unload Me
Exit Sub
End If
TextBox1 = Cells(4, «C»)
End Sub