Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
quick question
I have this macro (see below) which calculates commissions and fees using an
lot of If functions. Unfortunately the function seems to post a numberinto the output columns a number even if the ticker (eg FLGH7) has not been programmed into the macro. Is it possible to add to the macro some coding which means the output will print 'ERROR' if the ticker in columns D is not recognised? Dim i As Integer Dim j As Integer Dim NumberOfTrades As Integer Dim Fees As String Dim Commissions As String Range("M1") = "Clearing and Exchange Fees" Range("N1") = "Execution Commissions" NumberOfTrades = Application.CountA(Columns(4)) - 1 For j = 1 To NumberOfTrades If Range("D1").Offset(j, 0) = "FLGH7" Then Fees = "1.20" Commissions = "0.55" End If If Range("D1").Offset(j, 0) = "FLGM7" Then Fees = "0.98" Commissions = "0.54" End If Volume = Range("F1").Offset(j, 0) Range("D1").Offset(j, 9).Value = Fees * Volume Range("D1").Offset(j, 10).Value = Commissions * Volume If Range("D1").Offset(j, 0) = "FLGU7" Then Fees = "0.96" Commissions = "0.53" End If Next j Columns("M:M").EntireColumn.AutoFit Columns("N:N").EntireColumn.AutoFit End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Quick little question | Excel Discussion (Misc queries) | |||
Quick Question | Excel Worksheet Functions | |||
Quick Question | Excel Discussion (Misc queries) | |||
Quick question - quick answer about assigning shortcut keys | Excel Programming | |||
Quick Question??? | Excel Programming |