Lấy dữ liệu dòng từ sheet1 qua sheet2 khi nhấn hyperlink trên dòng đó

[thanhbich20092009]

Em có vấn đề này đang bí nhờ các cao thủ giúp đỡ
Nhu cầu :
Trên sheet1 có các dòng chứa dữ liệu (mỗi dòng đều có hyperlink qua sheet2).
Em muốn khi nhấn vào link hyper của dòng nào trên sheet1, sẽ lấy đc dữ liệu của dòng đó, đưa qua sheet 2.
Em đang cần gấp, mong các bác dành chút time xem hộ em.
Cảm ơn for help

 

[Hai Lúa Miền Tây]

Em có vấn đề này đang bí nhờ các cao thủ giúp đỡ
Nhu cầu :
Trên sheet1 có các dòng chứa dữ liệu (mỗi dòng đều có hyperlink qua sheet2).
Em muốn khi nhấn vào link hyper của dòng nào trên sheet1, sẽ lấy đc dữ liệu của dòng đó, đưa qua sheet 2.
Em đang cần gấp, mong các bác dành chút time xem hộ em.
Cảm ơn for help

Dùng code sau nhé (Mình sưu tầm từ GPE không nhớ tác giả hình như là của Thầy Tuấn)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("g2:g100"), Target) Is Nothing Then
    Application.ScreenUpdating = False
    Target.Value = IIf(Target = "", "a", "")
    Sheet2.Range("A:g").Clear
    With Sheet1.Range("A1").CurrentRegion
      .AutoFilter 7, "a"
      .SpecialCells(12).Copy Sheet2.Range("A1")
      .AutoFilter
    End With
    Target(2).Select
    Sheet2.Select
    Application.ScreenUpdating = True
  End If
End Sub

 

[thanhbich20092009]

Cảm ơn bac domfootwear nhieu nhe ! Code phuc tap nhu vay thi chiu, may co bac help