Posted to microsoft.public.excel.programming
|
|
Autofit Pivot column by Criteria
Hi Noob try this instead
Range("a:a").Columns.AutoFit ' for column a, chage to yours
"VBA Noob" skrev:
Hi all,
I'm looking to see if I can do a search on a pivot table for the word
"Total" which is in row 4 and then adjust the column width for each
cell it finds to 2.5
I've recorded the below which works if you use ctrl A to select all but
when i run the macro it changes all the column widths to 2.5
Any thoughts ??
VBA:
Sub Autofit()
Cells.EntireColumn.Autofit
Rows("4:4").Select
Selection.Find(What:="total", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.ColumnWidth = 2.5
End Sub
Thanks in advance
VBA Noob
--
VBA Noob
------------------------------------------------------------------------
VBA Noob's Profile: http://www.excelforum.com/member.php...o&userid=33833
View this thread: http://www.excelforum.com/showthread...hreadid=536587
|