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

Compaginar dos o mas condiciones dentro de un Evento

Ver el tema anterior Ver el tema siguiente Ir abajo

Compaginar dos o mas condiciones dentro de un Evento

Mensaje por GalileoGali el Lun Mar 10, 2008 8:42 pm

Pregunta formulada via E-mail (a compartir en este foro) por ab9

Inicialmente tengo esto:
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("B1") = 0 Then
        ActiveSheet.Name = "--"
    Else
    If Target.Address =  "$B$1” Then Exit Sub
        ActiveSheet.Name = [B1]
    End If
End Sub
Y le quiero sumar esto:
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("B2") = "COT" Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 27
    Else
                    If Range("B2") = "PIC" Then
                        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 4
                        Else
                            If Range("B2") = "OP" Then
                                ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 41
                                Else
                                    If Range("B2") = "FAL" Then
                                        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 3
                                    End If
                            End If
                    End If
            End If
End Sub

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

Masculino Cantidad de envíos : 1963
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

Re: Compaginar dos o mas condiciones dentro de un Evento

Mensaje por GalileoGali el Lun Mar 10, 2008 8:46 pm

Podés ir probando esto:


Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B1") = 0 Then
        ActiveSheet.Name = "--"
Else
    If Target.Address = "$B$1" Then
        Select Case Range("B2")
            Case "COT"
            ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 27
            Case "PIC"
            ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 4
            Case "OP"
            ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 41
            Case "FAL"
            ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 3
        End Select
    Else
        ActiveSheet.Name = [B1]
    End If
End If
   
End Sub

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

Masculino Cantidad de envíos : 1963
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

Re: Compaginar dos o mas condiciones dentro de un Evento

Mensaje por ab9 el Mar Mar 11, 2008 8:41 am

Gali, gracias por responder.

Te cuento que mi idea era la siguiente:

En B1 colocar el nombre de la etiqueta y que en forma "on-line" cambie el mismo en la etiqueta.

Idependientemente, si cambio B2, que seria el "estado" de la planilla, modificando el valor (en el código figura COT, PIC, OP y FAL como ejemplos) cambie el color independientemente si cambio el nombre de la etiqueta.

Lo que esta paasando, tanto en el codigo que te pase ayer por mail como las pruebas que estuve haciendo para concatenar estos dos códigos, siempre uno depende del otro y si no cambio "B1" la alteracion que pueda causar B2 no se manifiesta.


Muchas Gracias.

ab9

Cantidad de envíos : 2
Fecha de inscripción : 05/03/2008

Volver arriba Ir abajo

Re: Compaginar dos o mas condiciones dentro de un Evento

Mensaje por sailepaty el Mar Mar 11, 2008 11:22 am

Puede que algo así funcione,

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" And Target.Address <> "$B$2" Then Exit Sub
    Application.EnableEvents = False
    If Range("B1") = 0 Then
        ActiveSheet.Name = "--"
    Else
        ActiveSheet.Name = [B1]
    End If
    If Range("B2") = "COT" Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 27
    ElseIf Range("B2") = "PIC" Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 4
    ElseIf Range("B2") = "OP" Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 41
    ElseIf Range("B2") = "FAL" Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 3
    End If
    Application.EnableEvents = True
End Sub

Saludos
avatar
sailepaty
Moderador
Moderador

Masculino Cantidad de envíos : 135
Edad : 54
Ciudad - Pais : Dallas, TX
Version de Excel : 2007 y 2010
Fecha de inscripción : 04/03/2008

Volver arriba Ir abajo

Re: Compaginar dos o mas condiciones dentro de un Evento

Mensaje por ab9 el Mar Mar 11, 2008 11:39 am



GRACIAS!!!!

ab9

Cantidad de envíos : 2
Fecha de inscripción : 05/03/2008

Volver arriba Ir abajo

Re: Compaginar dos o mas condiciones dentro de un Evento

Mensaje por Contenido patrocinado


Contenido patrocinado


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.