Disabling sections of code

[Glove303]

I often wonder if there is a better way to "turn off" sections of code, other than putting ' in front of them.

For example, I want to disable some lines of code, but not remove them because I may decide to use them later. Currently I do the following:

If Buy_Option Then
    Ticket.StopPrice_Box.Value = Application.WorksheetFunction.Fixed((Ticket.Order_Box.Value - _
    (Ticket.StopPips_Box.Value / iFact)), iDec, True)
    
    Ticket.StopAmount_Box.Value = Application.WorksheetFunction.Fixed((((Ticket.Order_Box.Value - _
    Ticket.StopPrice_Box.Value) * iFact) * Ticket.Stake_Box.Value), 2)
End If

'If Defaults.Priv_Tog.Caption = "Privacy Off" Then
'    If Trades.Cells(2, 19).Value > 0 And Trades.Cells(2, 19) <> "" And _
'    Ticket.StopAmount_Box <> "" And Ticket.StopAmount_Box.Value <> 0 Then
'        Ticket.iCapital_Box = Round(((Ticket.StopAmount_Box.Value / _
'        Trades.Cells(2, 19).Value) * 100), 1)
'    Else
'        Ticket.iCapital_Box = ""
'    End If
'End If

I just wonder if there is a better way than this, like a built in facility within Excel to disable code?

 

[number kruncher]

If the sections you need to 'disable' or 'enable' are stand alone sections of code, you could set up a master SUB and call only the sub-routinues you need.

 

[number kruncher]

or, you could use the GOTO command to jump over the section you do not want to use.

 

[james_lankford]

' change to 1 = 1 when you want to run it 
if 1 = 0 then 

If Defaults.Priv_Tog.Caption = "Privacy Off" Then
    If Trades.Cells(2, 19).Value > 0 And Trades.Cells(2, 19) <> "" And _
    Ticket.StopAmount_Box <> "" And Ticket.StopAmount_Box.Value <> 0 Then
        Ticket.iCapital_Box = Round(((Ticket.StopAmount_Box.Value / _
        Trades.Cells(2, 19).Value) * 100), 1)
    Else
        Ticket.iCapital_Box = ""
    End If
End If

end if

 

[Glove303]

Thanks guys. I think the goto idea, and the if statement idea are both very good and I will use one of these from now on