
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
If ActiveSheet.Cells(X, 1).Interior.ColorIndex = 6 ThenIf ActiveSheet.Cells(X, 1).Interior.ColorIndex = 3 Then


Volver a Bases de Datos y Tablas Dinámicas
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados