Convert formula in cell to its value

UHsoccer · Apr 29th, 2002, 01:11 PM

Cell calculations in Columns A:F are based on cells in columns G:Z

I want to convert all formula data to the actual value (and then delete columns G:Z)

How to convert is the question

Steve Hartman · Apr 29th, 2002, 01:12 PM

Select columns A-F. Copy . EDIT > Paste Special >Values

Jay Petrulis · Apr 29th, 2002, 01:17 PM

Try,

Sub test()
Dim Rng As Range
Set Rng = Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("A:F"))
Rng = Rng.Value
Columns("G:Z").Delete shift:=xlToLeft
End Sub

Bye,
Jay

UHsoccer · Apr 29th, 2002, 01:30 PM

Thanks Steve, got it all to work in VB

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

Apr 29th, 2002, 01:11 PM	#1
UHsoccer Board Regular Join Date: Apr 2002 Location: Detroit Posts: 792	Cell calculations in Columns A:F are based on cells in columns G:Z I want to convert all formula data to the actual value (and then delete columns G:Z) How to convert is the question

Apr 29th, 2002, 01:12 PM	#2
Steve Hartman Board Regular Join Date: Feb 2002 Location: Houston,Texas Posts: 418	Select columns A-F. Copy . EDIT > Paste Special >Values

Apr 29th, 2002, 01:17 PM	#3
Jay Petrulis MrExcel MVP Join Date: Mar 2002 Location: Chicago, IL USA Posts: 2,042	Try, Sub test() Dim Rng As Range Set Rng = Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("A:F")) Rng = Rng.Value Columns("G:Z").Delete shift:=xlToLeft End Sub Bye, Jay

Apr 29th, 2002, 01:30 PM	#4
UHsoccer Board Regular Join Date: Apr 2002 Location: Detroit Posts: 792	Thanks Steve, got it all to work in VB