maninjapan
10-07-2008, 10:59 PM
Im having a bit of trouble getting this to work, I believe the problem is with the first line....
If ComboBoxAccount.Text = "A1946" Or "A3448" Or "A3453" Then
If ComboBoxContract.Text = "FDAX" Then
Cells(NextRow, 6) = TextBoxPL.Text
Cells(NextRow, 7) = TextBoxPL.Text * Cells(NextRow, 5)
Cells(NextRow, 9) = (TextBoxLots.Text * TextBoxExchangeRate.Text) + (TextBoxLots.Text * 0.8)
ElseIf ComboBoxContract.Text = "FESX" Then
Cells(NextRow, 6) = TextBoxPL.Text
Cells(NextRow, 7) = TextBoxPL.Text * Cells(NextRow, 5)
Cells(NextRow, 9) = (TextBoxLots.Text * TextBoxExchangeRate.Text * 0.6) + (TextBoxLots.Text * 0.8)
ElseIf ComboBoxContract.Text = "Z" Then
Cells(NextRow, 6) = TextBoxPL.Text
Cells(NextRow, 7) = TextBoxPL.Text * Cells(NextRow, 5)
Cells(NextRow, 9) = (TextBoxLots.Text * TextBoxExchangeRate.Text * 0.56) + (TextBoxLots.Text * 0.8)
Else: Cells(NextRow, 7) = TextBoxPL.Text
Cells(NextRow, 9) = TextBoxLots.Text * (strCommission + 0.3)
End If
Else if......
End If
End If
If ComboBoxAccount.Text = "A1946" Or "A3448" Or "A3453" Then
If ComboBoxContract.Text = "FDAX" Then
Cells(NextRow, 6) = TextBoxPL.Text
Cells(NextRow, 7) = TextBoxPL.Text * Cells(NextRow, 5)
Cells(NextRow, 9) = (TextBoxLots.Text * TextBoxExchangeRate.Text) + (TextBoxLots.Text * 0.8)
ElseIf ComboBoxContract.Text = "FESX" Then
Cells(NextRow, 6) = TextBoxPL.Text
Cells(NextRow, 7) = TextBoxPL.Text * Cells(NextRow, 5)
Cells(NextRow, 9) = (TextBoxLots.Text * TextBoxExchangeRate.Text * 0.6) + (TextBoxLots.Text * 0.8)
ElseIf ComboBoxContract.Text = "Z" Then
Cells(NextRow, 6) = TextBoxPL.Text
Cells(NextRow, 7) = TextBoxPL.Text * Cells(NextRow, 5)
Cells(NextRow, 9) = (TextBoxLots.Text * TextBoxExchangeRate.Text * 0.56) + (TextBoxLots.Text * 0.8)
Else: Cells(NextRow, 7) = TextBoxPL.Text
Cells(NextRow, 9) = TextBoxLots.Text * (strCommission + 0.3)
End If
Else if......
End If
End If