Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting Column width using macro..
I need some help creating a macro in MS Excel.
Say I have a worksheet with 20+ columns of various column widths. All I need is to get the size of each column and put it in a cell of the respective column. If the cursor was placed on a row where the column headings are available, I want the macro, to get width of respective column and save it in the next row go to next column and do step 1 stop when no more columns are available (say it reaches the empty cell) After executing the macro, the Worksheet should look something like this: A B C D E Name ID DOB Comment 15.14 8.43 11.14 25 Thanks in Advance for the help. KM |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting Column width using macro..
I ran this code as a quick test on Column A
Columns("A:A").ColumnWidth = 15 Cells(1, 1).Select ActiveCell = Selection.ColumnWidth Hope that helps. Steve |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting Column width using macro..
why not just use this and drag from left to right
=CELL("width",B2) -- Don Guillett SalesAid Software "KM" wrote in message ... I need some help creating a macro in MS Excel. Say I have a worksheet with 20+ columns of various column widths. All I need is to get the size of each column and put it in a cell of the respective column. If the cursor was placed on a row where the column headings are available, I want the macro, to get width of respective column and save it in the next row go to next column and do step 1 stop when no more columns are available (say it reaches the empty cell) After executing the macro, the Worksheet should look something like this: A B C D E Name ID DOB Comment 15.14 8.43 11.14 25 Thanks in Advance for the help. KM |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting Column width using macro..
KM,
If Don's reply does not suit, this code will work out the last column and add the column widths Sub Widths() Dim cLastCol As Long Dim i As Long cLastCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To cLastCol Cells(2, i) = Columns(i).Width Next End Sub -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "KM" wrote in message ... I need some help creating a macro in MS Excel. Say I have a worksheet with 20+ columns of various column widths. All I need is to get the size of each column and put it in a cell of the respective column. If the cursor was placed on a row where the column headings are available, I want the macro, to get width of respective column and save it in the next row go to next column and do step 1 stop when no more columns are available (say it reaches the empty cell) After executing the macro, the Worksheet should look something like this: A B C D E Name ID DOB Comment 15.14 8.43 11.14 25 Thanks in Advance for the help. KM |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Change Cell Width WITHOUT changing Column width | Excel Discussion (Misc queries) | |||
Macro for column width | Excel Discussion (Misc queries) | |||
how do I create multiple column width in the same column in excel | Excel Discussion (Misc queries) | |||
How to make cell width different than the column width it lies in | Excel Discussion (Misc queries) | |||
Change the width of a single column in a column chart | Charts and Charting in Excel |