Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Problem z IF'em...

Firgus · Wysłany: 27-03-2007, 10:29 **Problem z IF'em...**

Witam.

Mam tabelę z 15 kolumnami. W 13 kolumnie mam formułę:
($F4*L4)*$P$1 ($P$2, lub $P$3 w zależności od wartości ComboBoxa)
($F5*L5)*$P$1
itd.

Wiersze do kolumny dodaję za pomocą prostego formularza. Chcciałbym aby ta formuła została kopiowana do dodawanego wiersza w zależności od wartości Combo.

Oto ta niedokończona funkcja If:

Kod:

If WalutaComboBox.Text = "EUR" Then
Worksheets("MATERIAŁY SUI").Cells(NumerWiersza, 12).Value = "=(......)$P$1"
Else If WalutaComboBox.Text = "USD" Then
Worksheets("MATERIAŁY SUI").Cells(NumerWiersza, 12).Value = "=(.......)$P$2"
Else IfWalutaComboBox.Text = "PLN" Then
Worksheets("MATERIAŁY SUI").Cells(NumerWiersza, 12).Value = "=(.......)$P$3"
End If

Z góry dzięki za odpowiedź.

Tajan · **Pomógł:** 5252 razy Posty: 11450

Moim zdaniem, zamiast rozbudowanego If-a, wystarczy coś takiego:

Kod:

If WalutaComboBox.ListIndex > -1 Then
Worksheets("MATERIAŁY SUI").Cells(NumerWiersza, 12).Formula = _
"=($F" & NumerWiersza & "*L" & NumerWiersza & ")*$P$" & _
(WalutaComboBox.ListIndex + 1)
End If

Firgus · Wysłany: 27-03-2007, 12:30

Super:) O to chodziło!
Dzieki:)