Since what you posted were actually pictures and not screenshots, I was unable to test the macro on that data. Try the following:
-hold down the ALT key and press the F11 key to open the Visual Basic Editor
-in the Visual Basic Editor, click 'Insert' in the menu at the top
-insert a userform in your workbook
-in that userform , insert a command button and place it near the top of the form
-double click anywhere on the userform but not the command button
-copy/paste the following code in the empty code window that pops up
VBA Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim c As MSForms.Control, shArr() As Variant, n As Long, ws As Worksheet, v As Variant, rng As Range
v = Array("Confirmed", "Rejected", "Waiting")
ReDim Preserve shArr(1 To 1)
For Each c In Me.Controls
If TypeName(c) = "CheckBox" Then
If c.Value = True Then
n = n + 1
ReDim Preserve shArr(1 To n)
shArr(n) = c.Caption
End If
End If
Next c
Sheets(shArr).Copy
For Each ws In Sheets
With ws
.UsedRange.Cells.Value = .UsedRange.Cells.Value
.Range("A1").CurrentRegion.AutoFilter 28, v, xlFilterValues
Set rng = ws.AutoFilter.Range
rng.Replace 0, "", xlWhole
End With
Next ws
Application.ScreenUpdating = True
Unload Me
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim ws As Worksheet, chkBox As Control
For Each ws In Sheets
Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox" & i)
chkBox.Caption = ws.Name
chkBox.Left = 10
chkBox.Top = 60 + ((i - 1) * 20)
i = i + 1
Next ws
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Activate()
CheckSize
End Sub
Private Sub CheckSize()
Dim h, w
Dim c As Control
h = 0: w = 0
For Each c In Me.Controls
If c.Visible Then
If c.Top + c.Height > h Then h = c.Top + c.Height
If c.Left + c.Width > w Then w = c.Left + c.Width
End If
Next c
If h > 0 And w > 0 Then
With Me
.Width = w + 40
.Height = h + 40
End With
End If
End Sub
Next, do the following:
-in the Visual Basic Editor, click 'Insert' in the menu at the top
-click 'Module'
-copy/paste the macro below into the empty window that pops up
-press the F5 key to run the macro that will display the userform
(There are easier ways to run macros such as clicking a button or a letter of your choice on the keyboard. If you are interested in this approach, please let me know.)
-in the userform, place a check mark to the left of each of the six desired sheets and click the command button. The new workbook will be created.
VBA Code:
Sub ShowForm()
UserForm1.Show
End Sub
Because I was unable to test this in your actual workbook, I'm not sure how it is going to work. As I mentioned earlier, it worked in my dummy file.
