Copy to next available row and sort

[B-radK]

Hi team,

I have a "workbook1" with a database full of names in sheet 1 and their corresponding information in sheet 2.
I have made a drop-down cell with "Onboard" and "Not onboard" next to each of the names in sheet 1.
When I select "Onboard" I would like that row's contents and the contents of that same row in sheet 2 to be copied.
I would then like to open a workbook called "Onboard" and have the copied information pasted into sheet 1 and sheet 2 in the next blank row and then sort column A in both sheets alphabetically.

I tried recording a macro, but it was really long winded and I'm sure there's a better way.

Is anyone able to help? It would be greatly appreciated.
Thanks so much,
B-radK

 

[John Davis]

Hi team,

I have a "workbook1" with a database full of names in sheet 1 and their corresponding information in sheet 2.
I have made a drop-down cell with "Onboard" and "Not onboard" next to each of the names in sheet 1.
When I select "Onboard" I would like that row's contents and the contents of that same row in sheet 2 to be copied.
I would then like to open a workbook called "Onboard" and have the copied information pasted into sheet 1 and sheet 2 in the next blank row and then sort column A in both sheets alphabetically.

I tried recording a macro, but it was really long winded and I'm sure there's a better way.

Is anyone able to help? It would be greatly appreciated.
Thanks so much,
B-radK

Does this help in anyway? Or maybe get you started?

Sub BradK()
'
Dim lr As Long

    Sheets(Array("Sheet1", "Sheet2")).Select
    Sheets("Sheet1").Activate
    If ActiveCell.Value = "Onboard" Then
    ActiveCell.EntireRow.Select
    End If
    Selection.Copy
    Workbooks.Open Filename:="D:\YOURPATH\Onboard.xls"

lr = Workbooks("OnBoard.xls").Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1

    Range("A" & lr).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Rows("2:" & lr).Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Sheet2").Activate
    Rows("2:" & lr).Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal



End Sub

 

[B-radK]

Hi John.

Thank you very much mate, that is a great start and I can take it from here.
Thanks again mate, very much appreciated!

Cheers
Brad.

 

[John Davis]

Hi John.

Thank you very much mate, that is a great start and I can take it from here.
Thanks again mate, very much appreciated!

Cheers
Brad.

You're welcome, glad it helped.