Remove duplicated rows and sort by cell color

[martincast]

Hi all, I need to create two buttons for an excel sheet using VBA. Let me give you some context.

Let's say I have a sheet named "database". The complete "A" column is emtpy because I need it for somethign else, nothing so relevant, the information of the database is filled from column B to column K, and of course all records are listed below that, means that the row from B1 to K1 has the titles of the columns, information starts from B2-K2, B3-K3 and so on until the final record.

These record will keep increasing, new records will added, means the table "height" will variate a lot, but the "width" will be the same from B to K, and also, the column "K" will be empty of information BUT it will be filled with a color, I mean, a cell fill color and it will variate, yellow, brown, blue, red, pink, etc. ONLY COLUMN K WILL BE EMPTY OF INFO BUT FOR CELL FILL COLOR!

Now what I need, please help me.

Button 1: to eliminate rows with duplicated index in column B, it will cycle from start of the table to the end of the table/records removing the duplicated records withing the B column
Button 2: It will sort all the table using as it's reference the colors in the column K, I don't mind the order of the colors, it can be by the order how they are shown in the database, what I need is to all the blue records be together, also pink, red and all.

Please I'll appreciate your help.

[bebo021999]

Pls attach a sample worksheet.

[martincast]

I cant post link idk why, how can i post files?

[torachan]

see big yellow banner - explains how to

[martincast]

I think I uploaded it correctly

[jeffreybrown]

Please take a minute to update your thread title based on our Forum Rules.

[martincast]

I think I updated it correctly

[torachan]

opening the VBA in your file there appear to be two lots of code relevant to a Mac, what system are you using, please make this obvious in your profile.

[martincast]

Sorry for all the mess, it was windows 10 but i deleted the file, not sure what code was it but i must check again if there is no confidential information, sorry for the mess

[martincast]

here is now the sample without any confidental info, thanks and sorry for bothering

[Marc L]

According to your attachment for your Button 1 an Excel basics VBA demonstration
like any Excel beginner operating manually and using the Macro Recorder :

Sub Macro1() 
    [A1].CurrentRegion.RemoveDuplicates 2, 1 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon ? ★ Add Reputation ? ! ◄ ◄

[Marc L]

According to the attachment a VBA demonstration for the Button 2 :

Sub Macro2() 
        Dim R&, C&, oCol As New Collection 
    With ActiveSheet.AutoFilter.Sort 
       .SortFields.Clear 
        On Error Resume Next 
    For R = 2 To .Rng.Rows.Count 
        C = .Rng(R, 1).Interior.Color 
        Err.Clear 
        oCol.Add C, Str(C) 
        If Not Err.Number Then .SortFields.Add(.Rng(1), 1, 1, , 0).SortOnValue.Color = C 
    Next 
        On Error GoTo 0 
        Set oCol = Nothing 
       .Header = 1 
       .Apply 
       .SortFields.Clear 
    End With 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon ? ★ Add Reputation ? ! ◄ ◄

[martincast]

Thank you very mcuh all let me try it!

[martincast]

Thank you it work just needed some modifications but works!

[Marc L]

As I wrote : " according to the attachment " ...

Thanks for the rep' !