Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofit Pivot column by Criteria
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 |
#2
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Column Autofit | Excel Discussion (Misc queries) | |||
how to autofit column widths | New Users to Excel | |||
Autofit doesn't work when column not enough width | Excel Programming | |||
autofit columns in pivot table | Excel Discussion (Misc queries) | |||
Column Autofit Problem | Excel Programming |