Reputation: 145
So this is a new post, see the screen dump attached, please.
Code:
Sub FindFetch()
' Find the last non-zero value in Col A and then fetch the corresponding value
ActiveSheet.Range("A3").Formula = "= LOOKUP(2,1/(A10:A26>0),A10:A26)"
' Fetch the value in the corresponding column C:
' xxx <- this is my problem, how to get there
ActiveSheet.Range("Cxxx").Copy
Range("C3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Thank you very much in advance.
Upvotes: 0
Views: 35