Witam kolego Trebor. Wszystkie operacje mają się odbywać w arkuszu 2. podaje wartość do przeliczenia i powinno według stawki przeliczyć mi walutę. Pozdrawiam i proszę o pomoc. Może kolega poprawiłby po swojemu ten program?
napisał: Trebor postów: 1209
umieszczony: 12 kwietnia 2011 16:41
Piszesz, w komórce B2 mam się spodziewać wartości numerycznej
kwota = Range("B2")
Natomiast później oczekujesz tam symbolu waluty
ForEach kom In Range("B2:B4") SelectCase kom Case "USD"
Czy pracujesz na dwóch arkuszach?
Trudno określić z kodu gdzie znajduje się komórka B2, ale już wiadomo, że dane chcesz zapisywać w arkuszu2
Worksheets("Arkusz2").Cells(2, 1) = dolar
To nie musi być błąd, ale z kodu który zamieściłeś nie sposób to wywnioskować.
Dim kwota As Currency
Dim dolar As Currency
Dim funt As Currency
Dim kom As Range
Dim index As Integer
index = 2
For Each kom In Range("B2:B4")
kwota = Range("B2")
dolar = kwota * USD
funt = kwota * GBP
Dim w As String
'w = InputBox("Podaj walutę xxx:")
Select Case kom
Case "USD"
dolar = kwota * USD
Worksheets("Arkusz2").Cells(2, 1) = dolar
MsgBox "dolar" & dolar
Case "GBP"
funt = kwota * GBP
Worksheets("Arkusz2").Cells(3, 1) = funt
MsgBox "funt" & funt
wstecz 1 dalej
otwarty rozpoczął: 
sebolubek
Waluty.rar
