Quantcast
Channel: Excel Help Forum - Excel Programming / VBA / Macros
Viewing all articles
Browse latest Browse all 50273

VBA ".End(xlDown)" with formulated cells

$
0
0
Hello,

So I have this code which works for non formulated columns:

Code:

Sub ADIMMSTRANSITCOPY()
Sheets("ADI MMS").Select
With Range("F2")
Range(.Cells(1, 1), .End(xlDown).Cells(1, 1)).Copy
End With
End Sub

I wanted to create another for Column "AH" and start copying from "AH2" until the blank. However Column AH is formulated so it's taking all of the formulated cells.
For reference, the formula series in AH is:
Code:

=IFERROR(VLOOKUP(Q3,{"Cancelled",90;"Drive By",200;"Full Appraisal",300;"RPM",750;"Appraisal Update",150},2,0),"")

I'm looking for help to convert above VBA to say: Copy all column "AH" from "AH2" until there's actually no value from the formula above.


Your help is greatly appreciated.
Thank you!

Viewing all articles
Browse latest Browse all 50273

Latest Images

Trending Articles



Latest Images