Auto arrange rows based on cell value

[hotdogs1999]

Hello all,

wondering if it is possible to rearrange rows on a sheet based on the value in a cell.

for example. if i have data in columns A to F, and then column G is a 'progress' column. is it possible to automatically move whole rows to the bottom of the sheet when i enter "complete" in the column G?

thanks in advance.

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window
When you enter complete in column G your script will run

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G:G")) Is Nothing Then
'Modified  12/13/2018  8:23:12 PM  EST
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Dim r As Long
r = Target.Row
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
If Target.Value = "complete" Then
    Rows(r).Copy Rows(Lastrow + 1)
    Rows(r).Delete
End If
End If
End Sub

 

[hotdogs1999]

thanks very much. works great

 

[My Aswer Is This]

thanks very much. works great

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.