Xin giúp code ẩn hiện sheet khi nhập dữ liệu vào ô định sẵn (1 người xem)

[laogiahamvui]

Thân chào ACE trong diễn đàn, do công việc phải lưu trữ trích xuất nội dung hóa đơn chứng từ nhiều và cũng không rành về VBA. Nhờ ACE giúp giùm code để khi nhập số hóa đơn vào những ô định sẵn thì sheet hóa đơn đó sẽ hiện ra. Ngoài ra ACE giúp thêm code sắp xếp những sheet nào có liên quan nhau thì cho lên đầu. Cảm ơn nhiều!

 

[HieuCD]

Thân chào ACE trong diễn đàn, do công việc phải lưu trữ trích xuất nội dung hóa đơn chứng từ nhiều và cũng không rành về VBA. Nhờ ACE giúp giùm code để khi nhập số hóa đơn vào những ô định sẵn thì sheet hóa đơn đó sẽ hiện ra. Ngoài ra ACE giúp thêm code sắp xếp những sheet nào có liên quan nhau thì cho lên đầu. Cảm ơn nhiều!

giúp bạn code ẩn hiện sheet, còn xếp thứ tự thì phải có căn cứ để xếp. bạn có thể dùng bộ thu Macro khi thao tác di chuyển sheet, excel sẽ tạo code cho bạn, sau đó chỉnh lại theo ý

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4:B14")) Is Nothing Then
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each cel In Range("Sohoadon")
        Set c = Range("B4:B14").Find(cel.Value, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Sheets("HoaDon-" & cel.Value).Visible = True
        Else
            Sheets("HoaDon-" & cel.Value).Visible = False
        End If
    Next
    Application.ScreenUpdating = True
End If
End Sub