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 estás conectado. Conéctate o registrate

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

1RESUELTO Relleno Condicional el 15/11/16, 03:10 pm

edwinjo


Estimados,
Gracias me han ayudado mucho, la verdad estoy aprendiendo muchísimo; quiero solicitarles de favor ayuda para adaptar el siguiente código, para que pueda ingresar el país que busco en una lista y me lo pinte según los colores asignados, en el rango que marque, el nombre de país se ingresaría con un InputBox, y no importa si aparece a la par de una descripción, por ejemplo si busco MEXICO, y marco un rango ya sea que MEXICO, aparezca solo o con otra descripción por ejemplo MEXICO DF, siempre lo pinte, eso me indica que encontré esta el país, en el momento los países están dentro de código, pero como siempre los estoy cambiando, los necesitaría ingresarlos con inputbox
Sub formato()
Dim celda As Object
Dim rng As Range
'con INPUTBOX seleccionamos un rango de celdas
Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=Cool
'recorremos cada celda del rango seleccionado
For Each celda In rng
valor = celda.Value
    'asignamos colores según el valor de la celda
    If valor = "HONDURAS" Then
    celda.Interior.Color = 65535
    ElseIf valor = "MEXICO" Then
    celda.Interior.Color = 15773696
    ElseIf valor = "USA" Then
    celda.Interior.Color = 255
    ElseIf valor = "CANADA" Then
    celda.Interior.Color = 5296274
    End If
Next celda
End Sub
Archivos
condicional relleno color.zip
No tienes los permisos para descargar los archivos.
(13 KB)

2RESUELTO Vuestra ayuda el 16/11/16, 02:48 pm

edwinjo


Solicitándoles, su ayuda con este tema, quizás no me he dado a entender
en un imputbox ingreso un país, y si se puede el color que quiero me lo pinte o ya podría estar asignado el color en la macro de la siguiente manera
ingreso México, me lo pinta de rojo o sea podría tener la opción de uno o tres colores de tal manera que el primer el nombre que ingrese, lo pinte de un color el segundo de otro y el tercero de otro, no importa si el país aparece con otra leyenda a la par, es para identificar en una lista grande, todas las veces que aparece un país, si no se pueden tres con uno estaría bien
Gracias

3RESUELTO cambios el 16/11/16, 07:43 pm

edwinjo


He hecho estos cambios,
pero sera posible no ingresalos en celda si no con un inputbox o userform
Sub formato()
Dim celda As Object
Dim rng As Range
Dim valor As String
'con INPUTBOX seleccionamos un rango de celdas
Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=Cool
'recorremos cada celda del rango seleccionado
For Each celda In rng
valor = celda.Value
    'asignamos colores según el valor de la celda
    If valor = Range("A1").Value Then
    celda.Interior.Color = 65535
    ElseIf valor = Range("A2").Value Then
    celda.Interior.Color = 15773696
    ElseIf valor = Range("A3").Value Then
    celda.Interior.Color = 255
    ElseIf valor = Range("A4").Value Then
    celda.Interior.Color = 5296274
    End If
Next celda
End Sub

4RESUELTO Re: Relleno Condicional el 16/11/16, 09:07 pm

Igtelo

avatar
Hola Edwinjo.

Está muy enredada tu pregunta, no logro entender y el archivo lo veo muy al "ahí se va", tómate tu tiempo y explica más claro y concreto lo que necesitas.

Saludos
Ignacio Téllez
P.d: Tu pregunta anterior ¿Ya viste la sintaxis de la fórmula?
Por favor inicia tus temas y respuestas saludando, es muy feo no hacerlo.

5RESUELTO Aclaración el 16/11/16, 11:34 pm

edwinjo


Gracias Igtelo,
Me imagine que no me había podido explicar, te explico, tengo una lista, donde aparecen direcciones y me toca clasificar la direcciones que por ejemplo lleven México, en el macro que le he hecho cambios, pongo en diferente celda, las ciudades a buscar, pero tengo dos cosas que quisiere me ayudes a mejorar

  1. En lugar de poner los datos en celda por ejemplo de la a1 a la a4, ingresarlas  por medio de un inputbox o userform
  2. Que si la ciudad que busco México esta con un complemento, por ejemplo México, calle lasmmmmmmetc, como ahí esta México me lo pinte
  3. Que debo cambiar en el siguiente código, para ingresar los datos de la ciudad por medio de un inputbox o userform y para que me acepte al encontrar la ciudad auque este acompañada de otro complemento


Sub formato()
Dim celda As Object
Dim rng As Range
Dim valor As String
'con INPUTBOX seleccionamos un rango de celdas
Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=

'recorremos cada celda del rango seleccionado
For Each celda In rng
valor = celda.Value
    'asignamos colores según el valor de la celda
    If valor = Range("A1").Value Then
    celda.Interior.Color = 65535
    ElseIf valor = Range("A2").Value Then
    celda.Interior.Color = 15773696
    ElseIf valor = Range("A3").Value Then
    celda.Interior.Color = 255
    ElseIf valor = Range("A4").Value Then
    celda.Interior.Color = 5296274
    End If
Next celda
End Sub



En este momento respondo el otro tema
Archivos
condicional relleno color.zip
No tienes los permisos para descargar los archivos.
(13 KB)

6RESUELTO Re: Relleno Condicional el 17/11/16, 01:44 am

Igtelo

avatar
Buenas noches Edwinjo.

No pases por alto lo del saludo...

Te adjunto archivo.

Saludos
Ignacio Tellez
Archivos
Edwinjo-condicional relleno color.xls
No tienes los permisos para descargar los archivos.
(67 KB)

7RESUELTO Perfecto el 17/11/16, 11:56 am

edwinjo


Buenos Días Igtelo,
Gracias por tu ayuda es exacto lo que necesito,  muy agradecido

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.