............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Nombre de la Hoja - Pestaña - Color de la Etiqueta

Ver el tema anterior Ver el tema siguiente Ir abajo

Nombre de la Hoja - Pestaña - Color de la Etiqueta

Mensaje por GalileoGali el Vie Abr 11, 2008 11:37 pm

El siguiente código es una adecuacion de otro perteneciente a Ioyama, que me ha parecido interesante. Parte de una Validacion del tipo Lista que contiene los nombres posibles para titulares, por ejemplo de cuentas. Por ejemplo supongamos una Base de clientes, donde se quiere Agregar al libro una copia de la "Hoja Maestra" y desde la celda "B5" en la que está la lista de clientes. Desde alli es posible darle color y nombre a la etiqueta de la Hoja.

El siguiente codigo debe insertarse en el Modulo Thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$5" Then
Dim hoja As Worksheet

On Error Resume Next
Err.Clear
Set hoja = Sheets(Range("B5").Value)
If Err.Number = 0 Then
MsgBox "YA EXISTE UNA HOJA CON ESE NOMBRE"
Exit Sub
End If

Sh.Name = Sh.Range("B5")

nomhoja = Sh.Name
Select Case nomhoja
Case "Ioyama"
Sh.Tab.ColorIndex = 10
Case "ST"
Sh.Tab.ColorIndex = 44
Case "Warcraft"
Sh.Tab.ColorIndex = 3
Case ""
Sh.Tab.ColorIndex = -4142
End Select
End If

End Sub

Faltaria mostrar como con un commandbutton en cada hoja ( copias de la hoja maestra), puede solicitarse el agregado de una nueva hoja.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.