daniroy
12/15/2006 5:14:00 PM
found it, sorry to bother you with things I found solution a minute
after I post it
Sub Get_Currency_Code()
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)
CurrencyCode = Currency1 & Currency2
Next i
End Sub
On Dec 15, 3:28 pm, dani...@gmail.com wrote:
> Hello there,
> I need to aggregate two text as "EUR" and "GBP" to create a third text
> as "EURGBP".
> Here is the code I am using now. CurrencyCode = "Currency1Currency2" in
> Locals window, in place of "EURGBP". Any ideas? Kind regards to
> everybody, Daniel
>
> Sub Convert_Figures()
>
> 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)
> CurrencyCode = "Currency1" & "Currency2"
>
> Next i
>
> End Sub