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.]

1RESUELTO Macro condicionada el 14/11/13, 05:02 pm

Juanma


Buenas tardes compañeros.
Alguno de ustedes me podría ayudar en lo siguiente:
Como se le hace para dar una condición a una macro; quiero que determinadas celdas que cumplen con una condición, apliquen un formato a otras celdas con dicha macro en toda la hoja. Pero sólo las que cumplan dicha condición.
Les agradezco su ayuda. Gracias y buena tarde.

2RESUELTO Re: Macro condicionada el 14/11/13, 09:47 pm

tyno


Hola Juan.


Supongamos que en la celda A5 si se ingresa un valor y deseamos que si dicho valor es menor a 5 entonces que la celda se rellene con el color rojo , si igual a 5 entonces la celda se rellene con el color naranja, si es mayor a 5 entonces que la celda se rellene con el color amarillo, el código que vamos a crear en un módulo y el cual vamos a invocar con un botón por ejemplo,  pude ser isa:


Sub macro_rellenar_color()
With Sheets("Hoja1")
If .Range("a5") < 5 Then
.Range("a5").Interior.ColorIndex = 3
End If

If .Range("a5") = 5 Then
.Range("a5").Interior.ColorIndex = 45
End If


If .Range("a5") > 5 Then
.Range("a5").Interior.ColorIndex = 6
End If
End With

End Sub

En este caso cuando se cumple alguna de las condiciones If Then en la celda A5 el formato de relleno se aplica a la misma celda pero puede ser cualquiera o un rango:

Sub macro_rellenar_color()
With Sheets("Hoja1")
If .Range("a5") < 5 Then
.Range("b5:f5").Interior.ColorIndex = 3
End If

If .Range("a5") = 5 Then
.Range("b5:f5").Interior.ColorIndex = 45
End If


If .Range("a5") > 5 Then
.Range("b5:f5").Interior.ColorIndex = 6
End If
End With

End Sub

En cuanto al tipo de formato que quieras aplicar, ya sea el color de relleno, el tipo de fuent, tamaño, etc, lo que puedes hacer para saber como tiene que redactarse es usar la grabadora de macro y ver como quedo expresado el código cuando se aplico un formato- Saludos

3RESUELTO Re: Macro condicionada el 15/11/13, 12:46 pm

Juanma


Buenos días Tyno.
Gracias por tu ayuda. Si requiero aplicar otro formato, pero con los tips que me mencionas lo voy a intentar.
Es la primera vez que intento este tipo de macros y espero poder rsolver mi necesidad.
Gracias nuevamente por tu tiempo y saludos desde México.

4RESUELTO Re: Macro condicionada el 28/03/14, 12:31 pm

Juanma


Resuelto. Gracias.

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.