Hello:
Please refer to attached file.
I have data as shown in sheet1.
I need VB code to filter these data by ascendng sort at A12.
Once it is sorted then insert one row between each new
I have manually done this in Sheet2.
Let me know if you have any questions.
Thanks.
Riz
No more sorting keys, only this one - A12 ?
Hello Pv
Please check the uploaded file and sheet2.
Need to filter at A12 and do filter column A (FROM)
Riz
I checked => "SKU" is not sorted and looks "ugly" ...Originally Posted by rizmomin
Try this.
Sub tst() With Sheet1 .Cells(12, 1).CurrentRegion.Offset(1).Sort .Range("A13"), xlAscending For i = .Range("A" & Rows.Count).End(xlUp).Row To 14 Step -1 If .Cells(i, 1) <> .Cells(i - 1, 1) Then .Cells(i, 1).EntireRow.Insert .Cells(i, 1).Resize(, 6).Interior.Color = 14211288 End If Next End With End Sub
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
Hello Bakerman2:
Thanks a lot, works great
Riz
You're welcome and thanks for rep+.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
rizmomin 
Register To Reply
Bookmarks