Macro vba code for moving row to ed automatically

[SaraDeniston]

I AM USING EXCELL 2019 and have reserached allot on macro codes/vba. I am trying to find a code that when excel opens every time, the rows that containe "Discharged" will automatically move to the bottom of the sheet and the ones that say "Inpatient" will stay at the top.
the column that contains Inpatient or discharged is J
as of right now I only have 30 rows but might have to add more if more patients are consulted
is there a way to do this

 

[James006]

Hello,

With a Workbook Open Event ... you can easily have a Sort macro which will produce your expected result ...

Two steps :

1. Create your Sort macro

2. Add the event macro to launch your Sort macro

Hope this will help

 

[Logit]

.
The following presumes your patient data begins in Row 2, with Row 1 having column headers.


Paste the following in a module :

Option Explicit
Sub SortInptOutpt()
Dim lastrow As Long


lastrow = Cells(Rows.Count, 10)
Range("J2:J100").EntireRow.Sort key1:=Range("J2:J100"), _
   order1:=xlDescending, Header:=xlNo


End Sub

Paste the following in the module ThisWorkbook :

Option Explicit


Private Sub Workbook_Open()
    SortInptOutpt
End Sub