Code dùng để Hide/Unhide dòng trống trong 1 sheet (1 người xem)

[khoahoc78]

Mình là lính mới tham gia diễn đàn. Còn đang mập mờ về VBA. Rất mong anh em diễn đàn giúp đỡ tạo 1 nút lệnh để Hide/Unhide những dòng trống với điều kiện ở cột không có dữ liệu.
Và tạo 1 nút lệnh để hiện 1 vùng dữ liệu theo yêu cầu từ hộp thoại Combobox theo
Ví dụ : Khi chọn mã 001a, các thông tin của mã này gồm nhiều dòng và cột xuất hiện
Tương tự cho các mã khác.
Khi chọn mã khác thì các thông tin mà cũ mất đi
- Vùng dữ liệu của mình có đến cả 1000 dòng nên việc di chuyển đến 1 mã nào đó thật tốn thời gian quá.
Mong được giúp. Xin cảm ơn.

 

[ngocmaipretty]

Tất cả các yêu cầu trên chỉ cần dùng Auto Filter là xong:
- Dấu dòng trống: AutoFilter Non blank
- Muốn xem mã nào, chọn mã đó trong AutoFilter

 

[khoahoc78]

Cảm ơn bạn đã chỉ bảo, nhưng mình muốn cái nút lệnh kia bằng Code để ẩn hiện dòng trắng kia bởi vì nó liên quan đến vấn đề cá nhân mà. (cái dòng trắng ấy ở đây có điều kiện đấy chứ) còn nếu Auto fiter thì ai cũng nhận dạng được nó mà

 

[manhcuong.dmit]

ban co the dung code sau de hide/unhide dong trong nha

Sub HideRows()
Dim i As Integer
Application.ScreenUpdating = False
For i = 12 To 39
If Sheet1.Range("A" & i).Value = "-" Then
Rows(i & ":" & i).EntireRow.Hidden = True
Else: Application.ScreenUpdating = True
Rows(i & ":" & i).EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
'funtion to show all of the user
Sub Hide_Unhide()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For i = 12 To 39
Rows(i).Hidden = (Cells(i, "b").Value = 0) + (Cells(i, "b").Value = "")
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[TrungChinhs]

Cảm ơn bạn đã chỉ bảo, nhưng mình muốn cái nút lệnh kia bằng Code để ẩn hiện dòng trắng kia bởi vì nó liên quan đến vấn đề cá nhân mà. (cái dòng trắng ấy ở đây có điều kiện đấy chứ) còn nếu Auto fiter thì ai cũng nhận dạng được nó mà

Bạn thử cái này xem. Tác dụng: từ vị trí bạn đặt con trỏ xuống 10.000 dòng nếu có dòng trống thì ẩn, nếu có dòng đang ẩn thì hiện.

Sub RowBlank()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Selection.Resize(10000).SpecialCells(4).EntireRow
        Check = .Hidden = 1 = .Hidden = 0
        .Hidden = IIf(Check, 0, 1)
    End With
End Sub