Liên kết qua lại giữa các ô trong hai Sheet khác nhau

[th7]

Chào các Bạn,
Mình có vấn đề, cần các Bạn kiểm tra và hỗ trợ,
Mình có 2 sheet : Sheet "Data" và sheet "Tracking"
Mục đích của mình là nhấp vào một ô dữ liệu trong sheets "Trachking" thì nó sẽ nhảy tới sheet "Data" và chỉ đúng cái tên giống của nó.
Lưu ý, giá trị trong Sheet "Tracking" được lấy từ sheets "Data"
Dữ liệu "Data" của mình thì gồm nhiều thông tin, Bên Sheets"Tracking" mình muốn diễn giải vấn đề liên quan của dữ liệu bên Sheet "Data", nên cần nhấp qua nhấp lại để tiện, không phải nhấn "Ctrl + F" nó không linh hoạt,
Đồng thời, khi nhấn vào tên trên sheets "Data" thì nó sẽ nhảy sang sheets "Tracking"
Nếu dùng Hyperlink thì phải làm từng cái, rất mất nhiều thời gian.
Xin nhờ các Bạn xem qua, hỗ trợ.

 

[Nhattanktnn]

Chào các Bạn,
Mình có vấn đề, cần các Bạn kiểm tra và hỗ trợ,
Mình có 2 sheet : Sheet "Data" và sheet "Tracking"
Mục đích của mình là nhấp vào một ô dữ liệu trong sheets "Trachking" thì nó sẽ nhảy tới sheet "Data" và chỉ đúng cái tên giống của nó.
Lưu ý, giá trị trong Sheet "Tracking" được lấy từ sheets "Data"
Dữ liệu "Data" của mình thì gồm nhiều thông tin, Bên Sheets"Tracking" mình muốn diễn giải vấn đề liên quan của dữ liệu bên Sheet "Data", nên cần nhấp qua nhấp lại để tiện, không phải nhấn "Ctrl + F" nó không linh hoạt,
Đồng thời, khi nhấn vào tên trên sheets "Data" thì nó sẽ nhảy sang sheets "Tracking"
Nếu dùng Hyperlink thì phải làm từng cái, rất mất nhiều thời gian.
Xin nhờ các Bạn xem qua, hỗ trợ.

Chạy code tạo hyperlinks cho bạn:

Sub HpLinks()
Dim DataRng As Range, TrackRng As Range, Cll1 As Range, Cll2 As Range
Dim wsDT As Worksheet, wsTr As Worksheet
Set wsDT = Sheets("Data"): Set wsTr = Sheets("Tracking")
Set DataRng = wsDT.Range("C2:C" & wsDT.Cells(Rows.Count, "C").End(xlUp).Row)
Set TrackRng = wsTr.Range("B2:B" & wsTr.Cells(Rows.Count, "B").End(xlUp).Row)
For Each Cll1 In DataRng
    For Each Cll2 In TrackRng
        If Cll1.Value = Cll2.Value Then
            wsDT.Hyperlinks.Add Anchor:=Cll1, Address:="", SubAddress:=wsTr.Name & "!" & Cll2.Address(0, 0)
            wsTr.Hyperlinks.Add Anchor:=Cll2, Address:="", SubAddress:=wsDT.Name & "!" & Cll1.Address(0, 0)
        End If
    Next
Next
End Sub