On Off Button Help

[Joneye]

Im looking for an on off guide to move a number from cell D:2 to B:3 if that D:2 is populated.

I have an if statement there at the moment, but I wish to expand my skill set and introduce a check button? or an on / off switch?

<b>Excel 2003</b><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><colgroup><col width="25px" style="background-color: #E0E0F0" /><col /><col /><col /><col /></colgroup><thead><tr style=" background-color: #E0E0F0;text-align: center;color: #161120"><th></th><th>A</th><th>B</th><th>C</th><th>D</th></tr></thead><tbody><tr ><td style="color: #161120;text-align: center;">1</td><td style=";">sum 1</td><td style="text-align: right;;">10</td><td style="text-align: right;;"></td><td style=";">sum 3</td></tr><tr ><td style="color: #161120;text-align: center;">2</td><td style=";">sum 2</td><td style="text-align: right;;">20</td><td style="text-align: right;;"></td><td style="text-align: right;;">10</td></tr><tr ><td style="color: #161120;text-align: center;">3</td><td style=";">sum 3</td><td style="text-align: right;;">10</td><td style="text-align: right;;"></td><td style="text-align: right;;"></td></tr><tr ><td style="color: #161120;text-align: center;">4</td><td style="text-align: right;;"></td><td style="text-align: right;;">40</td><td style="text-align: right;;"></td><td style="text-align: right;;"></td></tr></tbody></table><p style="width:3.6em;font-weight:bold;margin:0;padding:0.2em 0.6em 0.2em 0.5em;border: 1px solid #A6AAB6;border-top:none;text-align: center;background-color: #E0E0F0;color: #161120">Sheet1</p><br /><br /><table width="85%" cellpadding="2.5px" rules="all" style=";border: 2px solid black;border-collapse:collapse;padding: 0.4em;background-color: #FFFFFF" ><tr><td style="padding:6px" ><b>Worksheet Formulas</b><table cellpadding="2.5px" width="100%" rules="all" style="border: 1px solid;text-align:center;background-color: #FFFFFF;border-collapse: collapse; border-color: #A6AAB6"><thead><tr style=" background-color: #E0E0F0;color: #161120"><th width="10px">Cell</th><th style="text-align:left;padding-left:5px;">Formula</th></tr></thead><tbody><tr><th width="10px" style=" background-color: #E0E0F0;color: #161120">B3</th><td style="text-align:left">=IF(<font color="Blue">D2>=0,D2,"0"</font>)</td></tr><tr><th width="10px" style=" background-color: #E0E0F0;color: #161120">B4</th><td style="text-align:left">=SUM(<font color="Blue">B1:B3</font>)</td></tr></tbody></table></td></tr></table><br />

 

[Burrgogi]

Say what?

 

[jasonb75]

Use the same formula, just divert the logical test to the checkbox control cell

=if(controlcell,D2,0)

Controlcell should be changed to the controlcell address.

 

[Sektor]

Private Sub CheckBox1_Click()

    Select Case CheckBox1.Value
        
        Case True
            If Range("D2") > 0 Then
                Range("B3") = Range("D2")
                Range("D2").ClearContents
            End If
        
        Case False
            If Not IsEmpty(Range("B3")) Then
                Range("D2") = Range("B3")
                Range("B3").ClearContents
            End If
            
    End Select
    
End Sub

 

[Joneye]

Hi,

Were do I enter the formula?

 

[jasonb75]

In the cell where you want the result.

 

[Sektor]

You must add Checkbox on Developer tab (ActiveX section) and add this code behind sheet module.

 

[Joneye]

Is there any way of not using VBA?

 

[jasonb75]

There was no VBA in my suggestion.

See http://office.microsoft.com/en-us/e...toggle-button-to-a-worksheet-HP010236677.aspx for detail on how to add the checkbox.

You need the section "Add a checkbox (Form Control)"

 

[Joneye]

Thats perfect Jason - and then I can look at Sektors option also.

Many thanks guys.