Introducir fecha y ocultar calendario

"Amadeo GOVONI" escribió en el mensaje news:%

Esta espectacular!!!!!!

¡Gracias! :-)

Una pregunta queme surge
Como ubicar el calendar al lado de la celda que quiero poner la fecha?
Si mi lista tiene 200 filas???
Va la pregunta

Saludos

Amadeo

Prueba con:

Private Sub Calendar1_Click()
ActiveCell = Calendar1
End Sub

Private Sub Calendar1_GotFocus()
If IsDate(ActiveCell) Then Calendar1 = ActiveCell
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
With Calendar1
.Top = Target.Top
.Visible = True
If IsDate(Format(ActiveCell, "dd-mm-yy")) Then .Value = ActiveCell
End With
Else
Calendar1.Visible = False
End If
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

"Amadeo GOVONI" escribió en el mensaje news:%

Estimado Fernando
Para que me pueda andar a mí
tuvo que poner


en vez de calendar1..
Sheets(1).calendar1 =..

Saludos

Amadeo

Curioso.
En mi versión de Excel (la versión 2003 que se comercializa en España) no ha sido necesario.
Otra posibilidad, visto que tienes que cualificar más, es usar Me, algo como:

Me.calendar1 =

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Amadeo GOVONI" escribió en el mensaje news:

Otra vez

Con respecto al calendar

Si selecciono una celda que tiene una fecha por ejemplo 12/3/04
vomo hacer para que la acuse el ccalendar

Antes que nada gracias

Saludos

Amadeo

Me temo que no te entiendo del todo. Si te refieres a que el control calendar refleje automáticamente la fecha de la celda seleccionada (si la celda tiene una fecha válida), eso es precisamente lo que debería hacer el código que puse en mi primer mensaje...
Un saludo.


Fernando Arroyo
MS MVP - Excel

Fernando
Buen dia
En Argentina en este momento son las 10:40 de la mañana
Con respecto a la solución que aportaste ne gusaría enteder el "Private Sub
Calendar1_GotFocus() En que momento se dispara??

Por otro lado probé con Me.Calen me da error creo que 428. Si pongo
Sheets(...).cal... lo toma. Tengo un office 2003 (Office 11) en español

Otra pregunta al voleo

como hago dentro de una función darle a una celda un formato de número
cualquiera que sea

Es una duncion aque aplico en una celda =grados(A1)
Donde grado es una funcion que pasa de grados decimales a grados
sexadecimales
Ej
Tengo 10.5º lo convierto a este número 103000 Desde el formato de celda
con formato personalizado lo convierto a 10º 30' 00.00''. Como hago para
convertir este número en código dentro de la función donde esta es aplicable
a cualquier celda. De esta manera seguirá sinedo un número

Lo que hice yo es separar otra manera es separar los números en

Grados
Min
Seg

y luego

Grados = Grados & "º" Min & "'" Seg & "''" De sesta manera no es un número
sino un texto

No es lo lógico


Muchos saludos

Amadeo
"Fernando Arroyo" escribió en el mensaje
news:
"Amadeo GOVONI" escribió en el mensaje
news:%

Esta espectacular!!!!!!

¡Gracias! :-)

Una pregunta queme surge
Como ubicar el calendar al lado de la celda que quiero poner la fecha?
Si mi lista tiene 200 filas???
Va la pregunta

Saludos

Amadeo

Prueba con:

Private Sub Calendar1_Click()
ActiveCell = Calendar1
End Sub

Private Sub Calendar1_GotFocus()
If IsDate(ActiveCell) Then Calendar1 = ActiveCell
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
With Calendar1
.Top = Target.Top
.Visible = True
If IsDate(Format(ActiveCell, "dd-mm-yy")) Then .Value ActiveCell
End With
Else
Calendar1.Visible = False
End If
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

"Amadeo GOVONI" escribió en el mensaje news:%

Fernando
Buen dia
En Argentina en este momento son las 10:40 de la mañana
Con respecto a la solución que aportaste ne gusaría enteder el "Private Sub
Calendar1_GotFocus() En que momento se dispara??

Al pinchar sobre el calendario.

Por otro lado probé con Me.Calen me da error creo que 428. Si pongo
Sheets(...).cal... lo toma. Tengo un office 2003 (Office 11) en español

¿Dónde has puesto el código? Lo pregunto porque si está en el módulo de la hoja, "Me" debería funcionar.

Otra pregunta al voleo

como hago dentro de una función darle a una celda un formato de número
cualquiera que sea

Es una duncion aque aplico en una celda =grados(A1)
Donde grado es una funcion que pasa de grados decimales a grados
sexadecimales
Ej
Tengo 10.5º lo convierto a este número 103000 Desde el formato de celda
con formato personalizado lo convierto a 10º 30' 00.00''. Como hago para
convertir este número en código dentro de la función donde esta es aplicable
a cualquier celda. De esta manera seguirá sinedo un número

Lo que hice yo es separar otra manera es separar los números en

Grados
Min
Seg

y luego

Grados = Grados & "º" Min & "'" Seg & "''" De sesta manera no es un número
sino un texto

No es lo lógico

Me temo que no es posible darle formato a una celda desde una función...
Un saludo.


Fernando Arroyo
MS MVP - Excel

Muchos saludos

Amadeo