VBA: Copy

[DougStroud]

I need a little assistance w/ this line of code.
Copy AA3 to the last row in AA and paste up.

Here is what I have:
Range("AA3").Copy Range("AA" & Rows.Count).End(xlUp).Row


thanks..

ds

 

[erik.van.geit]

Hi, again,

see your other question, just answered

Range("AA3").Copy Range("AA3:AA" & Range("AA" & Rows.Count).End(xlUp).Row)

you didn't post is as the same question but perhaps the answer will be the same

best regards,
Erik

 

[DougStroud]

Erik,

you didn't post is as the same question but perhaps the answer will be the same

Different situation.

The code you provided copies from AA3 to the last Row, which after going back and reviewing, my example is flawed.

I failed to state that I need it to fill off of the last filled cell in row "H".

What I need it to do is find the last Row in "H" and Copy AA3 to the last Row in "AA"" "Up" to the last non blank cell in "AA".

Example:
AA90 is the last non blank cell
H3:H90 has data
I want to copy the formula in AA3 to AA91:AA95

Sorry about the confusion.

 

[erik.van.geit]

where did you get 91 and 95 ???

 

[DougStroud]

I have data in H91:Z95
I also have data in AA5:AA90
AA3 is a formula, AA4:AA90 was a formula but has been converted to values through pastevalues.
Instead of copying down which would alter my values incorrectly, I want to copy the formula instead, to the last empty cells in column AA.
In this case AA91:AA95
I want to copy the formula that is in AA3 to the last row in AA based off the last row in Column H.

 

[erik.van.geit]

3"

you have seen many times the formula to find the last row

so your work will be to edit this line

Range("AA3").Copy Range("AA91:AA95")

hint:
Range("AA3").Copy Range("AA" & R & ":AA" & RR)

 

[Legacy 51064]

Erik,

How would you paste the value?

Range("A1:U" & Cells(Rows.Count, "U").End(xlUp).Row).Copy
Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Range("A1:U" & Cells(Rows.Count, "U").End(xlUp).Row).Copy Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

 

[erik.van.geit]

How would you paste the value?

Range("A1:U" & Cells(Rows.Count, "U").End(xlUp).Row).Copy
Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

With Range("A1:U" & Cells(Rows.Count, "U").End(xlUp).Row)
.Value = .Value
End With

 

[Legacy 51064]

Thank you.. that was very simple.