أ / محمد صالح

بارك الله فيكم

بإذن الله يفيدك هذا التعديل رغم اني كنت أتوقع وجود محاولة منكم في المعادلات البسيطة بالتوفيق حصر العجز والزيادة فى الحصص.xlsx

لقد اخبرتك بما اعتقد انه يفيدك ولكن ربما لم يتم استيعابه جيدا ولا ادري ما المشكلة؟ الرابط يفتح إصدار سطح المكتب كما هو مكتوب في الرابط وإذا كان في بدايته m سيفتح إصدار الموبايل كما تم الشرح في أول مشاركة لي

ما شاء الله رائع كعادتك صديقي

عليكم السلام ورحمة الله وبركاته كل خلية يوجد بها أكثر من بيان بينهما سطر جديد داخل نفس الخلية وبعض الخلايا تحتوي على سطرين و بعضها يحتوي على 3 سطور وبعضها يحتوي على 4 سطور وبعضها يحتوي على 5 سطور ويوجد تقريبا 6 سطور أيضا و بعضها يحتوي على سطر واحد فقط هل المطلوب جلب بيانات آخر سطر داخل الخلية يعني السطر الثاني في حالة وجود 2 والثالث في حالة وجود 3 وهكذا ؟؟؟ مع العلم ليست كل الخلايا في نفس الصف منضبطة في عدد السطور فمثلا الصف 17 أول 4 أعمدة يوجد في الخلية 4 سطور وفي العمودين 5 و 6 في نفس الصف نجد الخلية بها 5 سطور وهذا الاضطراب لا يسمح بضبط الأمر فأول خطوة للحصول على المطلوب هو ضبط عدد السطور في كل صف بالتوفيق

الرابط الموجود في الحلية هو Mark Zuckerberg مرتبط بهذا العنوان https://www.facebook.com/zuck?__cft__[0]=AZXlg8B7EB-A_janTQ24MXbO6O1Hb-QgGF5Cr3gwhFX7gitPtdC7-iHeelnR7MI5YNDwu1-lqeTH1nQA7QiBm95wTU6uubcdaN2PQO1ACnnMAylE3u-iMm0U-ZmXKwy5LROzsgXi60fwx6BHoItpu7b7&__tn__=-UC%2CP-R والأفضل أن يتم نسخ الرابط إلى هذا الجزء فقط https://www.facebook.com/zuck وعند الضغط على الرابط من الكمبيوتر تم فتح إصدار سطح المكتب فقط ولا يفتح نافذة الموبايل بالتوفيق

الشكر لله الذي وفقنا لهذا 👍🌹👍

لكل موقع طريقته في التصميم والبرمجة فبعضها يضع m قبل الرابط للدلالة على إصدار الموبايل مثل فيسبوك https://m.facebook.com وبعضها يضع m=1 مثل blogger وبعضها يكتشف الجهاز ويعرض الإصدار المناسب دون تغيير في الرابط بالتوفيق

يمكنك استعمال هذا الكود sub fillblank() lr = cells(rows.count, 1).end(xlup).row for n=2 to lr if cells(n, 1).value <> "" then customer = cells(n, 1).value else cells(n, 1).value = customer end if next n msgbox "Done by mr-mas.com" end sub بالتوفيق

يفضل إرفاق ملفك او مثال منه على العموم هذا مثال سريع إن شاء الله يكون المطلوب الخصم بناء على وقت الحضور.xlsx

شكرا لكلماتك الطيبة والأفضل أن ينتفع الطرفان طبعا

خطوة موفقة بإذن الله

امتداد الملف غير مدعوم في اكسل حيث أن تنسيقه لا يتناسب مع الامتداد ربما يكون مصدر هذا الملف هو برامج استعادة المحذوفات حيث أنها تخدع المستخدم بنفس اسم وامتداد الملف وحجمه لكنه لا يعمل ونسبة العمل بها قليلة جدا بالتوفيق

بعد إذن الجميع هذا ملفك بعد تصحيح الخطأ في الكود الخطأ في نقل الكود وليس الكود الأصلي وينتج هذا الخطأ عن عدم فهم دلالات الأرقام والمتغيرات في الكود بالتوفيق مجمع الشيتات.xlsm

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

المشكلة الأولى تكمن في أن النص الموجودج في مربع النص هو نص string وليس مصفوفة array والحل mycols = Split(textbox2.value, ",") لتحويل النص إلى مصفوفة ولتحويل العنصر في المصفوفة من نص إلى رقم نستعمل int في هذا السطر a(ii + 1, j) = ws.Cells(i, Int(myCols(ii))).Value والمشكلة الثانية تكمن في أن الخلية الفارغة قيمتها صفر ولا يوجد عمود رقمه صفر والحل ألا توجد خلية فارغة وهذا ملفك بعد التعديل: لأنه في الغالب يوجد مشكلة في تطبيق المعلومة المستفادة من الإجابة بالتوفيق listbox dynamic.xlsb

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

يمكنك استعمال التنسيق الشرطي بمعادلة مثل =OR(COUNTIF($F$6:$I$11,C6)>0,COUNTIF($L$14:$N$19,C6)>0) وتطبق على المدى المطلوب بالتوفيق عدم السماح بتكرار.xlsx

كما أخبرت حضرتك سابقا الخطأ في التطبيق الملف الأصلي العمودين B و c وصف البداية 7 في الملف الجديد العمودين c و d وصف البداية 4 ورغم الاختلاف حضرتك لم تعدل الكود ليتناسب مع الأعمدة الجديدة والبدايات الجديدة أول خطوة قبل نقل الكود هو فهمه أو عرض الملف الأصلي ختى لا يلجأ الإنسان للتعديل أو نقل الكود بطريقة خطأ بالتوفيق

يمكنك استعمال التنسيق الشرطي رسائل تنبيه من عدة اعمدة.xls

لا أدري إن كان الرد السابق يتعلق بمشاركتي أم غيرها على العموم في الملف المرفق في مشاركتي يوجد 4 اسماء في العمود 2 الذي هو b وكذلك 4 اسماء في العمود 3 والذي هو c ويتم وضعهم في العمود e والذي رقمه 5 في نهاية المكتوب ربما يكون الخطأ في التطبيق على ملف جديد

يمكنك استعمال هذا الاجراء Sub merge2cols() rng1Count = Cells(Rows.Count, "B").End(xlUp).Row - 6 rng2Count = Cells(Rows.Count, "C").End(xlUp).Row - 6 lr = Cells(Rows.Count, "E").End(xlUp).Row + 1 Range("E" & lr & ":E" & rng1Count + lr - 1).Value = Range("B7:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value lr = Cells(Rows.Count, "E").End(xlUp).Row + 1 Range("E" & lr & ":E" & rng2Count + lr - 1).Value = Range("C7:C" & Cells(Rows.Count, "C").End(xlUp).Row).Value End Sub بالتوفيق نقل عمودين في عمود.xlsb

أعتقد خلايا الصف 75 وما بعده

جميل جدا تبقى فقط أن نجعل الإكسل يقرأ باللغة العربية توصلت لها في برمجة الويب وطبقتها في موقعي ربما أحاول ضبطها لتعمل في vba بالتوفيق

يا اخوة الاجابتان سواء ربما سبقت اجابتي فكانت قبل أي إجابة بدقيقتين فقط الغبرة بنفع الغير وليست في نقاط وهمية بالتوفيق