move row to sheet based on UserForm ComboBox value

[elbazi]

Hi guys,

I am looking for VBA code to look in column A for a certain = ComboBox value and when finds to check row number, move it from sheet1 to sheet2

 

[DanteAmor]

Try this:

Private Sub ComboBox1_Change()
  Dim f As Range
  
  If ComboBox1.ListIndex = -1 Then Exit Sub
  If ComboBox1.Value = "" Then Exit Sub
  
  Set f = Sheets("Sheet1").Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
    f.EntireRow.Copy Sheets("Sheet2").Range("A" & Sheets("Sheet2").Range("A" & Rows.Count).End(3).Row + 1)
    f.EntireRow.Delete
  Else
    MsgBox "Not exists"
  End If
End Sub