UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

jovalcon


Buenas Noches,

he creado una macro en la cual hay 3 opciones en cada fila, si el valor de la opción es >0 y la fila J el Valor es " No Contratado"  tienen que tener valor en las 2 celdas correspondientes de cada opción, de no ser así tiene que dar color, así para cada una de las opciones.

He creado una Macro en la cual me funciona correctamente la ópción 1 salvo si ejecuto la macro con el valor de " No Contratado " si lo marca el color, pero si seguidamente elimino el valor de la celda J o modifico el valor para que no sea " No Contradado" para que no se maque el color y no me hace nada.

He cambiado los valores correspondientes de la opción 2 y la opción 3 y en estas no me hacen nada.

por favor me pueden ayudar al respecto ya que no se qu puedo estar haciendo  mal.

Muchas gracias por vuestra colaboración.

adjunto archivo.

saludos//
Archivos
Valores depende de Opciones.zip
No tienes los permisos para descargar los archivos.
(12 KB)

jovalcon


Disculpar he adjuntado un archivo erróneo, parece ser que los valores de las 3 opciones si funcionan y alteran los colores según indican, pero si ejecuto la macro y elimino o modifico el valor de la columna J, no se le va el color, no encuentro o no se como arreglarlo.

saludos y disculpen las molestias.

Gracias

jovalcon


copio código.

Sub segunopciones()

'opcion1

    x = "C"
    y = "F"
    Z = "G"
    w = "J"
    
    For i = 1 To Range(x & Rows.Count).End(xlUp).Row
        If Cells(i, x) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, y).Interior.ColorIndex = 3
         Cells(i, Z).Interior.ColorIndex = 3
        End If
        
     If Cells(i, y) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, y).Interior.ColorIndex = 0
    End If
    
     If Cells(i, Z) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, Z).Interior.ColorIndex = 0
    End If
    
    
    'opcion 2
        
        
 r = "D"
 t = "H"
 s = "I"
 
       If Cells(i, r) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, t).Interior.ColorIndex = 3
         Cells(i, s).Interior.ColorIndex = 3
        End If
        
     If Cells(i, t) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, t).Interior.ColorIndex = 0
    End If
    
     If Cells(i, s) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, s).Interior.ColorIndex = 0
    End If
    
    'opción 3
    
    n = "E"
    
     If Cells(i, n) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, t).Interior.ColorIndex = 3
         Cells(i, s).Interior.ColorIndex = 3
        End If
        
     If Cells(i, t) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, t).Interior.ColorIndex = 0
    End If
    
     If Cells(i, s) > 0 And Cells(i, w) = ("No Aceptado") Then
         Cells(i, s).Interior.ColorIndex = 0
    End If
      
        Next
    
    

    
    
End Sub
Archivos
Valores depende de Opciones.zip
No tienes los permisos para descargar los archivos.
(18 KB)

ioyama


Hola jovalcon

Revisa el adjunto. No tengo muy claro si al final he acabado liándome. Estoy un poco obtuso.

Un saludo desde Vitoria
Archivos
Valores depende de Opciones_io_150525.zip
No tienes los permisos para descargar los archivos.
(16 KB)

jovalcon


Buenas tardes Ioyama,

disculpa sino me he explicado bien, se que es un poco jaleoso el tema, esta todo bien, solo que sino pones ningún valor en ningunas de las 3 opciones ( opción 1, opción 2 y opción 3) se marca en color las celdas correspondientes a ( Valor opción 2 y 3 ) y si el valor de la columna J es distinta al valor " No Aceptado " no se va el color, lo mantiene.

Muchas gracias por tu aportación y ayuda constante.

saludos//

ioyama


Hola jovalcon

Revisa el adjunto

Un saludo desde Vitoria
Archivos
Valores depende de Opciones_io_150526.zip
No tienes los permisos para descargar los archivos.
(17 KB)

jovalcon


Hola Ioyama, 

eres muy amable muchas gracias como siempre, al alterar la celda J el Valor No Aceptado si actúa como debiera, lo que pasa es que si la ópción 1, ópción 2 o opcion 3 si están vacias y el Valor de la Celda J es " No aceptado ", marca en color El valor Opción 2 o Opción 3, cuando debería de marcarlo en blanco al no tener valor, las celdas de opción 1, opción 2 o opción 3, adjunto archivo para que lo visualices.

Muchas gracias como siempre, eres muy amable.

saludos//
Archivos
Valores depende de Opciones_io_150526.zip
No tienes los permisos para descargar los archivos.
(19 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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