I need to get data from another worksheet with multiple criteria so I wrote a VBA. Now once I get all the required data in the new sheet "FI" then the Column D from D2 till last row has to be sorted in Ascending order. Please help me with the code.
/code
Private Sub CommandButton1_Click()
lastRow = Worksheets("E-Dashboard").Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To lastRow
If (Worksheets("E-Dashboard").Range("AA" & r).Value = "1" Or Worksheets("E-Dashboard").Range("AA" & r).Value = "2" Or Worksheets("E-Dashboard").Range("AA" & r).Value = "3") Then
Worksheets("E-Dashboard").Range("B" & r & ":C" & r & ":D" & r & ":E" & r & ",G" & r & ",J" & r & ":K" & r & ":L" & r & ",AI" & r & ":AJ" & r & ":AK" & r).Copy
Worksheets("FI").Activate
lastrowFI = Worksheets("FI").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("FI").Range("A" & lastrowFI + 1).Select
ActiveSheet.Paste
End If
Next r
End Sub
/code
/code
Private Sub CommandButton1_Click()
lastRow = Worksheets("E-Dashboard").Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To lastRow
If (Worksheets("E-Dashboard").Range("AA" & r).Value = "1" Or Worksheets("E-Dashboard").Range("AA" & r).Value = "2" Or Worksheets("E-Dashboard").Range("AA" & r).Value = "3") Then
Worksheets("E-Dashboard").Range("B" & r & ":C" & r & ":D" & r & ":E" & r & ",G" & r & ",J" & r & ":K" & r & ":L" & r & ",AI" & r & ":AJ" & r & ":AK" & r).Copy
Worksheets("FI").Activate
lastrowFI = Worksheets("FI").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("FI").Range("A" & lastrowFI + 1).Select
ActiveSheet.Paste
End If
Next r
End Sub
/code