Radio button failure

[2077delta]

I have four radio buttons on a worksheet each set to run a certain routine. When I click on a button the first time everything works fine. The routine filters a list of data. However, if new data is added to the list and I click on the same radio button a second time to refilter the list, it fails to do anything and the focus stays on the button instead of returning to the worksheet. What is causing this and how do I fix it? The code for one of the buttons in question is below

Private Sub OSButton_Click()
Call OSChecks
End Sub

Sub OSChecks()
Dim cell1 As Range
Dim rowcount As Integer
Dim myrng As Range

Set cell1 = Range("A6")
Set cell2 = Range("A5")
rowcount = Range(cell1, cell1.End(xlDown)).Rows.Count
Set myrng = Range(cell1.Offset(0, 9), cell1(rowcount, 10))

With ActiveSheet
.AutoFilterMode = False
.Range(cell2, cell2.Offset(rowcount, 9)).AutoFilter
End With

On Error Resume Next
N = WorksheetFunction.VLookup("O/S", myrng, 1, 0)
If Err = 1004 Then
MsgBox "There are no outstanding checks"
Else
Selection.AutoFilter Field:=10
Selection.AutoFilter Field:=4, Criteria1:=""
End If
Err.Clear
On Error GoTo 0
Range("A4").Select

End Sub

 

[John_w]

The problem you describe is how option (radio) buttons are designed to work - you have to click another option button to deselect the current one and then that one can be clicked again.

I think four command buttons would be more appropriate from a user interface point of view and then you wouldn't have the problem. However, if you really want option buttons, try putting:

OSButton.Value = False

after Call OSChecks, and similar for the other option buttons.

 

[2077delta]

I think I'll change everything to command buttons. Thanks.