Macro to Sort
 

I have a macro that consolidates multiple sheets into one. I'd like to
include a code in the macro where it sorts the dates (starting in cell b2)
once the consolidation is done. The headings are in row 1, how do I write a
macro where the sort starts in cell b2?

Macro to Sort
 

hi
do the sort manually with the macro recorder on. the recorder will write the
code for you. after that copy the recorder code and paste it in into your
project.

regards
FSt1

"Confused" wrote:

I have a macro that consolidates multiple sheets into one. I'd like to
include a code in the macro where it sorts the dates (starting in cell b2)
once the consolidation is done. The headings are in row 1, how do I write a
macro where the sort starts in cell b2?

Macro to Sort
 

On 12 авг, 14:20, Confused wrote:
I have a macro that consolidates multiple sheets into one. Â*I'd like to
include a code in the macro where it sorts the dates (starting in cell b2) Â*
once the consolidation is done. Â*The headings are in row 1, how do I write a
macro where the sort starts in cell b2?

Is it possible to see your code?

Thanks

Macro to Sort
 

Will this work if I keep adding lines to the consolidated sheet? the code
generated using the macro recorder ends at the last cell where it contains a
value.

"FSt1" wrote:

hi
do the sort manually with the macro recorder on. the recorder will write the
code for you. after that copy the recorder code and paste it in into your
project.

regards
FSt1

"Confused" wrote:

I have a macro that consolidates multiple sheets into one. I'd like to
include a code in the macro where it sorts the dates (starting in cell b2)
once the consolidation is done. The headings are in row 1, how do I write a
macro where the sort starts in cell b2?

Macro to Sort
 

Here is the code to where it consolidates all the individual worksheets.


Sub consolidatesheets()
Application.ScreenUpdating = False

With Sheets("Consolidated")
Rows("2:" & Cells(2, 1).End(xlDown).Row).Delete

For Each sh In ThisWorkbook.Sheets

If LCase(Left(sh.Name, 1)) = "1" Then
dlr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
slr = sh.Cells(Rows.Count, 1).End(xlUp).Row
If slr 1 Then sh.Cells(2, 1).Resize(slr, 16).Copy .Cells(dlr, 1)
End If

Next sh

Columns("A:p").HorizontalAlignment = xlCenter
End With

Application.ScreenUpdating = True
End Sub

"Loop" wrote:

On 12 авг, 14:20, Confused wrote:
I have a macro that consolidates multiple sheets into one. I'd like to
include a code in the macro where it sorts the dates (starting in cell b2)
once the consolidation is done. The headings are in row 1, how do I write a
macro where the sort starts in cell b2?

Is it possible to see your code?

Thanks