ترحيل خلاصة الشهر

[محمد عدنان]

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

ارجو المساعدة في ماكرو  ترحيل خلاصة الشهر من الشيت " كشف " من الاعمدة  AJ   الى AR  الشهر في الخلية  AD3   الى الشيت خلاصة تهائية حسب الشهر 

علما بأن عملية الترحيل ستتم  12 مرة اي انه عتد ترحيل الشهر الحالي لا يقوم بمسح خلاصة الاشهر السابقة في شيت خلاصة نهائية 

مثال خلاصة كانون الثاتي من شيت كشف سترحل الاعمدة ( AJ:AR)   الى شيت خلاصة نهائية الاعمدة  ( D:L)

ملاحظة عند ترحيل شيت كشف ستتحول الخلية AD3 الى الشهر التالي 

ABC.xlsm

[ابراهيم الحداد]

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

استخدم الكود التالى

Sub TrAbsent()
Dim ws As Worksheet, Sh As Worksheet
Dim Shahr As String, x As Long, Rng As Range
Set ws = Sheets("خلاصة نهائية"): Set Sh = Sheets("كشف")
Shahr = Sh.Range("AD3").Text
x = WorksheetFunction.Match(Shahr, ws.Range("D5:CY5"), 0) + 3
Sh.Range("AJ8:AR73").Copy
ws.Cells(8, x).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

 

[محمد عدنان]

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

الاستاذ @ابراهيم الحداد بارك  الله فيك 

الكود عند التنفيذ يعطي خطأ كما هو موضح بالصورة المرفقة 

ما هو الحل و اكرر شكري لك 

[ابراهيم الحداد]

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

عذرا اخى الكريم فاتنى ان انبهك ان تكون اسماء الشهور فى فى ورقة الخلاصة مطابقة

لاسماء الشهور فى القائمة المتسدلة فى ورقة الكشف

و لكى يكون عملك دقيقا قم بنسخ اسم الشهر من القائمة المنسدلة الى صف الشهور

و كرر هذا مع كل الشهور لكى تضمن مطابقة الكلمتين

تماما و ساعتها سيعمل معك الكود بكل سرعة و سلاسة

 هذا و الله ولى التوفيق

[محمد عدنان]

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

الاستاذ @ابراهيم الحداد  جزاك الله كل خير و رحم الله والديك و جزاك و جزاهم الجنة   

الكود يعمل الان بشكل جيد 

شكرا