Xin giúp em code tự động ẩn dòng khi link trống và hiện dòng khi link có dữ liệu (1 người xem)

[bravo8668]

Em đang cần cho công việc của mình nhưng không làm được, mong các anh chị giúp đỡ em với ạ. File ví dụ em gửi kèm ạ. Xin cảm ơn các anh chị và GPE nhiều

 

[hoangvuluan]

Tốt nhất là bạn nên dùng chức năng lọc dữ liệu không phải viết code cho mất công.

 

[mhung12005]

Em đang cần cho công việc của mình nhưng không làm được, mong các anh chị giúp đỡ em với ạ. File ví dụ em gửi kèm ạ. Xin cảm ơn các anh chị và GPE nhiều

Bạn muốn công thức thì thế này.

 

[bravo8668]

Cảm ơn anh, dữ liệu của em nhiều, có code nào cho sheet không các anh. Xin cảm ơn các anh chị nhiều

 

[concogia]

Cảm ơn anh, dữ liệu của em nhiều, có code nào cho sheet không các anh. Xin cảm ơn các anh chị nhiều

Muốn code thì có code ngay thôi
Đây là bài toán loại những cell trống
Bạn tùy biến vào file của bạn, nếu hổng được thì đưa file thật lên đây
Cứ thêm, bớt, sửa dữ liệu ở sheet "NGUON", chọn sheet "GOC" xem kết quả từ cell [A2]
Thân

 

[bravo8668]

em cảm ơn anh concogia nhiều ạ

 

[hienhoanghuy]

Minh có đoạn Code tự động ẩn dòng (có điều kiện). Khi chạy đoạn mã này sẽ thực hiện vấn đề trên như vẫn còn một bất tiện là chưa tự động hoàn toàn mà phải chạy (run) đoạn mã trên thì công việc mới được thực hiện. Bác nào biết lập trình sự kiện (even) thì sửa lại giúp Em nha !!! Càng sớm cáng tốt các Bác nhe
Cám ơn các Bác nhiều.

Sub AnHang()
dau = 4
cuoi = 11
j = 5
For i = dau To cuoi
If Cells(i, j).Value > 10 Then
Cells(i, j).EntireRow.Hidden = True
Else
Cells(i, j).EntireRow.Hidden = False
End If
Next i
End Sub

 

[songdai_love]

Minh có đoạn Code tự động ẩn dòng (có điều kiện). Khi chạy đoạn mã này sẽ thực hiện vấn đề trên như vẫn còn một bất tiện là chưa tự động hoàn toàn mà phải chạy (run) đoạn mã trên thì công việc mới được thực hiện. Bác nào biết lập trình sự kiện (even) thì sửa lại giúp Em nha !!! Càng sớm cáng tốt các Bác nhe
Cám ơn các Bác nhiều.

Sub AnHang()
dau = 4
cuoi = 11
j = 5
For i = dau To cuoi
If Cells(i, j).Value > 10 Then
Cells(i, j).EntireRow.Hidden = True
Else
Cells(i, j).EntireRow.Hidden = False
End If
Next i
End Sub

Bạn chỉ cần sửa lại dòng đầu tiên là : Sub Worksheet_Activate() là được rồi!
Chúc bạn thành công