Two sheets ... copy data from one sheet if criteria met ?

[lacogada]

Appreciated the vba code to accomplish task ... beyond my skill level.

 

[lacogada]

Debug 2

 

[lacogada]

What do you have in cell D3 on the "Search" sheet?

Depends what option I click on form.

 

[DanteAmor]

What do you have in cell D3 on the "Search" sheet?

What does the error say?

 

[DanteAmor]

Depends what option I click on form.

At the time of the error.

 

[lacogada]

What do you have in cell D3 on the "Search" sheet?

Depends what option I choose on user form.

 

[DanteAmor]

Try this

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.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

 

[lacogada]

Error

 

[DanteAmor]

But you must erase all the code and put the new one.

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.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

 

[lacogada]

Last code you sent worked the first time I clicked an option button.
If I click another option button error below

 

[lacogada]

Not sure what auto filter does .... but song list is already in order, no need to arrange anything.