أرتباط تشعبى

[عمر الجزاوى]

عند الضعط على زر انشاء فاتورة ينسخ الفاتورة ويلصقها اسفل الأخرى ويرحل رقم الفاتورة في العمود K المطلوب إضافة على الكود لعمل ربط تشعبى بين رقم الفاتورة في العمود k وأرقام الفاتورة اللى في الشيت  و متمنين لكم دوام الصحة والعافية 

جدول + هيبر لينك.xlsm

[ابو القاسم]

Sub wwww()
lr = Range("g" & Rows.Count).End(3).Row + 3
Range("a1:h27").Copy Range("a" & lr)
If Cells(11, 2) <> "" Then
   lrr2 = Range("k" & Rows.Count).End(xlUp).Row + 1
Else
  lrr2 = Range("k" & Rows.Count).End(xlUp).Row + 1
  End If
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(lrr2, 11), Address:="", SubAddress:= _
        "æÑÞÉ1!" & "H" & lr + 20

Cells(lrr2, 11) = [h3]
Cells(lrr2, 12) = [f7]
Cells(lrr2, 13) = [b9]
Cells(lrr2, 14) = [h27]
Range("h3") = Range("h3") + 1
End Sub

اتمني يكون المطلوب

[عمر الجزاوى]

تسلم يمينك استاذ ابو القاسم  وربنا يعزك يارب هذا هو المطلوب