Excel

[chloe_martin7]

Hi,

I wonder if someone can help me with my excel spreadsheet. I have inserted a table with items I’m selling, once I’ve sold an item I’m wanting to move the row to the bottom of my table/list automatically if I type"Sold" in the "Sold?" Column (H)

Please can someone help me know how to make this happen?

Thank you in advance

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter "Sold" in any cell in column H and press the ENTER key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 8 Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target = "Sold" Then
        Target.EntireRow.Copy Cells(Rows.Count, "A").End(xlUp).Offset(1)
        Target.EntireRow.Delete
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[chloe_martin7]

Thank you very much! Is there a way of making this work on the web? i'm wanting to be able to edit the same document on my phone and laptop Thank you!

 

[mumps]

making this work on the web

You are very welcome. I'm not sure what you mean by this. The macro is designed to work using Excel. It should work with Excel on your laptop but I have no idea how you could edit the document using your phone.