So here we are.
Private Sub CommandButton4_Click()
Unload Me
End Sub
Private Sub OptionButton1_Click()
Sheets("EXISTING CLIENTS").Range("B:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Helper").Range("A1:b2"), CopyToRange:=Sheets("Helper").Range("e1:m1"), Unique:=False
End Sub
Private Sub OptionButton2_Click()
Sheets("CLIENTS").Range("B:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Helper").Range("A1:b2"), CopyToRange:=Sheets("Helper").Range("o1:w1"), Unique:=False
End Sub
Private Sub OptionButton3_Click()
Call number1
End Sub
Private Sub TextBox1_Change()
Sheets("Helper").Range("a2") = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Sheets("Helper").Range("b2") = TextBox2.Value
End Sub
Private Sub UserForm_Activate()
Sheets("Helper").Select
Range("E2:M100,O2:W100").Select
Range("O2").Activate
Selection.ClearContents
Sheets("SEARCH").Select
End Sub
Bookmarks