ياسر خليل أبو البراء

وجزيت خيراً أخي الكريم بمثل ما دعوت لي .. وأهلاً بك بين إخوانك بالمنتدى تقبل تحياتي

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

حل آخر بالأكواد .. وهو مرن في حالة تمدد النطاق بشكل أو بآخر حيث يتم تعديل النطاق في الكود ليناسب احتياجاتك Sub Test_TransposeArray_UDF() Dim a As Variant Dim b As Variant a = Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value b = TransposeArray(a) Range("C4").Resize(UBound(b, 1), UBound(b, 2)).Value = b End Sub Function TransposeArray(arr As Variant) As Variant Dim i As Long Dim j As Long ReDim temp(1 To UBound(arr, 2), 1 To UBound(arr, 1)) For i = 1 To UBound(temp, 1) For j = 1 To UBound(temp, 2) temp(i, j) = arr(j, i) Next j Next i TransposeArray = temp End Function

أخي الكريم تأكد أنه لو لدي علم بالأمر ما ترددت في المشاركة ويمكنك الإطلاع على موضوعات المنتدى وستجدني مشارك في الكثير منها .. ولكن فوق كل ذي علمٍ عليم جرب تضع هذا السطر في بداية الكود On Error Resume Next

وعليكم السلام

وعليكم السلام أخي الكريم الفيجوال بيسك للتطبيقات VBA أو ما يعرف بـ Visual Basic for Applications يخص تطبيقات الإكسيل ، وهو يختلف عن لغة البرمجة Visual Basic ... وبالنسبة للأوفيس عموماً والإكسيل خصوصاً نستخدم الـ VBA .. ويكون مدمج في الإكسيل نفسه أي لا يحتاج لتنصيب .. وإليك الفيديو التالي يوضح بعض الأمور الأساسية لعلها تفيدك

الصورة معناها أنه لم يتم وضع الكود الذي وضعته لك في الموديول .. قم بوضع الكود في نفس الموديول وجرب مرة أخرى

هلا أرفقت آخر نسخة من الملف والكود ومطبق فيه ما قمت بعمله .. وما هي الخلية المرتبطة بعدد صفوف النسخ لأني أنسى الموضوعات ، وربما لا أتذكر .. فذكرني بتفاصيل الملف مرة أخرى .. وما هي أوراق العمل المطلوب العمل عليها وما هي أوراق العمل المطلوب استثنائها ؟

وعليكم السلام أخي الكريم أهلاً بك في المنتدى .. يرجى إرفاق ملف وبه بعض النتائج المتوقعة ..؟ هل تريد التعامل مع الصفوف المخفية أم أنك لا تريد التعامل معها بشكل نهائي؟ ارفق نموذج من النتائج المتوقعة

يمكن إضافة الكود المقدم في الموديول بشكل عادي .. وفي الكود المسمى kh_start قبل سطر النهاية End Sub ضع هذا السطر Call Sort_Custom

السلام عليكم الموضوع غير مكتمل الأركان .. وضح بمزيد من التفاصيل وارفق ملف به ورقة عمل لشكل النتائج المتوقعة

إذاً في الكود الموجود يتم مسح السطر المسئول عن المسح .. حيث يقوم بعملية النسخ بشكل طبيعي أي يتم حذف سطر المسح فقط (هذا حسب ما فهمت من كلامك) ، ويمكنك التجربة ومشاهدة النتائج .. وإذا لم تكن النتائج هي المطلوبة ضع صورة لشكل النتائج المتوقعة ليسهل فهم المطلوب ..

في الكود المقدم عدل اسم ورقة العمل وعدل النطاق .. واضبط العمود المطلوب الترتيب على أساسه الكود بسيط يمكن التعديل عليه بما يتناسب مع الورقة الأخرى ..

ما هو عمود الإدخال اليدوي بالنسبة إليك ؟؟ وما هو العمود المتوقع أن تحصل فيه على النتيجة ؟ حاول تتحدث بلغة الإكسيل لأني لا أفهم طبيعة عملك وأين الأعمدة التي سيتم فيها كتابة جميع الأقساط أم أن أن القسط المدفوع يكتب في عمود واحد .. وفي هذه الحالة هل سيتم وضع قيمة جديدة في كل مرة أم أن قيمة القسط المدفوع مسبقاً تضاف لقيمة القسط الجديدة ... بمعنى آخر في العمود J (تم دفع) نفترض أن العميل دفع 300 جنيه ، ثم في الشهر التالي دفع 250 جنيه .. فما هو نظامك في كتابة المدفوع في هذه الحالة ؟؟ هل تكتب 300 ثم 250 أم تكتب 300 ثم 550 ؟؟!

وجزيت خيراً بمثل ما دعوت لي أخي العزيز محمد والحمد لله أن تم المطلوب على خير

ليس لدي فكرة عن المطلوب ولو كان لدي ما ترددت في المشاركة .. ربما يفهم غيري المطلوب ويشارك في الموضوع إن شاء الله

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

السلام عليكم .. لم تحدد ورقة العمل المطلوب العمل عليها والنطاق المطلوب العمل عليه بالضبط .. لا أحب العمل على التخمين ثانياً المدخلات لابد من أن تكون صحيحة لتحصل على نتائج صحيحة .. ففي العمود الثالث في ورقة العمل "القائمة" توجد مسافات زائدة في نهاية البيانات (في معظم الوظائف وليس كلها) ، لذا يجب تصحيح البيانات قبل تنفيذ الكود .. جرب الكود التالي .. حيث يقوم بترتيب العمود الثالث بحسب الترتيب الذي تفضلت به ، ويرتب أيضاً العمود الثاني .. أي أن كل مجموعة وظائف محددة سيتم ترتيب الأسماء وفقاً لهذه الوظيفة Sub Sort_Custom() Dim n As Long Application.AddCustomList Array("كبير معلمين", "معلم خبير", "معلم اول أ", "معلم اول", "معلم", "معلم مساعد", "ادارى") n = Application.CustomListCount With Sheets("القائمة") .Range("B6:F" & .Cells(Rows.Count, 2).End(xlUp).Row).Sort Key1:=.Range("C6"), Key2:=.Range("B6"), Header:=xlYes, OrderCustom:=n + 1 End With Application.DeleteCustomList n End Sub

أخي الكريم يرجى عدم أخذ الاقتباسات الطويلة في الردود .. بالنسبة للكود يقوم بمثل ما تفضلت به تماماً ولكن يبدأ من العمود الثاني لذا في الكود غير في هذا السطر الرقم 1 إلى 2 وفقط For cl = 1 To 38 بالنسبة للكود ووضع الكود داخل الملف .. برجاء مشاهدة الفيديو التالي

جرب التعديل التالي رغم أن التوضيح لم يكن بما فيه الكفاية حيث لم تضرب أمثلة للنتائج المطلوبة .. للتأكد من صحة الأكواد ليس أكثر Sub SUM_Each_Fifty_Cells() Dim ws As Worksheet Dim sh As Worksheet Dim cl As Long Dim ct As Long Dim nr As Long Set ws = Sheets("Sheet1") Set sh = Sheets("Sheet2") For cl = 1 To 38 nr = 6 For ct = 7 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 50 nr = nr + 1 sh.Cells(nr, cl).Value = Application.WorksheetFunction.Sum(ws.Cells(ct, cl).Resize(50)) Next ct Next cl MsgBox "Done...", 64 End Sub

أيوا يا عم خالد اغطس بقا وافضل تقب بعد فترة طويلة .. عايزين نشوف نشاطك زي زماااااااااااااان مشكور على دعائك الطيب المبارك ولك بمثله إن شاء الله

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

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

الموضوع غير مكتمل الأركان ومخالف حيث لا يطلب فك حماية كلمات المرور إلا إذا كان الشخص هو صاحب الملف ويؤكد على ذلك يرجى مراجعة التوجيهات في الموضوعات المثبتة في صدر المنتدى وأهلاً بك في المنتدى أخي الكريم تامر

الحرف t يرمز لورقة العمل الهدف (الكشوف النهائية) بداية النطاق سيكون من الخلية B14 بامتداد 6 صفوف و 4 أعمدة (حير النطاق المطلوب وضع النتائج فيه) يساوي الحرف s يشير لورقة العمل التي تحتوي البيانات (تسجيل البيانات) وبداية النطاق هو الصف المشار إليه في المتغير r وهو متغير أي أنه يختلف بحسب الأسطر السابقة (في العمود الأول) ، وبنفس حيز النطاق للنتائج