Function to add/write cells

[taporctv]

Ok I have three columns A, B, C. A1, B1, C1 are column headings.

1st Problem:
I need to perform division between A and B and put the result in C

2nd Problem;
I need to write to A and B.

Can you use variables with Range?
Sheets("Sheet2").Range("B3").CopyFromRecordset RS
How can I make this automated without typing B4,B5,... and so on? How do I throw a variable in there so I can use a loop of some sort?

[mdmackillop]

http://vbaexpress.com/kb/getarticle.php?kb_id=889

[Bob Phillips]

Range("C1").Value = Range("A1").Value / Range("B1").Value

'and

For i = 1 To 5
Worksheets("Sheet2").Range("B" & i).CopyFromRecordSet RS
Next i

[taporctv]

Thanks that worked. I'm new to this vba stuff.

[taporctv]

Ok a problem arose. Say I delete a2 and b2, a3 and b3 then move up to a2 and b2. How can I stop this?

[lucas]

these are the same...second is relative:

'Range("C1").Value = Range("A1").Value / Range("B1").Value
Cells(1, 3).Value = Cells(1, 1).Value / Cells(1, 2).Value

[mdmackillop]

For i = 1 To 5
Worksheets("Sheet2").Range("B" & i).CopyFromRecordSet RS
Next i
In trying this, the whole of the recordset is copied to the range starting at B1. The looping is not repeating the "paste". Similarly, the following only copies for the first line

Worksheets("Sheet1").Range("A1").CopyFromRecordset Rs
Worksheets("Sheet1").Range("A2").CopyFromRecordset Rs
Worksheets("Sheet1").Range("A3").CopyFromRecordset Rs