Ah, I missed the Row 8 part. Give this a try then...
Range("E8:AI8").Columns.AutoFit
--
Rick (MVP - Excel)
"primed" <(E-Mail Removed)> wrote in message
news:06B8210D-6805-47A7-AEA2-(E-Mail Removed)...
> Hi Rick,
>
> Probably my poor communication skills are the issue. Columns E to AI need
> to
> be resized based on values in row 8 only. Other rows contain data that
> needs
> to be ignored.
>
> Your formula seems to resize the columns based on the value in all the
> rows.
>
> Regards
> Primed
>
> "Rick Rothstein" wrote:
>
>> I'm not sure why you say that... the code line I posted sizes each column
>> in
>> the range to the contents of the widest value in the column (which,
>> unless I
>> completely misunderstood what you were asking for, I believe is what your
>> initial posting was suggesting you wanted to do). If you didn't already
>> do
>> so, give it a try and see how it works.
>>
>> --
>> Rick (MVP - Excel)
>>
>>
>>
>> "primed" <(E-Mail Removed)> wrote in message
>> news:556C62C8-4243-4645-8850-(E-Mail Removed)...
>> > I am not a programmer but that doesnt seem to take into account the
>> > values
>> > in
>> > row 8.
>> > It will come in handy for something else though.
>> >
>> > Cheers
>> > Primed
>> >
>> > "Rick Rothstein" wrote:
>> >
>> >> Why not let VB figure it out for you...
>> >>
>> >> Columns("E:AI").AutoFit
>> >>
>> >> --
>> >> Rick (MVP - Excel)
>> >>
>> >>
>> >>
>> >> "primed" <(E-Mail Removed)> wrote in message
>> >> news:FAB13FFF-37FD-44C7-9D3F-(E-Mail Removed)...
>> >> > Hi,
>> >> >
>> >> > Can anyone help with code to do the following:
>> >> >
>> >> > Row E8:AI8 - each cell contains a value 0 to 100, generally a value
>> >> > of
>> >> > 1
>> >> > to
>> >> > 20. The total of the row is maximum 100.
>> >> > I would like to adjust the width of the column based on the values
>> >> > for
>> >> > each
>> >> > column.
>> >> > The minimum width would need to be 6 so text is still readable.
>> >> >
>> >> > Thanks in advance
>> >> >
>> >> > Primed
>> >>
>> >> .
>> >>
>> .
>>
|
Similar Threads
