vba ventana para insertar fecha

2 envíos / 0 nuevos
Último envío
tetorin
Imagen de tetorin
Offline
última acción: Hace 1 mes 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3237
vba ventana para insertar fecha

Hola equipo, saludos ,

tengo una pregunta espero me puedan ayudar
tengo este codigo que me pone la fecha actual, mas lo que requiero es que se abra una ventana y me pida la fecha a capturar,

espero me puedan ayudar

  On Error Resume Next
    ultima = ActiveSheet.Columns("P").Find("*", _
    searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    Cells(ultima + 1, 16).Value = Date
    Cells(ultima + 1, 16).Copy

    ultima = ActiveSheet.Columns("O").Find("*", _
    searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    ultimados = Cells(ultima, 16).Activate
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste

Etiquetas: 

tetorin
Imagen de tetorin
Offline
última acción: Hace 1 mes 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3237
 espero me puedan ayudar

Sellado espero me puedan ayudar