About Us

MC

Thanks for the help, it worked.

"Patrick Molloy" wrote:

WITH xl_WksheetAC05_52712.
WITH .Range(.Range("C2") , .Range("C2").End(xlDown) ).Offset(,-2)
.FormulaR1C1= "=RC3 & RC4 & RC5"
END WITH
WITH .Range(.Range("C2") , .Range("C2").End(xlDown) ).Offset(,-1)
.FormulaR1C1= "=RC8"
END WITH
END WITH

"mc" wrote in message
...
Hi, I am using excel 2003. I have a spreadsheet that has approx 3000
lines.
I am trying to code Col A to equal the values in Col C, D & E. And Col B
= H
- G. The following code works, but takes a long time to execute:
xl_WksheetAC05_52712.Range("C2").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(-2,0 ).Value = ActiveCell.Value &
ActiveCell.Offset(0, 1).Value & ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(-1, 0).Value = ActiveCell.Offset(0, 5).Value
- ActiveCell.Offset(0, 4).Value
ActiveCell.Offset(1, 0).Select
Loop

Is there a better solution? Thanks in advance.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Coding Formula	Richard	Excel Programming	2	September 21st 07 01:36 PM
Coding a SumProduct formula	Otto Moehrbach	Excel Programming	2	October 28th 06 04:54 PM
Help with Coding a Formula Please	Paul Black	Excel Programming	8	August 19th 05 02:04 PM
Formula Color Coding	Andrew	Excel Discussion (Misc queries)	5	March 25th 05 08:41 PM
vba coding for formula in cell	RDP1	Excel Programming	2	February 7th 05 10:05 PM

Menu

About Us