Nhờ code VBA giúp về Xóa hàng theo điều kiện (1 người xem)

[nguyenvankhang]

Chào các anh, các chị và các sư huynh trong diễn đàn:
Em muốn nhờ các anh cao thủ giúp em vấn đề như tiêu đề
- Em đã làm sẵn 1 file, form để tìm và xóa row .

"
Em muốn bấm vào nút" Tìm và xóa" thì hiện lên FORM . Sau đó nhập Mã VN hoặc tên NV , lựa chọn Nvào bấm nút xóa thì tự động xóa cả hàng (row) đó .

ListBox1 hiện danh sách của Sheet1

"

Em mong các bác giúp em. Cảm ơn nhiều ạ!

 

[HieuCD]

Chào các anh, các chị và các sư huynh trong diễn đàn:
Em muốn nhờ các anh cao thủ giúp em vấn đề như tiêu đề
- Em đã làm sẵn 1 file, form để tìm và xóa row .

"
Em muốn bấm vào nút" Tìm và xóa" thì hiện lên FORM . Sau đó nhập Mã VN hoặc tên NV , lựa chọn Nvào bấm nút xóa thì tự động xóa cả hàng (row) đó .

ListBox1 hiện danh sách của Sheet1

"

Em mong các bác giúp em. Cảm ơn nhiều ạ!

Bỏ nút tìm, chép code vào Form, chọn list mã sẽ tự tính

Private Sub CommandButton2_Click()
  Dim Arr As Variant, Ma As Variant, i As Long, lR As Long
  Ma = Me.TextMA
  lR = Range("B" & Rows.Count).End(xlUp).Row
  If lR > 1 Then
    For i = 2 To lR
      If Range("B" & i).Value = Ma Then
        Range("B" & i).EntireRow.Delete
        Exit For
      End If
    Next i
    lR = Range("B" & Rows.Count).End(xlUp).Row
    If lR > 1 Then
      Range("A2") = 1
      Range("A2:A" & lR).DataSeries
      Arr = Range("A2:E" & lR).Value
      Me.ListBox1.List = Arr
    End If
  End If
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub ListBox1_Change()
  Me.TextMA = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
  Me.TextTEN = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
End Sub

Private Sub UserForm_Initialize()
  Dim Arr As Variant, lR As Long
  lR = Range("B" & Rows.Count).End(xlUp).Row
  If lR > 1 Then
    Arr = Range("A2:E" & lR).Value
  End If
  Me.ListBox1.ColumnCount = 5
  Me.ListBox1.List = Arr
  Me.TextMA = Me.ListBox1.List(0, 1)
  Me.TextTEN = Me.ListBox1.List(0, 2)
End Sub

 

[nguyenvankhang]

Bỏ nút tìm, chép code vào Form, chọn list mã sẽ tự tính

Private Sub CommandButton2_Click()
  Dim Arr As Variant, Ma As Variant, i As Long, lR As Long
  Ma = Me.TextMA
  lR = Range("B" & Rows.Count).End(xlUp).Row
  If lR > 1 Then
    For i = 2 To lR
      If Range("B" & i).Value = Ma Then
        Range("B" & i).EntireRow.Delete
        Exit For
      End If
    Next i
    lR = Range("B" & Rows.Count).End(xlUp).Row
    If lR > 1 Then
      Range("A2") = 1
      Range("A2:A" & lR).DataSeries
      Arr = Range("A2:E" & lR).Value
      Me.ListBox1.List = Arr
    End If
  End If
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub ListBox1_Change()
  Me.TextMA = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
  Me.TextTEN = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
End Sub

Private Sub UserForm_Initialize()
  Dim Arr As Variant, lR As Long
  lR = Range("B" & Rows.Count).End(xlUp).Row
  If lR > 1 Then
    Arr = Range("A2:E" & lR).Value
  End If
  Me.ListBox1.ColumnCount = 5
  Me.ListBox1.List = Arr
  Me.TextMA = Me.ListBox1.List(0, 1)
  Me.TextTEN = Me.ListBox1.List(0, 2)
End Sub

Chào bác . cái của bác đã giúp em làm oke file của em . em cảm ơn bác nhiều . em cần bác giúp đưa dữ liệu( Dữ liệu trong sheet của excel vú dụ từ A6:A20) vào Combobox trong form VBA . thanks bác

 

[HieuCD]

Chào bác . cái của bác đã giúp em làm oke file của em . em cảm ơn bác nhiều . em cần bác giúp đưa dữ liệu( Dữ liệu trong sheet của excel vú dụ từ A6:A20) vào Combobox trong form VBA . thanks bác

Combobox nào? trong file không có