شيت أجازات بالعرض أريد نسخه بالطول

[oka123]

لدي شيت أجازات بياناته بالعرض أريد نسخه بالطول بحيث يكون كالتالي كود الموظف أسم الموظف القسم تاريخ الأجازة نوع الأجازة مع تكرار ذلك بالطول لباقي الموظفين مرفق الملف

أجازات.xlsx

[سليم حاصبيا]

جرب هذا الكود

تجد النتيجة قي الشيت 3

Option Explicit
Sub transfer_data()
Sheets("Sheet3").Cells.Clear
    Sheets("Sheet1").Range("A1").CurrentRegion.Copy
    Sheets("Sheet3").Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
   Application.CutCopyMode = False
   End Sub

 

[oka123]

شكرا اخي الكريم علي سرعة الإستجابة ولكن أريد الأسماء تحت بعضها بالتواريخ 

[oka123]

2 ساعات مضت, سليم حاصبيا said:

أخي الكريم لا يوجد حل لهذة المشكلة

 

[بن علية حاجي]

السلام عليكم ورحمة الله

تم عمل كود بسيط بمعية بعض المعادلات ونطاقات بالتسمية، أرجو أن يكون تقريبا للحل...

بن علية حاجي

إجازات.xlsm

[oka123]

جزاك الله خيرا أخي العزيز