Consolidating Cells Macro

[Nroberts]

Hi -

I am trying to create a macro to consolidate a proposed budget changes column into an approved budget changes column and then to delete the proposed change value.

Here is what I have so far:

Range("K12").Formula = Range("K12").Formula & "+" & Range("L12").Value
Range("L12").ClearContents

This works fine on its own, but once I begin copying it for the rest of the cells downward, I am getting an error.

Also, is it possible to do this for a range of cells? As in, move all of the proposed changes from L12-K20 into the approved column K12-L20 in one string as opposed to copy/pasting the above text and changing the references.

Thanks for any help!

 

[gsistek]

Try

Dim i As Long
For i = 12 To 20
    Range("K" & i).Formula = Range("K" & i).Formula & "+" & Range("L" & i).Value
    Range("L" & i).ClearContents
Next i

 

[Nroberts]

Try

Dim i As Long
For i = 12 To 20
    Range("K" & i).Formula = Range("K" & i).Formula & "+" & Range("L" & i).Value
    Range("L" & i).ClearContents
Next i

I'm receiving an application/user-defined error on this string:

Range("K" & i).Formula = Range("K" & i).Formula & "+" & Range("L" & i).Value

Sorry if I'm not being specific enough, I'm very new to VBA editing and macro writing.