Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro for column width
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!! |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro for column width
If you only want: Columns A:H,
at 12, and I:Q stays at 5, then Columns("A:H").Select Selection.ColumnWidth = 12 Columns("I:Q").Select Selection.ColumnWidth = 5 "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!! |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro for column width
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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro for column width
You could leave out all the lines that start with Range but otherwise, it
works for me. Try stepping through the macro (F8) and observe what happens on your spreadsheet. "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!! |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do I email amacro? | Excel Worksheet Functions | |||
Macro question | Excel Worksheet Functions | |||
Search, Copy, Paste Macro in Excel | Excel Worksheet Functions | |||
Editing a simple macro | Excel Worksheet Functions | |||
Date macro | Excel Discussion (Misc queries) |