Hoàn chỉnh giúp em form này với ạ

[hunglao]

EM có form nhập dữ liệu sau, khi gõ vào các điều kiện rồi nhấn nút check thì nó sẽ filter sheet dựa vào các dk nhập vào

- a/c giúp em
sau khi nhấn nút check
1. nếu có đúng dữ liệu nhập vào thì nút xóa sẽ hiện ra xóa dữ liệu vừa được lọc đó
2. nếu không có dữ liệu thỏa mãn thì nút update hiện ra và nhập vào hàng dưới cùng ( cái này em làm được rồi nhưng hơi củ chuối

Private Sub CommandButton3_Click()
If UserForm3.line.Text = "" Or UserForm3.test.Text = "" Or UserForm3.line.Text = "" Then
MsgBox (" Can nhap day du du lieu")
Else
Cells([f1].Value + 2, 2) = UserForm3.line.Text
Cells([f1].Value + 2, 4) = Now()
Cells([f1].Value + 2, 3) = UserForm3.test.Text
Cells([f1].Value + 2, 1) = UserForm3.tool.Text
End If
End Sub

có ai giúp em với ko, sao cứ im lặng vậy nà

 

[Po_Pikachu]

Đây. Mình thêm phần ẩn hiện button cho bạn đây.
Thân.

 

[hunglao]

Đây. Mình thêm phần ẩn hiện button cho bạn đây.
Thân.

mình hoàn chỉnh thêm bộ lọc ( lọc lúc nhập dữ liệu luôn) và exit 1 chút cơ chế ẩn hiện của nút Xóa/ Update nhưng hok bít cách thực hiện nút xóa

- Khi dữ liệu lọc thỏa mãn hiên ra nếu nhất nút xóa nó sẽ xóa các dòng đó kèm theo 1 MSGBOX " ban co muon xoa hay khong"

nhờ a/c giúp mình với nhé

Private Sub tool_Change()
On Error Resume Next

If UserForm3.tool.Text <> "" Then
ActiveSheet.Range("$A$1:$A$5000").AutoFilter Field:=1, Criteria1:=UserForm3.tool.Text
Me.Label5.Caption = Sheet5.Cells(1, 8)
Else: ActiveSheet.Range("$A$1:$A$5000").AutoFilter Field:=1
Me.Label5.Caption = "0"
End If
If Label5.Caption <> 0 Then
CommandButton4.Enabled = True
CommandButton3.Enabled = False
Else
CommandButton4.Enabled = False
CommandButton3.Enabled = True
End If
End Sub
'----------------------------
Private Sub line_Change()
On Error Resume Next


If UserForm3.line.Text <> "" Then
ActiveSheet.Range("$B$1:$B$5000").AutoFilter Field:=2, Criteria1:=UserForm3.line.Text
Me.Label5.Caption = Sheet5.Cells(1, 8)
Else: ActiveSheet.Range("$B$1:$B$5000").AutoFilter Field:=2
Me.Label5.Caption = "0"
End If
If Label5.Caption <> 0 Then
CommandButton4.Enabled = True
CommandButton3.Enabled = False
Else
CommandButton4.Enabled = False
CommandButton3.Enabled = True
End If
End Sub
'--------------------------
Private Sub test_Change()
On Error Resume Next


If UserForm3.test.Text <> "" Then
ActiveSheet.Range("$C$1:$C$5000").AutoFilter Field:=3, Criteria1:=UserForm3.test.Text
Me.Label5.Caption = Sheet5.Cells(1, 8)
Else: ActiveSheet.Range("$C$1:$C$5000").AutoFilter Field:=3
Me.Label5.Caption = "0"
End If
If Label5.Caption <> 0 Then
CommandButton4.Enabled = True
CommandButton3.Enabled = False
Else
CommandButton4.Enabled = False
CommandButton3.Enabled = True
End If
End Sub

 

[Hai Lúa Miền Tây]

Bạn thêm đoạn sau vào form:

Private Sub CommandButton4_Click()
If MsgBox("Ban co muon xoa hay la khong ?", _
               vbYesNo) = vbYes Then
    Range("a2:f" & Range("a65500").End(xlUp).Row).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
End If
End Sub

Xem thêm file nhé

 

[hunglao]

    Range("a2:f" & Range("a65500").End(xlUp).Row).Select
    Selection.SpecialCells(xlCellTypeVisible).Select

anh giải thích giùm mình 2 câu lệnh này với , mình thấy OK rồi nhưng hok hiểu nó

 

[hunglao]

câu lệnh thứ 2 mình hiểu sơ sơ còn câu thứ nhất hok hiiểu lắm

 

[Hai Lúa Miền Tây]

    Range("a2:f" & Range("a65500").End(xlUp).Row).Select
    Selection.SpecialCells(xlCellTypeVisible).Select

anh giải thích giùm mình 2 câu lệnh này với , mình thấy OK rồi nhưng hok hiểu nó

1) Chọn vùng dữ liệu từ (A2:F&Range("a65500").End(xlUp)) phần tô đỏ là từ cell A65500 nhấn Ctrl+mũi tên lên, để lấy vùng tận cùng của bảng.

Range("a2:f" & Range("a65500").End(xlUp).Row).Select

2) Chọn khối những dòng nào có hiện thị trên bảng tính.

Selection.SpecialCells(xlCellTypeVisible).Select