Macro to copy

UHsoccer · Apr 29th, 2002, 11:52 AM

Mod needed to
1) Convert formulas to values in columns A:F
2)DELETE instead of hide columns G-Z

Here is what I am using

Sheets("Quote Tool").Select
Sheets("Quote Tool").Copy
Columns("G:G").ColumnWidth = 3.86 ' retain col widths ??
Columns("G:G").Select
Range("G2").Activate
ActiveWindow.ScrollColumn = 2
Columns("G:ak").Select
Range("G2").Activate
Selection.EntireColumn.Hidden = True
Selection.Delete = True
ActiveWindow.ScrollColumn = 1

Rocky E · Apr 29th, 2002, 11:59 AM

Well my favorite trick is to start a sequence with the macro recorder on. When I am finished go study the code. With just a little clean up it usually give me just what I wanted.

HTH

Rocky...

[ This Message was edited by: Rocky E on 2002-04-29 11:03 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 29th, 2002, 11:52 AM	#1
UHsoccer Board Regular Join Date: Apr 2002 Location: Detroit Posts: 792	Mod needed to 1) Convert formulas to values in columns A:F 2)DELETE instead of hide columns G-Z Here is what I am using Sheets("Quote Tool").Select Sheets("Quote Tool").Copy Columns("G:G").ColumnWidth = 3.86 ' retain col widths ?? Columns("G:G").Select Range("G2").Activate ActiveWindow.ScrollColumn = 2 Columns("G:ak").Select Range("G2").Activate Selection.EntireColumn.Hidden = True Selection.Delete = True ActiveWindow.ScrollColumn = 1

Apr 29th, 2002, 11:59 AM	#2
Rocky E Board Regular Join Date: Feb 2002 Location: North Alabama, USA Posts: 105	Well my favorite trick is to start a sequence with the macro recorder on. When I am finished go study the code. With just a little clean up it usually give me just what I wanted. HTH Rocky... [ This Message was edited by: Rocky E on 2002-04-29 11:03 ]