Foro Excel

NECESITO ORDENAR LOS DATOS DEL SIGUIENTE ARCHIVO, NECESITO AGRUPAR FILAS ROJAS Y FILAS AMARILLAS QUINE ME PUEDEN AYUDAR??? =(

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.

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

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

Lo siento, pero no tengo ni idea de Open Oficce.

Salu2