Sub Copy_Data()
Dim sh1 As Worksheet, sh2 As Worksheet
Application.ScreenUpdating = False
Set sh1 = Sheets("Search")
Set sh2 = Sheets("Songs")
sh1.Range("A:A").ClearContents
If sh1.Range("D3").Value = "" Then
MsgBox "Select type"
Exit Sub
End If
sh2.Range("A1:B1").AutoFilter 2, sh1.Range("D3").Value
sh2.AutoFilter.Range.Range("A1:A" & sh2.Range("A" & Rows.Count).End(xlUp).Row).Copy sh1.Range("A1")
If sh1.AutoFilterMode Then sh1.AutoFilterMode = False
End Sub
Private Sub OptionButton1_Click()
Sheets("Search").Range("D3").Value = "P"
Call Copy_Data
End Sub
Private Sub OptionButton2_Click()
Sheets("Search").Range("D3").Value = "A"
Call Copy_Data
End Sub
Private Sub OptionButton3_Click()
Sheets("Search").Range("D3").Value = "B"
Call Copy_Data
End Sub
Private Sub OptionButton4_Click()
Sheets("Search").Range("D3").Value = "C"
Call Copy_Data
End Sub
Private Sub OptionButton5_Click()
Sheets("Search").Range("D3").Value = "BC"
Call Copy_Data
End Sub
Private Sub OptionButton6_Click()
Sheets("Search").Range("D3").Value = "F"
Call Copy_Data
End Sub
Private Sub OptionButton7_Click()
Sheets("Search").Range("D3").Value = "D"
Call Copy_Data
End Sub
Sub Copy_Data()
Dim sh1 As Worksheet, sh2 As Worksheet
Application.ScreenUpdating = False
Set sh1 = Sheets("Search")
Set sh2 = Sheets("Songs")
sh1.Range("A:A").ClearContents
If sh1.Range("D3").Value = "" Then
MsgBox "Select type"
Exit Sub
End If
sh2.Range("A1:B1").AutoFilter 2, sh1.Range("D3").Value
sh2.AutoFilter.Range.Range("A1:A" & sh2.Range("A" & Rows.Count).End(xlUp).Row).Copy sh1.Range("A1")
If sh1.AutoFilterMode Then sh1.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub