Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using Code to Adjust Specific Column Width
I have a spreadsheet that retrieves data after it has
retreived the data I want to use code to look in row 5 and go thru each cell up to the last colum, if there is nothing in the cell I want it to resize it to a smaller size, is there anyway of doing this Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using Code to Adjust Specific Column Width
If Application.COUNTA(Range("C:C") = 0 Then Range("C:C").ColumnWidth = 5 End If -- HTH Bob Phillips "Nigel Bennett" wrote in message ... I have a spreadsheet that retrieves data after it has retreived the data I want to use code to look in row 5 and go thru each cell up to the last colum, if there is nothing in the cell I want it to resize it to a smaller size, is there anyway of doing this Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using Code to Adjust Specific Column Width
Could you explain the range definition for me please
-----Original Message----- If Application.COUNTA(Range("C:C") = 0 Then Range("C:C").ColumnWidth = 5 End If -- HTH Bob Phillips "Nigel Bennett" wrote in message ... I have a spreadsheet that retrieves data after it has retreived the data I want to use code to look in row 5 and go thru each cell up to the last colum, if there is nothing in the cell I want it to resize it to a smaller size, is there anyway of doing this Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using Code to Adjust Specific Column Width
No the code didn't work I had the following entered If application.CountA(range("A5,CG5")) = 0 Then range("A5,CG5").ColumnWidth = 5 End If any help -----Original Message----- If Application.COUNTA(Range("C:C") = 0 Then Range("C:C").ColumnWidth = 5 End If -- HTH Bob Phillips "Nigel Bennett" wrote in message ... I have a spreadsheet that retrieves data after it has retreived the data I want to use code to look in row 5 and go thru each cell up to the last colum, if there is nothing in the cell I want it to resize it to a smaller size, is there anyway of doing this Thanks . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using Code to Adjust Specific Column Width
How about the following:
Dim Rng As Range Dim oCell As Range Dim LastCol As Range Set LastCol = Cells(5, Columns.Count).End(xlToLeft) Set Rng = Range(Cells(5, 1), LastCol) For each oCell in Rng If oCell="" then oCell.ColumnWidth=5 Next oCell "Nigel Bennett" wrote: I have a spreadsheet that retrieves data after it has retreived the data I want to use code to look in row 5 and go thru each cell up to the last colum, if there is nothing in the cell I want it to resize it to a smaller size, is there anyway of doing this Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Column Width: cannot adjust | Excel Discussion (Misc queries) | |||
column width will not adjust | Excel Worksheet Functions | |||
Adjust column width | Excel Discussion (Misc queries) | |||
Adjust Column Width? | Excel Discussion (Misc queries) | |||
adjust column width | Excel Discussion (Misc queries) |