Colocar Fecha y Poder modificarla cuando sea necesario

Estoy trabajando en esta hoja y quisiera poder ingresar la fecha actual por intermedio de textBox y que me permita modificarla si es necesario, siempre que la celda "B4" este con datos.

1 Respuesta

Respuesta
1

Prueba:

Private Sub CommandButton1_Click()
  If Range("B4").Value = "" Then
    MsgBox "Falta cliente"
  Else
    Range("F4").Value = CDate(TextBox1.Value)
  End If
End Sub

Recomendación:

https://youtu.be/5k0szqErdXg 

Sal u dos Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas