unhide theo số dòng mong muốn

[VUDER]

xin chào cà nhà!
em có 1 file viết VBA để unhide số dòng theo mong muốn , mà không biết code sai chỗ nào mà cứ báo lỗi hoài
mong cả nhà giúp với

 

[vanaccex]

xin chào cà nhà!
em có 1 file viết VBA để unhide số dòng theo mong muốn , mà không biết code sai chỗ nào mà cứ báo lỗi hoài
mong cả nhà giúp với

Sửa code thành Vậy xem sao

Sub SwitchHorizontalTabs()
Dim SelCol As Long
Dim FirstRow As Long
With Sheet1
    SelCol = .Range("B2").Value
    .Range("5:84").EntireRow.Hidden = True
    FirstRow = 5 + ((SelCol - 5) * 20)
    .Range(FirstRow & ":" & FirstRow + 19).EntireRow.Hidden = False
    End With
End Sub

 

[VUDER]

Sửa code thành Vậy xem sao

Sub SwitchHorizontalTabs()
Dim SelCol As Long
Dim FirstRow As Long
With Sheet1
    SelCol = .Range("B2").Value
    .Range("5:84").EntireRow.Hidden = True
    FirstRow = 5 + ((SelCol - 5) * 20)
    .Range(FirstRow & ":" & FirstRow + 19).EntireRow.Hidden = False
    End With
End Sub

CÁM ƠN BẠN , MÌNH L2M ĐƯỢC RỒI