Sorting of colored cells all at once.

[SouthKaDaaku]

Hello everyone,

I have a data file that contains many columns. Under each column there are cells that are colored and some that are blank.
I want to be sort the data in such a way that all the colored cells appear on top and the non colored cells below them.
I have manually sorted till column 25. Since there are multiple columns i want to do the sorting at once, by use of a VBA or Macro.

Sharing the sample file and a screenshot of the same.

 

[vletm]

SouthKaDaaku​

One sample ...

 

[Marc L]

Hello, according to the attachment an Excel basics VBA demonstration for starters :​

Sub Demo1()
        Dim Rc As Range
        Application.ScreenUpdating = False
    For Each Rc In [A5].CurrentRegion.Columns
   With ActiveSheet.Sort
       .SortFields.Clear
       .Header = 2
       .SetRange Rc
       .SortFields.Add Rc, 1, 2
       .Apply
   End With
    Next
        Application.ScreenUpdating = True
End Sub

Do you like it ? So thanks to click on bottom right Like !​

​

 

[SouthKaDaaku]

Thank you for your replies,

vletm ( I remember you have helped me with some other problem previously too )

Marc L, for listing the code.

Thank you.