etiqueta con formulapara excel
Manny_90
Tengo un formulario donde tengo una etiqueta que captura la informacion de
un calendario digamos 10/03/2007, necesito crear otra etiqueta donde pueda
asignarle una formula de modo que me calcule los dias por vencer de la fecha
de la otra etiqueta.
Por ejemplo :
Fecha de captura
10/03/2007 mas 7 dias es igual 10/10/2007
No se que codigo hacer para que me pueda funcionar la etiqueta....
Muchas gracias por su ayuda
Héctor Miguel
> Tengo un formulario donde... una etiqueta... captura... digamos 10/03/2007
> necesito crear otra etiqueta donde... una formula... me calcule los dias por vencer de la fecha de la otra etiqueta.
> Por ejemplo :
> Fecha de captura
> 10/03/2007 mas 7 dias es igual 10/10/2007
> No se que codigo hacer para que me pueda funcionar la etiqueta...
1) las *etiquetas* que mencionas, son controles Label ?... o controles TextBox ?... o ???
2) *como* se da la entrada al dato fecha y como le das *formato* para presentarlo en *la etiquea* ?
3) probablemente existan otro tipo de *eventualidades* [formato de fecha dd/mm/aaaa en lugar de mm/dd/aaaa ?]
a reserva de comentarios mas... *precisos*... prueba con instrucciones +/- como la siguiente:
<etiqueta_nueva> = CDate(<etiqueta_anterior>) + 7
usa la misma tecnica [o procedimientos] para el formato de presentacion
y considera el uso de algun mecanismo de prevencion/correccion de *ciertas* eventualidades [como el orden de fechas]
saludos,
hector.
Manny_90
La etiqueta de la fecha es capturada por otro control (calendar control
8.0), la capturo asi:
Private Sub Calendar1_Click()
Dim FechadeNacimiento As Date
FechadeNacimiento = Calendar1.Value
UserForm1.Label13 = FechadeNacimiento
'Etiqueta que muestra la fecha
UserForm2.Label21 = FechadeNacimiento
'Etiqueta que muestra la fecha
Unload Me
End Sub
Una pregunta,,La instruccion: <etiqueta_nueva> = CDate(<etiqueta_anterior>)
+ 7, se debe de insertar en el codigo de la etiqueta o en en el texto de la
etiqueta...
kiza...@hotmail.com
Gracias
Héctor Miguel
> Las etiquetas son controles label,
> La etiqueta de la fecha es capturada por otro control (calendar control 8.0), la capturo asi:
> Private Sub Calendar1_Click()
> Dim FechadeNacimiento As Date
> FechadeNacimiento = Calendar1.Value
> UserForm1.Label13 = FechadeNacimiento
> 'Etiqueta que muestra la fecha
> UserForm2.Label21 = FechadeNacimiento
> 'Etiqueta que muestra la fecha
> Unload Me
> End Sub
>
> Una pregunta,,La instruccion: <etiqueta_nueva> = CDate(<etiqueta_anterior>) + 7
> se debe de insertar en el codigo de la etiqueta o en en el texto de la etiqueta...
no entiendo porque inicialmente *preguntas* por la forma de calcular "... los dias por vencer de la fecha de la otra etiqueta..."
y en este ejemplo expones una variable que se refiere a una *FechaDeNacimiento* -???-
[en todo caso] podrias *ahorrar* las variables intermedias [y otras eventualidades al trabajar con fechas desde vba]...
si utilizas el mismo evento: -> Private Sub Calendar1_Click() para modificar las etiquetas que sean necesarias [p.e.]
Private Sub Calendar1_Click()
With Calendar1
UserForm1.Label13 = .Value
UserForm2.Label21 = .Value
' mas etiquetas ??? '
End With
Unload Me
End Sub
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Manny_90
Private Sub Calendar1_Click()
Dim FechadePago As Date
FechadePago = Calendar1.Value
UserForm7.Label4 = FechadePago
UserForm5.Label4 = FechadePago
UserForm8.Label4 = FechadePago
Unload Me
End Sub
Pero vamos a decir que esta fecha es el dia en que pagas la mensualidad o
anualidad de una inscripcion, me gustaria tener otra etiqueta que me diga el
dia en que vence tal pago algo asi como "Miercoles 07-05-2007". Necesito
tener en el codigo que la etiqueta del tipo de pago (semanal, mensual, anual)
sea la dependiente para generar la formula, es decir,:
=IF(C5="","",IF(E5="SEMANAL",C5+7,IF(E5="MENSUAL",C5+30,IF(E5="SEMESTRAL",C5+180,IF(E5="ANUAL",C5+365)))))
C5=Fecha de pago
E5=Tipo de mensualidad
Esta es una formula que tengo en unas celdas, pero me gustaria tenerlo en
las etiquetas del formulario..
Saludos
Héctor Miguel
> Eso es lo que hago para insertar las fechas en etiquetas:
> Private Sub Calendar1_Click()
> Dim FechadePago As Date
> FechadePago = Calendar1.Value
> UserForm7.Label4 = FechadePago
> UserForm5.Label4 = FechadePago
> UserForm8.Label4 = FechadePago
> Unload Me
> End Sub
> Pero vamos a decir que esta fecha es el dia en que pagas la mensualidad o anualidad de una inscripcion
> me gustaria tener otra etiqueta que me diga el dia en que vence tal pago algo asi como "Miercoles 07-05-2007".
> Necesito tener en el codigo que la etiqueta del tipo de pago (semanal, mensual, anual)
> sea la dependiente para generar la formula, es decir
> =IF(C5="","",IF(E5="SEMANAL",C5+7,IF(E5="MENSUAL",C5+30,IF(E5="SEMESTRAL",C5+180,IF(E5="ANUAL",C5+365)))))
> C5=Fecha de pago
> E5=Tipo de mensualidad
> Esta es una formula que tengo en unas celdas, pero me gustaria tenerlo en las etiquetas del formulario.
1) si ya tienes en celdas el tipo y fecha de pago [E5 -> tipo de mensualidad y C5 -> fecha de pago]...
a) asigna a *la etiqueta del tipo de pago* [que no comentas cual es ni en cual formulario se encuentra]
-> la propiedad .Text de la celda E5 [que tampoco indicas en cual hoja se encuentra]
b) asigna a *la otra etiqueta* [siguiente pago ?... que tampoco comentas cual es ni en cual formulario se encuentra]
-> la propiedad .Text de la celda donde usaste la formual que expones
2) si no quieres *depender* de las celdas en alguna hoja de calculo [y sus formulas correspondientes]...
a) *mueve* la declaracion de la variable: -> Dim FechadePago As Date FUERA del modulo de algun userform...
b) declarala como publica EN UN MODULO ESTANDAR: -> Public FechadePago As Date
-> y ya podras utilizar la variable *FechadePago* desde cualquier otro procedimiento en cualquier otro modulo
[obviamente, una vez que le hayas establecido algun valor *valido* y/o cada vez que lo modifiques]
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
p.d. toma en cuenta que los datos que NO expones... habria que *adiviarlos*... y mas seguro que probable... seran inexactos :-((