النسخ من أفقى واللصق رأسى + لينك

[abdelfattahbadawy]

عاوز أخد مجموعة بيانات من شيت للشيت تانى ويعمل لهم لصق transpose  ويكون اللصق link

أنا جربت الكود ده بس مش ظابط معايا 

Sub Macro3()
' Macro1 Macro
    Sheets("2nd").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("H19:O19").Select
    Selection.Copy
    Sheets("Sheet1").Select
   ' Range("J16").Select
   ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       ' :=False, Transpose:=False
   ' Application.CutCopyMode = False
   ' Selection.Style = "Percent"
   ' Selection.Copy
    Range("J17").Select
    Selection.Paste Link:=True, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

مرفق الملف

Dar Data Base.xlsm

[أ / محمد صالح]

حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة في الخلية j17 في sheet1

=TRANSPOSE('2nd'!H19:O19)

 

[abdelfattahbadawy]

تسلم أخى الكريم نفع الله بكم وزادكم من علمه

[أ / محمد صالح]

جميعا بإذن الله