Using VBA to Insert Formula in Copied Sheet

R

Rich Kniatt

This should be easy for the gurus out there.

I have a snippet of code that needs to contain something similar t
below but carry through J34. Is there a way to do this with one line?

Range("j15").Formula = "=c15*I15"
Range("j16").Formula = "=c16*I16"
Range("j17").Formula = "=c17*I17
 
G

Guest

Hi Rich,

Here's a code that works although there's probably a better solution out
there somewhere:

Sub test()

Dim x As Integer
x = 15

Start:
If x = 35 Then Exit Sub
Range("J" & x).Formula = "=C" & x & "*I" & x
x = x + 1
GoTo Start

End Sub

Adjust x to fit your start cell and adjust the If statement to fit one past
your ending cell. HTH

Don
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Enter formula in Macro/VBA 3
How to insert "&" in a formula using VBA? 5
copy WB without VBA: copied sheets link back to source WB 2
Using VBA to Insert a formula in a cell 2
formula strings containing quotation marks - VBA 5
Problem referring to a particular sheet in VBA 5
Copy conditional format from one sheet to another using VBA 0
inserting a formula with reference to a new sheet in a cell using VBA 2

Top