insertar calendario en una celda

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?

Hola Héctor Miguel,

Gracias, ahora he conseguido que funcione.
He añadido el objeto "control de calendario 11.0" y en el código de la hoja
he escrito lo siguiente:
"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Width + 5
Calendar1.Visible = Not Intersect(ActiveCell, Range("a:a")) Is Nothing
End Sub
Private Sub Calendar1_Click()
ActiveCell = CDate(Calendar1)
End Sub
"
Y aparentemente me funciona... pero cuando cierro el excel y lo vuelvo a
abrir, el calendario se queda inmóbil y la función NO funciona!!!
cómo lo hago para que todo funcione 'siempre'.

Muchas grácias.
"Héctor Miguel" wrote:

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?

hola, ?

no se aprecia [a simple vista] que el codigo que expones pudiera llegar a dejar de funcionar -?-
[probablemente] si tienes seleccionada mas de una celda... el evento '_selectionchange' NO se dispara
cuando cambias de 'celda activa' pulsando [mayus] enter/tab :-(

comentas [si hubiera] algun detalle mas... 'significativo' ?
saludos,
hector.

__ la consulta original __

He a#adido el objeto "control de calendario 11.0" y en el codigo de la hoja he escrito lo siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Width + 5
Calendar1.Visible = Not Intersect(ActiveCell, Range("a:a")) Is Nothing
End Sub
Private Sub Calendar1_Click()
ActiveCell = CDate(Calendar1)
End Sub
Y aparentemente me funciona... pero cuando cierro el excel y lo vuelvo a abrir
el calendario se queda inmobil y la funcion NO funciona!!!
como lo hago para que todo funcione 'siempre'.

Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"TICA" escribió en el mensaje
news:
| 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?

Hola,

Creo que no me expliqué correctamente... cuando cierro el excel, todo, y lo
vuelvo a abrir, el calendario esta sobrepuesto... no selecciono NADA!!! es
más, el calendario únicamente puedo arrrastrarlo... no puedo seleccionar
fechas.
es muy raro.

Cuando cuanddo configuras el código e insertas el calendario como objeto, se
guarda algo en C:\?¿?¿?¿ por que donde me falla el PC corre por una maqueta,
en la que la C:\està capada... y es la única razón lógica que le podria
dar... pero creo que no se graba nada, no?

Si quieres te paso el Excel.

"Héctor Miguel" wrote:

hola, ?

no se aprecia [a simple vista] que el codigo que expones pudiera llegar a dejar de funcionar -?-
[probablemente] si tienes seleccionada mas de una celda... el evento '_selectionchange' NO se dispara
cuando cambias de 'celda activa' pulsando [mayus] enter/tab :-(

comentas [si hubiera] algun detalle mas... 'significativo' ?
saludos,
hector.

__ la consulta original __
> He a#adido el objeto "control de calendario 11.0" y en el codigo de la hoja he escrito lo siguiente:
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Calendar1.Top = ActiveCell.Top
> Calendar1.Left = ActiveCell.Width + 5
> Calendar1.Visible = Not Intersect(ActiveCell, Range("a:a")) Is Nothing
> End Sub
> Private Sub Calendar1_Click()
> ActiveCell = CDate(Calendar1)
> End Sub
> Y aparentemente me funciona... pero cuando cierro el excel y lo vuelvo a abrir
> el calendario se queda inmobil y la funcion NO funciona!!!
> como lo hago para que todo funcione 'siempre'.