Evaluate VBA

[bjurney]

I am trying to use the evaluate in my code so I dont have a bunch of formulas in my workbook. what I am trying to do is get it so it looks something like this:

Range("L20").Value = Evaluate("=D2")
Range("L21").Value = Evaluate("=D3")

I need it to run down several hundred rows, so I dont want to type that out 100's of times, so I am wondering if there is a way to get it to work with using less code. I tired something like this, but they all end up equaling the same thing, I need it to equal the next cell down:

Range("L20:L21").Value = Evaluate("=D2")

 

[Scott Huish]

Sub test()
Range("D2:D200").Copy
Range("L20").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

 

[Domenic]

Or, maybe...

With Range("L20:L21")
    .Formula = "=D2"
    .Value = .Value
End With

 

[rguy84]

I think OP maybe made a typo? would L25 = D8 not D3

 

[bjurney]

thanks Domenic exactly what I was looking for! ray:

 

[Domenic]

thanks Domenic exactly what I was looking for! ray:

You're very welcome! Thanks for the feedback!