Sortng data with rows of differnt heights. etc

[Mabocat]

I have a spreadsheet page made of 14 columns and on average 60 rows - some are standard height & others larger and is planned to be sorted on a time of hours & minutes based on one column.
Currently I cut and paste the rows because i had merged cells. After reformatting the cells, I now have a macro that sorts the data OK but the row formatting of height is ruined.

Is it possible to sort data ( meaning the rows) and maintain the row formatting ? if so, what do I do to change my macro

     With Worksheets("Tawnton")
       .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("Tawnton_time"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
      .SetRange Range("Tawnton_data")
      .Header = xlGuess
      .Orientation = xlTopToBottom
      .Apply

Ron

PS sorry for spelling errors in Subject - unable to edit it.

 

[Mabocat]

Even changing the properties of the Arrow and sorting via menus, the arrow still doesn't move.

 

[footoo]

I changed the header OK but what does that mean?

The range per your code to be sorted does not include a header

Dim what is that ?

Declaration of a variable

where does your code actually fit into the current Tawnton code ?

Immediately before ThisWorkbook.Save

 

[Mabocat]

I changed the arrow properties back to move with cells & they move but of course they reduced in size as the row height shrunk. so Move but don't size, yes they move but end up bewten roews. not actually point to the correct location. Once the shrunk row height is restored to 30, all is good

 

[footoo]

Even changing the properties of the Arrow and sorting via menus, the arrow still doesn't move.

It does for me.

 

[Mabocat]

OK, I will try that

 

[Mabocat]

OK, I added your code where you said & it fails at the .Apply in my code

 With Worksheets("Tawnton")
       .Sort.SortFields.Clear
   .Sort.SortFields.Add Key:=Range("Tawnton_time"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With .Sort
    .Header = xlNo
      .Orientation = xlTopToBottom
     .Apply
'      Application.Goto Reference:="Tawnton_home"
'     Application.Goto Reference:="Charde_home"
      End With
      End With
      ThisWorkbook.Save

I commented the 2 Application.GoTo lines out

Now trying to step thru the macro in edit mode, it looses me, as I expect to see the range selected & highlighted and the various input boxes being set up & acted on. that is each VBA line, I want see it happening on the screen.

 

[footoo]

This line has gone missing from your code :

        .SetRange Range("Tawnton_data")

 

[Mabocat]

Thanks I don't how that vanished but it now comes up with this error for each cel line, it stops at

ith Worksheets("Tawnton")
    Range("Tawnton_data").RowHeight = 16.25
    For Each cel In Intersect(Range("Tawnton_data"), [E:E])
        If Left(Trim(cel), 3) = "Set" Then cel.RowHeight = 30
    Next

and how can I see it performing the various actions on the spreadsheet when I step thru the macro?

 

[footoo]

What error are you getting and on what line?
It is working for me without any problem.

 

[Mabocat]

It stops here and the error box has it " The item with the specified name wasn't found" but not being able to see it working on the page, I am guessing
I copied your coding straight into my file

For Each cel In Intersect(Range("Tawnton_data"), [E:E])