Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Equivalent of Vlookup function programmatically
Hi there,
I can see I am not the only one into currencies questions, thanks to John and the following macro I now have proper tickers. My goal is now to be able to input the currency rate associated with the curreny code. I could do a Vlookup as =VLOOKUP(N2,Currencies!A2:C43,3) but I need to do it programatically and I recon I am lost for that one .... any ideas please? Kind regards Daniel Sub Get_Currency_Code_for_Financial_Conversion() Dim Currency1 As Variant Dim Currency2 As Variant Dim CurrencyCode As Variant For i = 2 To Last_Row(Sheets("Stocks").Columns("A:A")) + 1 Currency1 = Sheets("Characteristics").Range("G" & i) Currency2 = Sheets("Characteristics").Range("H" & i) If Sheets("Characteristics").Range("G" & i) < Sheets("Characteristics").Range("H" & i) Then CurrencyCode = UCase(Currency1) & UCase(Currency2) & " Curncy" Else CurrencyCode = "" Sheets("Characteristics").Range("N" & i) = CurrencyCode End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Equivalent of Vlookup function programmatically
Thats perfect, once again a big thank you
On Jan 3, 3:09 pm, "Don Guillett" wrote: You can use application.vlookup(range("n2"),worksheets("curren cies").range("a1:c43"),3,0) or look in the vba help index for FIND and FINDNEXT (good example) and OFFSET. -- Don Guillett SalesAid Software wrote in oglegroups.com... Hi there, I can see I am not the only one into currencies questions, thanks to John and the following macro I now have proper tickers. My goal is now to be able to input the currency rate associated with the curreny code. I could do a Vlookup as =VLOOKUP(N2,Currencies!A2:C43,3) but I need to do it programatically and I recon I am lost for that one ... any ideas please? Kind regards Daniel Sub Get_Currency_Code_for_Financial_Conversion() Dim Currency1 As Variant Dim Currency2 As Variant Dim CurrencyCode As Variant For i = 2 To Last_Row(Sheets("Stocks").Columns("A:A")) + 1 Currency1 = Sheets("Characteristics").Range("G" & i) Currency2 = Sheets("Characteristics").Range("H" & i) If Sheets("Characteristics").Range("G" & i) < Sheets("Characteristics").Range("H" & i) Then CurrencyCode = UCase(Currency1) & UCase(Currency2) & " Curncy" Else CurrencyCode = "" Sheets("Characteristics").Range("N" & i) = CurrencyCode End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Equivalent of Vlookup function programmatically
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Function Equivalent need | Excel Worksheet Functions | |||
How do I create an equivalent VLOOKUP function using FIND? | Excel Worksheet Functions | |||
VBA equivalent of VLookup on an array | Excel Programming | |||
searching for vlookup equivalent in VBA | Excel Programming | |||
VB's equivalent to VLOOKUP? | Excel Programming |