أبو سجده

وعليكم السلام ورحمة الله وبركاته مساكم الله بالخير تمت التجربة والإفادة شكرا جزيلا على وقتكم الثمين وجزاكم الله خيرا

حبيبى فى الله اخى وأستاذى / عبدالله بداية جزاكم الله خيرا على صبركم وإهتمامكم بهذا الموضوع نظرا لوجود خانتين للقرش والجنية فى ورقة المصدر " الرئيسية " إضظررت وللأسف لعمل توسيط لرؤوس الأعمدة فى الصفين 6 و 7 كما هو موضح فى المرفق الذى تم نشره فى المشاركة الأولى لقد قمت بحذف الثلاثة أوراق المراد نقل الأعمدة إليهم **** ثم رجاءاً قم بتشغيل هذا الكود المرفق بهذا الملف لملاحظة ما أعنيه Option Explicit Sub test() ' ******************* Dim wsMain As Worksheet Dim wsSheets As Variant Dim colArr As Variant Dim i As Long Set wsMain = Sheets("Source") ' ************** wsSheets = Array("First", "Second", "Third") ' ******************* Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim colsArr() As Variant colsArr = Array( _ Array(1, 4, 6, 28, 29), _ Array(1, 2, 3, 4, 5, 6, 46), _ Array(1, 4, 6, 17, 18, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45) _ ) For i = LBound(wsSheets) To UBound(wsSheets) Abdullah_Basheer wsMain, Sheets(wsSheets(i)), colsArr(i) ' ************ ' ///////////////////////////////////////////// Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Sub Abdullah_Basheer(wsSource As Worksheet, wsTarget As Worksheet, cols As Variant) ' //////////////////////////////// Dim lastRow As Long Dim i As Long Dim colNum As Integer lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row For i = LBound(cols) To UBound(cols) colNum = cols(i) wsTarget.Columns(colNum).ClearContents Next i For i = LBound(cols) To UBound(cols) colNum = cols(i) wsSource.Range(wsSource.Cells(1, colNum), wsSource.Cells(lastRow, colNum)).Copy wsTarget.Cells(1, colNum).PasteSpecial Paste:=xlPasteValuesAndNumberFormats wsTarget.Cells(1, colNum).PasteSpecial Paste:=xlPasteFormats Next i Application.CutCopyMode = False End Sub لأنه هو الأفضل من حيث السرعة ومن حيث نسخ التنسيقات بما فيهم نسخ رؤوس الأعمدة بإستثناء الأعمدة الخاصة بخانتين القرش والجنيه فهل من سبيل لتعديل هذا الكود لعمل توسيط لرؤوس الأعمدة الخاصة بخانتين القرش والجنية أما عن الأعمدة ذات القيم النصية فيمكن عمل Auto Fit لها كملائمة تلقائية ضمن هذا الكود المتميز بحول الله تعالى ***** أعتذر للإطالة وجزاكم الله خيرا ****** والله المستعان نقل أعمدة محددة من ورقة الى أكثر من ورقة+222222.xlsm

السلام عليكم جميعا ورحمة الله وبركاته أخى عبدالله شكرا جزيلا لإهتمامكم فى ايجاد خل لهذا الموضوع فجزاكم الله تعالى خير الجزاء بداية الكود الثانى هو بالفعل أسرع من الكود الأول لذا أرفقت هذا الملف مع الكود الثانى أعلم جيدا أخى الفاضل أن الخلايا المدمجة قد تكون سبب فى بعض المعوقات فى تنفيذ الكود نظرا لتصميم الشيت ولكن اللى لربنا سبحانه وتعالى سيكون يسيرا بحوله وقوته الكود يقوم بنقل الأعمدة المطلوبه ولكن بطريقة غير متجاورة للأعمدة ولرؤية ما أقصده برجاء الإطلاع على المرفق التالى والله المستعان وجزاكم الله خيرا نقل أعمدة مع الكود الثانى - عبدالله بشير.xlsm

بسم الله الرحمن الرحيم عليه نتوكل وبه نستعين نحمده سبحانه كما ينبغي أن يحمد ونصلي ونسلم على رسوله محمد وعلى آله وصحبه والتابعين السادة الأعزاء الكرام السلام عليكم ورحمة الله وبركاته أطمع وبحول الله تعالى وقوته فى ضرب ثلاثة عصافير بطلقة واحدة أى بكود واحد VBA من شأنه القيام بنقل أعمدة محددة من ورقة المصدر " الرئيسية " إلى ثلاثة أوراق عمل " الأولى / الثانية / الثالثه " على هذا النحو الأعمدة أرقام 1 و 4 و 6 و 28 و 29 من الورقة الرئيسية إلى الورقة الأولى الأعمدة أرقام من 1 إلى 6 والعمود رقم 46 من الورقة الرئيسية إلى الورقة الثانية الأعمدة أرقام 1 و 4 و 6 و 17 و 18 والأعمدة من 28 إلى 45 من الورقة الرئيسية إلى الورقة الثالثه مع مراعاة فضلا نقل هذة الأعمده بنفس تنسيقات ورقة المصدر " الرئيسية " كلصق قيم نظرا لإحتواء الملف الأصلى على العديد من الصيغ ونظرا لأننى اتعامل مع كميات كبيرة من الصفوف لذلك أتطلع الى طريقة مرنه وسريعة لتحقيق ذلك بفضل الله تعالى أولا ثم بفضلكم جميعا والله ولى الصابرين ***** أخيكم / سعيد بيرم أبو سجدة برجاء الإطلاع على المرفق وجزاكم الله خيرا نقل أعمدة محددة من ورقة الى أكثر من ورقة.xlsm

هو توفيق الدقن بيقول إيه صلاة النبى أحسن أحسنت أخى عبدالله وأحسن الله إليك وأسعدك فى الدارين **** وأمد الله تعالى فى عمرك وبارك فى أولادكم حل ولا أروع ***** شكراحبيب قلبى على إهتمامكم وصبرك معى وجزاكم الله خيرا

أخى وأستاذى عبدالله تم تجربة الملف بعد التعديل الأخير كنسخ ولصق لكن بقيت ملحوظة أخيرة ربما لا أستطيع التعبير عنها بشكل دقيق لكنى سأحاول التوضيح أولا قد يزيد أو يقل عدد الأعمدة حسب تاربخ البداية والنهاية ثانيا قد يزيد أو يقل عدد الصفوف حسب عدد الموظفين أعتقد أننا فى حاجة لجعل نطاق الأعمدة والصفوف ديناميكى بدلا من تحديدهما كنطاق ثابت للبيانات كما تم تحديد نطاق الأعمدة وفقا للتعديل الأخير ******* برجاء ملاحظة نسخ تنسيق الجدول من بعد أخر صف يحتوى على بيانات أعتقد أنه يجب حذف التسيق من بعد أخر صف ****** والله الموفق وعلى الله قصد السبيل استدعاء التاريخ أفقيا +11111.xlsm

ونعم بالله العلى العظيم

أخى وأستاذى الفاضل / عبد الله بشير لدى كود يتولى إستدعاء بيانات الموظفين ***** أردت فقط الإشارة الى أخر صف يحتوى على بيانات أما النقطة الهامة بالنسبة لى هى نسخ التواريخ الموجوده فى الصف الثامن ليتم لصقها بدأ من الخلية AU9 وحتى أخر عمود يحتوى على تاريخ وأيضا أخر صف يحتوى على بيانات والله المستعان

الله ينور عليك ياحاج عبد الله ربنا يبارك فى حضرتك وفى أولادكم نقطة أخيرة بعد طلب الإذن ويكتمل الموضوع بحول الله تعالى وهى كيف يمكن نسخ ولصق نطاق التواريخ فقط بدأ من الخلية AU9 حتى أخر عمود يحتوى على تواريخ وأيضا حتى أخر صف يحتوى على بيانات هل يمكن إضافة هذه النقطة ضمن ماتفضلت به أم ستستدعى هذة النقطة إلى كود منفصل اللهم إصلح بين يديك ***** وجزاكم الله خيرا

بارك الله فيكم وفى أولادكم أخى وأستاذى / عبد الله بشير هناك نقطتين أولهما هى تنسيق التاريخ ياحبذا لو جعلته مشكور يقرأ من اليمين إلى اليسار النقطة الثانية هى عند تغير تاريخ البداية والنهاية من 2024/10/1 إلى 2024/11/30 حسب المثال المرفق إلى تاريخ أخر على سبيل المثال من 2024/9/22 إلى 2024/10/9 يظل تسلسل الأيام السابق ثابتا دون محوه فهل يمكن جعل نطاق تسلسل الأيام مطاطيا إن جاز التعبير حسب زيادة المدة أو نقصانها ربما توضح الصورة المزيد ****** مرة أخرى بارك الله فيكم وفى أولادكم وجزاكم الله خيرا

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم ورحمة الله وبركاته إستعرضنا قبل عدة أيام موضوع تسلسل الأيام بدون أيام الجمعة والسبت بإستخدام ال VBA بطريقة رأسية ويُشهد الله تعالى أن الردود والحلول جاءت أكثر من رائعة أما عن هذا الموضوع كيف يمكن أن نقوم بتسلسل الأيام بدون ايام الجمعة وأيام السبت بإستخدام ال VBA ولكن بطريقة أفقية بداية من التاريخ المُدخل يدويا كتاريخ بداية وحتى تاريخ النهاية وبدون حد أقصى لتاريخ النهاية برجاء التفضل بالإطلاع على المرفق ***** شكرا مقدما وجزاكم الله خيرا التحويل من الرأسى الى الأفقى.xlsm

السلام عليكم ورحمة الله وبركاته شكرا جزيلا لإهتمامكم البالغ أخى محمد تمت الإفادة بحول الله تعالى وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته طبتم وطاب ممشاكم وتبوئتم جميعا من الجنة منزلا ورزقنا جميعا من حيث لا نحتسب لدى فى هذا المرفق ورقتى عمل أحدهما " المصدر" والأخرى " الهدف تحتوى ورقة المصدر على العديد من الجداول بطريقة رأسية ولكل منهم 17 صف يفصلهما صف واحد فارغ أما عن ورقة الهدف فتحتوى على جدول واحد ثابت وبنفس عدد الصفوف وبنفس تنسيق الجدوال بالورقة المصدر والسؤال كبف يمكن إستدعاء بيانات الجدوال من الورقة المصدر الى ورقة الهدف إعتماداً على رقم الموظف المدون بالخلية B5 فى الورقة الهدف فهل من ذلك سبيل بإنشاء كود VBA لتحقيق ذلك ****** برجاء الإطلاع على المثال المرفق شكرا جزيلا مقدما وجزاكم الله خيرا جلب بيانات اعتمادا على رقم الموظف.xlsm

بارك الله فيكم ورزقنا جميعا من حيث لا نحتسب تمت الإفادة وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته يحتوى هذا المرفق على دالة COUNTIF لعد ثلاث حالات من خلال نطاقين بالخلايا M3 و N3 و P3 بالإضافة الى ذلك تحتوى الخلية Q3 على دالة SUM لجمع نطاقين كما فى المرفق ولكن عند تشغيل الكود تختفى الحالات المراد عدها فى النطاق الأول من M6 الى M37 وسؤالى هل يمكن تضمين الدالة COUNTIF والدالة SUM بإضافة بعض السطور فى الكود المبين من هذا المرفق برجاء الإطلاع على المرفق وجزاكم الله خيرا COUNTIF.xlsm