Macro for column width
Thanks to all of you I found the problem. The sheet had a few cells that were
merged, so instead of selecting each row separately, it was selecting A:H all
the time and changing its width several times.
Thank you all for your quick help!!!
"Dave Peterson" wrote:
Your code worked ok for me.
Are you sure you're looking at the correct sheet.
And recording macros sometimes makes the code difficult to follow.
Your code is equivalent to:
Columns("A:A").ColumnWidth = 8
Columns("B:B").ColumnWidth = 15
Columns("C:C").ColumnWidth = 20
Columns("D:D").ColumnWidth = 9
Columns("E:E").ColumnWidth = 9
Columns("F:F").ColumnWidth = 11
Columns("G:G").ColumnWidth = 7
Columns("H:H").ColumnWidth = 12
Columns("I:Q").ColumnWidth = 5
Which is easier to read/modify.
======
Do you have merged cells in your data? Depending on the version of excel, maybe
that's the cause of the problem you're seeing.
Martincito23 wrote:
Hi,
I'm trying to make a macro which allows me to format a sheet. One of the
formats that I want to add in the macro is the column width. Below there is
part of the macro that I'm using in order to adjust the column width:
Columns("A:A").Select
Range("A3").Activate
Selection.ColumnWidth = 8
Columns("B:B").Select
Range("B3").Activate
Selection.ColumnWidth = 15
Columns("C:C").Select
Range("C2").Activate
Selection.ColumnWidth = 20
Columns("D:D").Select
Range("D2").Activate
Selection.ColumnWidth = 9
Columns("E:E").Select
Range("E3").Activate
Selection.ColumnWidth = 9
Columns("F:F").Select
Range("F3").Activate
Selection.ColumnWidth = 11
Columns("G:G").Select
Range("G2").Activate
Selection.ColumnWidth = 7
Columns("H:H").Select
Range("H4").Activate
Selection.ColumnWidth = 12
Columns("I:Q").Select
Selection.ColumnWidth = 5
The problem that I'm having is that from Columns A:H, the column width stays
at 12, and I:Q stays at 5. I'm actually expecting to have the columns A:H
with the width detailed in the macro. I know that there is something wrong in
the macro, but I can find what it is.
Can you please help me out??
Thank you!!
--
Dave Peterson
|