Miteshkg50
New Member
- Joined
- Aug 21, 2017
- Messages
- 1
Hello Team,
I have a specific requirement. For my daily reporting purpose, I've created a macro in Private Sub Option Button click that will actually use the autofilter functionality and display me the data. This is working absolutely fine. However, What I want is result or output of First Option button say Button A with Number Column (Unique) should be excluded while clicking Button B.
For e.g.
Private Sub ButtonA_Click()
With Sheets("Sheet1")
Range("Table1[[#Headers],[Number]]").Select
Selection.AutoFilter
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=20, Criteria1:= _
"Initial"
End With
End Sub
Private Sub ButtonB_Click()
With Sheets("Sheet1")
Range("Table1[[#Headers],[Number]]").Select
Selection.AutoFilter
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4, Criteria1:= _
"Approved"
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"<>" ButtonA Results of Column C (Column C is Number Column with unique numbers)
End With
End Sub
Any help and quick turnaround is highly appreciated as I need to submit this project ASAP.
I have a specific requirement. For my daily reporting purpose, I've created a macro in Private Sub Option Button click that will actually use the autofilter functionality and display me the data. This is working absolutely fine. However, What I want is result or output of First Option button say Button A with Number Column (Unique) should be excluded while clicking Button B.
For e.g.
Private Sub ButtonA_Click()
With Sheets("Sheet1")
Range("Table1[[#Headers],[Number]]").Select
Selection.AutoFilter
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=20, Criteria1:= _
"Initial"
End With
End Sub
Private Sub ButtonB_Click()
With Sheets("Sheet1")
Range("Table1[[#Headers],[Number]]").Select
Selection.AutoFilter
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4, Criteria1:= _
"Approved"
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"<>" ButtonA Results of Column C (Column C is Number Column with unique numbers)
End With
End Sub
Any help and quick turnaround is highly appreciated as I need to submit this project ASAP.