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

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

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

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




.

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