SL2 AL POCISIONAR EN CELDA, APRESCA CALENDARIO

No entiendo tu mensaje. Debe ser que las mayúsculas dificultan su lectura;
además, esto no es un mensaje de móvil (celular) para emplear el código sms.

Por favor, antes de preguntar, busca en Google
http://groups.google.es/groups/dir?...public.es.

Y dinos si te sirvió de algo la solución propuesta
(y cuál en caso de que fuesen varias)
Salu2 desde Udûn
El Nazgûl :-)
"yedeon" escribió en el mensaje
news:

SALUDOS ALGUNA IDEA PARA:

AL POSCISIONARME EN B10, APARESCA UN MINI CALENDARIO EN EL CUAL PUEDA
ESCPGER UN AFECHA DE AÑO X, Y AL PAUSAR ENTER U OTRO ESA FECHA QUE DE EN
LA
CELDA DE EXCEL ?

PONER UNA FECHA CON AYUDA DE UN CALENDARIO ? EN OFFICE 2003

THKS

hola, ?

AL POSCISIONARME EN B10, APARESCA UN MINI CALENDARIO ...

no se si al final de cuentas lo vas a necesitar en mas celdas (aparte de B10) -?-
prueba con alguna de las siguientes alternativas...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

1) puedes incrustar un control DTPicker [Date&Time] o... un control Calendar...
puede ser 'directamente' en una hoja de calculo o... a traves de un formulario de usuario
2) [p.e. en la hoja]: [menu] insertar / objeto... o desde la barra de herramientas 'cuadro de controles' / mas controles...
control calendar x.x [segun la version de office] o...
Microsoft Date and Time Picker x.x [SPx] -segun numero de version y service-pack del archivo-

1) suponiendo que seleccionaste el control calendario [incrustado en la hoja]...
y deseas que se muestre SOLO si [en esa hoja] se selecciona de entre el rango 'A1:A5'...
y que el resultado de la seleccion se ponga en la celda 'activa'...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Width + 5
Calendar1.Visible = Not Intersect(ActiveCell, Range("a1:a5")) Is Nothing
End Sub
Private Sub Calendar1_Click()
ActiveCell = CDate(Calendar1)
End Sub

2) suponiendo que seleccionaste el control dtpicker [incrustado en la hoja]...
y deseas que se muestre SOLO si [en esa hoja] se selecciona de entre el rango 'B1:B4' y 'C7'...
y que el resultado de la seleccion se ponga en la celda 'activa'...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With DTPicker1
.Visible = Not Intersect(Target, Range("b2:b4,c7")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left + Target.Width + 2
End With
End Sub
Private Sub DTPicker1_Change()
ActiveCell = CDate(DTPicker1)
End Sub

p.d. el control DTPicker requiere que esta instalado y registrado...
-> el componente [+/- C:\Windows\System[32]\mscomct2.ocx]...
el control calendar requiere que este instalado y registrado...
-> el componente [C:\Archivos de programa\Microsoft Office x.0\Officexx\MSCal.ocx]