Forums Últimos mensajes - Powered by IBM
 

insertar calendario en una celda

27/09/2006 - 17:54 por TICA | Informe spam
hola,

estoy insertando este el siguiente còdigo en el còdigo de la hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With DTPicker1
.Visible = Not Intersect(Target, Range("d:d")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left
End With
End Sub
Private Sub DTPicker1_Change()

End Sub
ActiveCell = CDate(DTPicker1)

End Sub

pero no me funciona y me da un error en línea 424, falta un objeto.
¿qué estoy haciendo mal?
 

Leer las respuestas

#1 Héctor Miguel
27/09/2006 - 23:06 | Informe spam
hola, ?

[segun parece]... tienes una 'doble' instruccion -> End Sub
en el procedimiento -> Private Sub DTPicker1_Change()
y... solo puede haber una instruccion 'End Sub' por cada procedimientos 'Sub'
y debe ser la ultima linea del procedimiento :))

saludos,
hector.

__ la consulta original __
estoy insertando este el siguiente codigo en el codigo de la hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With DTPicker1
.Visible = Not Intersect(Target, Range("d:d")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left
End With
End Sub
Private Sub DTPicker1_Change()

End Sub
ActiveCell = CDate(DTPicker1)

End Sub

pero no me funciona y me da un error en linea 424, falta un objeto.
que estoy haciendo mal?

Preguntas similares