edit code

**shilpz** · 01-19-2008, 06:29 AM

hello

i was wondering if you could help me edit this code

So far the code copies the value in cell "F15" in sheet 4 and pastes the value in sheet 18, cell D6
but the problem is that everytime i click it it just replace the value in sheet 18cell "D6" i want it to go down by a cell everytime it is clicked

The code is:

Sheet18.Cells.Range("D6").Value = Sheet18.Cells.Range("D6").Value + Sheet4.Cells.Range("F15").Value

thanks in advance

**mudraker** · 01-19-2008, 07:59 AM

Not sure if you want the D6 changed in both parts of the code or only the 1st part

This is for the 1st part - It places the value in the next vacant cell in column D

Sheet18.Cells.Cells(Cells(Rows.Count, "a").End(xlUp).Row + 1, "D").Value = Sheet18.Cells.Range("D6").Value + Sheet4.Cells.Range("F15").Value

Another way if both D6 referneces need to be changed

Dim lLr As Long

lLr = Cells(Rows.Count, "a").End(xlUp).Row + 1
Sheet18.Cells(lLr, "D").Value = Sheet18.Cells(lLr, "d").Value + Sheet4.Cells.Range("F15").Value

**shilpz** · 01-19-2008, 09:46 AM

The code that you provided dosent seem to work when i click the macro nothing happens

i have attached a sheet which will explain what i mean

thanks for your help tho
reli apreciate it