Poner frases en celdas segun fecha

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Poner frases en celdas segun fecha

Notapor DanyDaniel » 10 Jul 2006 20:23

Hola amigos de exceluciones nuevamente molestandolos con mis consultas en la hoja q adjunto hay tres modelos de boletas de notas que manejo en cada modelo unas celdas estan pintadas de amarillo, lo q deseo es q en determinadas fechas aparezca unos mensajes, ejemplo:

Del 1 de enero del 2006 a 01 julio del 2006 aparezca:
"Lideres en Educacion personalizada"

Del 15 de Julio del 2006 a 1 de Setiembre del 2006:
"Felices Fiestas Patrias"

Del 15 de Setiembre a 10 de Octubre:
Desde 1985 forjamos jovenes emprendedores

15 de Octubre a 28 de Diciembre
Feliz NAvidad y un Prospero Año Nuevo.

Estuve intentando hacer una funcion pero no me dio resultado,ustedes diran por q no lo hace manualmente lo q pasa es q estas boletas son de un libro de excel q contienes un promedio de 50 boletas por año, cada año tiene 5 secciones, iamginenese son un monton por eso recurro a su ayuda esperando que me puedan dar una mano, gracias y suerte
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
DanyDaniel
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Dic 2004 15:59
Ubicación: Perú

Re: Poner frases en celdas segun fecha

Notapor DanyDaniel » 10 Jul 2006 20:50

Agregando unos comentarios a mi consulta yo utilizo este metodo para msgbox

Private Sub Auto_close()
Dim msg As String, Y As Integer
Y = Year(Date)

Select Case Date
Case DateSerial(Y, 3, 17) To DateSerial(Y, 6, 20)
msg = "hasta el segundo bimestre."
Case DateSerial(Y, 6, 21) To DateSerial(Y, 8, 30)
msg = "hasta el tercer bimestre."
Case DateSerial(Y, 9, 1) To DateSerial(Y, 11, 30)
msg = "hasta el cuarto bimestre."
Case DateSerial(Y, 12, 1) To DateSerial(Y, 12, 28)
msg = "Felí­z Navidad y Prospero Año Nuevo. "
End Select

If msg <> "" Then _
MsgBox "Gracias Profesor Peregrino, " & msg, , " Númenor Lórien "
End Sub


y esta funcion:

Function EVAL(x As Double) As String

Select Case x
Case 1 To 10.49
EVAL = "C"
Case 10.5 To 15.49
EVAL = "B"
Case 15.5 To 19.49
EVAL = "A"
Case 19.5 To 20
EVAL = "AD"
Case Else: EVAL = ""
End Select
End Function

' formula para q funcione la funcion =SI(ESERROR(EVAL(F11)),"",EVAL(F11))


Las pongo por si pueden serle utiles a laguien ya seria cuestion de q la adapten a su metodo de trabajo, algo asi quize hacer uno funcion para q aparezcan valores en la celda dependiendo de la fecha espero me pueden ayuda gracias y suerte
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
DanyDaniel
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Dic 2004 15:59
Ubicación: Perú

Re: Poner frases en celdas segun fecha

Notapor ioyama » 11 Jul 2006 02:38

Hola Dany

Revisa el adjunto, creo que la solución que te presento es muy sencilla, ya que simplemente usa un BUSCARV.

Un saludo desde Vitoria
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
ioyama
Miembro Frecuente
Miembro Frecuente
 
Registrado: 28 Ene 2005 09:12
Ubicación: Vitoria

Re: Poner frases en celdas segun fecha

Notapor DanyDaniel » 13 Jul 2006 19:18

Hola Ioyame muchas gracias por tu ayuda, saludos de Lima-Perú pais del Pisco y el Ceviche y de muchas cosas mas.......
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
DanyDaniel
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Dic 2004 15:59
Ubicación: Perú


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados