ORDENAR FILAS POR COLORES
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
4 mensajes
• Página 1 de 1
ORDENAR FILAS POR COLORES
por jcolan » 17 Feb 2010 17:44
NECESITO ORDENAR LOS DATOS DEL SIGUIENTE ARCHIVO, NECESITO AGRUPAR FILAS ROJAS Y FILAS AMARILLAS QUINE ME PUEDEN AYUDAR??? =(
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- jcolan
- Miembro Frecuente
- Registrado: 29 Ago 2005 17:16
- Ubicación: cardenas, tabasco
Re: ORDENAR FILAS POR COLORES
por Antoni » 18 Feb 2010 04:28
Hola:
Te adjunto macro que posiciona todas las filas AMARILLAS delante de las ROJAS.
El control del color se efectúa en la columna 1.
si quieres primero las ROJAS, cambia
por
Salu2
Antoni
Te adjunto macro que posiciona todas las filas AMARILLAS delante de las ROJAS.
El control del color se efectúa en la columna 1.
- Código: Seleccionar todo
Sub AGRUPAR_COLORES()
Application.ScreenUpdating = False
ULTIMAFILA = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Y = 2
For X = 2 To ULTIMAFILA
If ActiveSheet.Cells(X, 1).Interior.ColorIndex = 6 Then
ActiveSheet.Rows(Y).Insert
ActiveSheet.Rows(X + 1).Copy ActiveSheet.Rows(Y)
ActiveSheet.Rows(X + 1).Delete
Y = Y + 1
End If
Next X
End Sub
si quieres primero las ROJAS, cambia
- Código: Seleccionar todo
If ActiveSheet.Cells(X, 1).Interior.ColorIndex = 6 Then
por
- Código: Seleccionar todo
If ActiveSheet.Cells(X, 1).Interior.ColorIndex = 3 Then
Salu2
Antoni
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
Antoni - Miembro Frecuente
- Registrado: 22 Dic 2009 04:58
- Ubicación: GALICIA (ESPAÑA)
Re: ORDENAR FILAS POR COLORES
por jcolan » 18 Feb 2010 11:37
Antoni mil millones de gracias (digo si mi expresión es valida para mi agradecimiento jajaja) tu aporte ha sido suuuper de gran utilidad ahora como puedo ejecutar esta macros en -el horrible y nada efectivo para MI- open officce??? Saludos y una vez mas gracias por sacarme de mi apuro
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- jcolan
- Miembro Frecuente
- Registrado: 29 Ago 2005 17:16
- Ubicación: cardenas, tabasco
Re: ORDENAR FILAS POR COLORES
por Antoni » 18 Feb 2010 12:41
Lo siento, pero no tengo ni idea de Open Oficce.
Salu2
Salu2
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
Antoni - Miembro Frecuente
- Registrado: 22 Dic 2009 04:58
- Ubicación: GALICIA (ESPAÑA)
Compartir en:
4 mensajes
• Página 1 de 1
-
- Anuncio
Volver a Bases de Datos y Tablas Dinámicas
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados
