JB99
08-13-2021, 04:12 AM
Hi folks,
first post, fairly new to VBA.
I want to automate the formatting of daily reports. So far everything works fine, but i can't find away for the following issue:
I address a cell which is merged across two rows (eg. A60:A61), in which i want to increase the height of the lower one row. The amount of lines above can change daily and above are both empty and filled cells. So i "access" the cell with the code below, which brings me to lets say A60:61 selected, but neither of the commented lines achieve to increase the height of in this case A61. It's only increasing A60.
I also tried to go via .offset(1,0) but this lead to change A62.
Range("A26").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
'Rows(ActiveCell.Row).RowHeight = 25
'ActiveCell.RowHeight = 25
How do i manage to change the height of A60&A61 or even better only A61, both works but i always end up only changing A60.
Thanks in advance and kind regards
JB
first post, fairly new to VBA.
I want to automate the formatting of daily reports. So far everything works fine, but i can't find away for the following issue:
I address a cell which is merged across two rows (eg. A60:A61), in which i want to increase the height of the lower one row. The amount of lines above can change daily and above are both empty and filled cells. So i "access" the cell with the code below, which brings me to lets say A60:61 selected, but neither of the commented lines achieve to increase the height of in this case A61. It's only increasing A60.
I also tried to go via .offset(1,0) but this lead to change A62.
Range("A26").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
'Rows(ActiveCell.Row).RowHeight = 25
'ActiveCell.RowHeight = 25
How do i manage to change the height of A60&A61 or even better only A61, both works but i always end up only changing A60.
Thanks in advance and kind regards
JB