Macro tạo 1 loạt hyperlink từ nhiều cell đến 1 cell duy nhất (điềucó text giống nhau) (2 người xem)

[roadno1]

Trong sheet 1 của mình có cột D dùng để gõ vị trí để vật. Trên cột này có rất nhiều cell khác nhau có text trong cell lần lượt là A1, B1, C1, D1, F1 ( nhằm để chỉ vị trí của vật liệu trên bản đồ ở sheet 2)
Còn trong sheet 2 là bản đồ chỉ vật. Trong sheet 2 chỉ có duy nhất 1 cell chứa A1 or B1 or C1 or D1 or F1 (không có trường hợp lặp lại)
Mình muốn tạo 1 macro để liên kết các cell có kí tự A1 trong sheet 1 đến cell duy nhất có kí tự A1 ở sheet 2. Tương tự với B1, C1, D1, F1
Các kí tự này được gõ trước, sau đó click vào 1 cái nút để tạo 1 loạt hyperlink từ các cell của sheet 1 đến 1 cell trùng nhau trong sheet 2
Vấn đề là mình chỉ có ý tưởng tạo 1 loạt liên kết từ nhiều cell đến 1 cell có kí tự giống nhau. Nhưng không biết gì về macro.
Mọi người giúp em tạo cái macro này với. Mình rất cần cái này

 

[roadno1]

Mình có tìm được đoạn code này trên 1 web nước ngoài. Hoàn toàn giống với ý tưởng của mình (Tạo hyperlink khi có text giống nhau). Nhưng có 1 điều là làm thế nào để Hyperlink đến 1 vùng (A115 Chẳng hạn) trong sheet 2 thay vì chỉ là cột C trong sheet 1 thôi, như file trên diễn đàn đã làm. Mọi người giúp mình với vì mình thừ mọi cách rồi nhưng cũng potay
Thank mọi người

Sub Update_Hyperlinks()

   Dim LRowE, LRowC As Integer
   Dim LContinue As Boolean
   
   'Clear all hyperlinks from the active sheet
   ActiveSheet.Hyperlinks.Delete
   
   'Start at row 1 when creating hyperlinks for column E
   LRowE = 1
   
   'Create hyperlinks in column E until a blank value is encountered in column E
   While Len(Range("E" & CStr(LRowE)).Value) > 0
   
      'Start at row 1 (when searching column C values)
      LRowC = 1
      LContinue = True
      
      'Stop searching column C when either a match is found, or
      ' a blank value in column C is found
      While LContinue = True
      
         'Found a match between column E and column C, set hyperlink and
         ' set boolean variable to not search any more for a match
         If Range("E" & CStr(LRowE)).Value = Range("C" & CStr(LRowC)).Value Then
            
            'Select the location for the new hyperlink
            Range("E" & CStr(LRowE)).Select
            
            'Add the hyperlink to the column C value
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
            Address:="", _
            SubAddress:="C" & CStr(LRowC), _
            ScreenTip:="C" & CStr(LRowC)
            
            'Found a match, so do not continue
            LContinue = False
            
         End If
         
         'Move to next row in column C
         LRowC = LRowC + 1
         
         'A blank value is found in column C, do not continue further
         If Len(Range("C" & CStr(LRowC)).Value) = 0 Then
            LContinue = False
         End If
         
      Wend
      
      'Move to next row in column E
      LRowE = LRowE + 1
      
   Wend
   
End Sub

Nguồn: http://www.techonthenet.com/excel/macros/hyperlinks_macro.php