MARCAR UNA SOLAPA U HOJA DE EXCEL

16/07/2008 - 12:11 por !00000 | Informe spam

Quisiera que al iniciar excel y si la fecha es julio u otro mes, la solapa u
hoja de excel se me pusiera de un color por ejemplo el rojo.
GRACIAS A TOD@S

Estoy utilizando la versión gratuita de SPAMfighter para usuarios privados.
Ha eliminado 8 correos spam hasta la fecha.
Los abonados no tienen este mensaje en sus correos.
¡Pruebe SPAMfighter gratis ya!

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

16/07/2008 - 18:32 | Informe spam

hola, 'anonimo/a' !

Quisiera que al iniciar excel y si la fecha es julio u otro mes
la solapa u hoja de excel se me pusiera de un color por ejemplo el rojo...

a partir de la version 2002/xp de excel, puedes cambiar el color de las etiquetas
aplicando un .ColorIndex a la propiedad .Tab de un objeto (Work)Sheet (p.e.)
usando el evento '_open' de tu libro...

With Worksheets("nombre de la hoja").Tab
Select Case Month(Date)
Case 1 ' Enero
.ColorIndex = 3 ' Rojo
Case 2 ' Febrero
' consulta la ayuda en linea por otros .ColorIndex
End Select
End With

saludos,
hector.

Responder a este mensaje

#2 Emilio

17/07/2008 - 12:15 | Informe spam

Hola!

me voy a permitir ofrecer una opción con menos líneas de código, en esencia
mas de lo mismo

Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In ThisWorkbook.Worksheets
' buscara coincidencias (en cualquier parte del nombre) de los tres
primeros caracteres
' del nombre de mes en español
If LCase(Hoja.Name) Like "*" & LCase(Format(Date, "mmm")) & "*" Then
Hoja.Tab.ColorIndex = 3 ' pestaña roja
Exit For
Else
Hoja.Tab.ColorIndex = -4142 ' pestaña sin color
End If
Next Hoja
End Sub ' Workbook_Open

Saludos a
Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Héctor Miguel" escribió en el mensaje
news:

hola, 'anonimo/a' !

Quisiera que al iniciar excel y si la fecha es julio u otro mes
la solapa u hoja de excel se me pusiera de un color por ejemplo el
rojo...

a partir de la version 2002/xp de excel, puedes cambiar el color de las
etiquetas
aplicando un .ColorIndex a la propiedad .Tab de un objeto (Work)Sheet
(p.e.)
usando el evento '_open' de tu libro...

With Worksheets("nombre de la hoja").Tab
Select Case Month(Date)
Case 1 ' Enero
.ColorIndex = 3 ' Rojo
Case 2 ' Febrero
' consulta la ayuda en linea por otros .ColorIndex
End Select
End With

saludos,
hector.

Responder a este mensaje

#3 Héctor Miguel

18/07/2008 - 01:56 | Informe spam

hola, chicos !

yo solo quitaria el "Exit For" para permitir que (en su caso) cualquier hoja "coloreada" previamente...
aunque claro (como siempre), es OP quien tiene "el panorama mas completo" ;)

saludos,
hector.

Emilio escribio en el mensaje ...
me voy a permitir ofrecer una opción con menos líneas de código, en esencia mas de lo mismo
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In ThisWorkbook.Worksheets
' buscara coincidencias (en cualquier parte del nombre) de los tres primeros caracteres
' del nombre de mes en español
If LCase(Hoja.Name) Like "*" & LCase(Format(Date, "mmm")) & "*" Then
Hoja.Tab.ColorIndex = 3 ' pestaña roja
Exit For
Else
Hoja.Tab.ColorIndex = -4142 ' pestaña sin color
End If
Next Hoja
End Sub ' Workbook_Open

__ OP __

Quisiera que al iniciar excel y si la fecha es julio u otro mes
la solapa u hoja de excel se me pusiera de un color por ejemplo el rojo...

a partir de la version 2002/xp de excel, puedes cambiar el color de las etiquetas
aplicando un .ColorIndex a la propiedad .Tab de un objeto (Work)Sheet (p.e.)
usando el evento '_open' de tu libro...

With Worksheets("nombre de la hoja").Tab
Select Case Month(Date)
Case 1 ' Enero
.ColorIndex = 3 ' Rojo
Case 2 ' Febrero
' consulta la ayuda en linea por otros .ColorIndex
End Select
End With

Responder a este mensaje

#4 Emilio

18/07/2008 - 08:06 | Informe spam

Efectivamente tienes razón, tratando de acelerar el proceso se me escapó esa
posibilidad :S

Saludos a
Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Héctor Miguel" escribió en el mensaje
news:

hola, chicos !

yo solo quitaria el "Exit For" para permitir que (en su caso) cualquier
hoja "coloreada" previamente...
aunque claro (como siempre), es OP quien tiene "el panorama mas completo"
;)

saludos,
hector.

Emilio escribio en el mensaje ...
me voy a permitir ofrecer una opción con menos líneas de código, en
esencia mas de lo mismo
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In ThisWorkbook.Worksheets
' buscara coincidencias (en cualquier parte del nombre) de los tres
primeros caracteres
' del nombre de mes en español
If LCase(Hoja.Name) Like "*" & LCase(Format(Date, "mmm")) & "*" Then
Hoja.Tab.ColorIndex = 3 ' pestaña roja
Exit For
Else
Hoja.Tab.ColorIndex = -4142 ' pestaña sin color
End If
Next Hoja
End Sub ' Workbook_Open

__ OP __

Quisiera que al iniciar excel y si la fecha es julio u otro mes
la solapa u hoja de excel se me pusiera de un color por ejemplo el
rojo...

a partir de la version 2002/xp de excel, puedes cambiar el color de las
etiquetas
aplicando un .ColorIndex a la propiedad .Tab de un objeto (Work)Sheet
(p.e.)
usando el evento '_open' de tu libro...

With Worksheets("nombre de la hoja").Tab
Select Case Month(Date)
Case 1 ' Enero
.ColorIndex = 3 ' Rojo
Case 2 ' Febrero
' consulta la ayuda en linea por otros .ColorIndex
End Select
End With

Responder a este mensaje

#5 Emilio

18/07/2008 - 08:14 | Informe spam

Indicar además que donde digo "los tres primeros caracteres del nombre de
mes en español" no exactamente correcto, será según el idioma del Excel
instalado en cada máquina, es decir deberá coincidir el idioma en las
pestañas con el del office instalado.

Saludos a
Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Emilio" <miliuco56 ALGARROBA hotmail.com> escribió en el mensaje
news:

Efectivamente tienes razón, tratando de acelerar el proceso se me escapó
esa posibilidad :S

Saludos a
Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Héctor Miguel" escribió en el mensaje
news:

hola, chicos !

yo solo quitaria el "Exit For" para permitir que (en su caso) cualquier
hoja "coloreada" previamente...
aunque claro (como siempre), es OP quien tiene "el panorama mas completo"
;)

saludos,
hector.

Emilio escribio en el mensaje ...
me voy a permitir ofrecer una opción con menos líneas de código, en
esencia mas de lo mismo
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In ThisWorkbook.Worksheets
' buscara coincidencias (en cualquier parte del nombre) de los tres
primeros caracteres
' del nombre de mes en español
If LCase(Hoja.Name) Like "*" & LCase(Format(Date, "mmm")) & "*" Then
Hoja.Tab.ColorIndex = 3 ' pestaña roja
Exit For
Else
Hoja.Tab.ColorIndex = -4142 ' pestaña sin color
End If
Next Hoja
End Sub ' Workbook_Open

__ OP __

Quisiera que al iniciar excel y si la fecha es julio u otro mes
la solapa u hoja de excel se me pusiera de un color por ejemplo el
rojo...

a partir de la version 2002/xp de excel, puedes cambiar el color de las
etiquetas
aplicando un .ColorIndex a la propiedad .Tab de un objeto (Work)Sheet
(p.e.)
usando el evento '_open' de tu libro...

With Worksheets("nombre de la hoja").Tab
Select Case Month(Date)
Case 1 ' Enero
.ColorIndex = 3 ' Rojo
Case 2 ' Febrero
' consulta la ayuda en linea por otros .ColorIndex
End Select
End With

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida