gamalin

السلام عليكم ورحمة الله وبركاته ..الاخوة الافاضل ..برجاء المساعدة في الملف المرفق في شيت AR بيانات شيكات و اريد التعامل معها من خلال فورم userform1 اريد عند فتح الشاشة يجلب البيانات الاقل من او تساوي تاريخ textbox5 الموجود باعلى الشاشة ..مع وافر التحية اقل من تاريخ معين (1).xlsm

شرفني مرورك الكريم وشكرا جزيلا على المعادلة الكريمة وهو المطلوب تماما

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل لدي لف به عدد كبير من الصفحات و في العمود a روابط لكل صفحة هايبر لينك واريد ان يكون بجوار كل اسم صفحة الرصيد بها في خليه معينه في الصفحة بمعادلة مثل هذه =ماجد!B2 ولكن عند محاولة سحب الخلايا لاسفل تتغير الخلايا وتبقى اسم الصفحة فهل يمكن جعل الاكسل يغير اسم الصفخة في المعادلة في المثال ماجد الى الاسم في الخلية المجاورة ؟ CreateNewFolder.rar تغيير اسم الصفحة في المعادلات.xlsx

اشكرك اخي الكريم باافعل هو المطلوب تماما اشكرك وفار التحية والاحترام

اسلام عليكم ورحمة الله وبركاته ..الاخوة الافاضل في الملف المرفق كود للترحيل وفقا للصفحة يعمل جيدا اريد ان يمنع التكرار ..يعين لو تكرر الحساب في صفحة accmove يرحل مرة واحدة فقط في صفحة الشهر عدم التكرار.xlsm

اشكرك

Invalid procedure call or argument (Error 5) عند محاولة تشغيل الكود rem_protect بالامر Application.Run.rem_protect ظهرت هذه الرسالة ما التعديل المطلوب مالخطأ.xlsm

السلام عليكم ..اشكركم شكرا جزيلا لكم وعذرا لتعبك استاذ عبد الفتاح

اشكرك

عذرا استاذنا اشغلت والملف خطا ..الفورم المسمى addacc هو المقصود ..اوقات يفتح واوقات بعد تفريغ البانات من شيت acc لا يفتح واعدت تجربته الان يفتح مش عارف هل في كود تحميل النموذج اي خطأ او في كود تفعيله ربما ينقص شيء مش عارف عذرا سوف ارفق صورة الخطأ عند ظهوره مرة اخرى اعتذر لك اخي الكريم ...ولكن هذا الكود يعطي خطأ في حالة عدم وجود داتا وعدم وجود اسطر تحت السطر رقم 3 Private Sub Cob1_DropButtonClick() w = Sheet3.Cells(Rows.Count, 3).End(xlUp).Row CoB1.List = Sheet3.Range("c3:c" & w).Value End Sub

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

استاذي الفاضل لو نظرت للصورة التي ارفقتها باعلى تجد ان العمود الاخر به كلمة cust , supp والكمبوبوكس يقرأ القيمة الموجودة في العمود d والمطلوب عرص في الكمبوبوكس القيم في العمود d والتي بجوارها فقط كلمة cust في العمود c هل وضحت والنتيجة هي استبعاد قيمة cl5 من العرض في الكمبوبوكس لان القيمة المجاورة لها هي supp

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

السلام عليكم ورحمة الله وبركاته بعد اذن استاذنا علي احمد بالاشارة للموضوع السابق المغلق كنت اخترت افضل اجابة بحل تحايلي مني ولكن تواصل معي اخوة افاضل لهم التحية والاحترام وطلبوا استمرار الموضوع لتعم الفائدة فالف شكر للاستاذ عبد الفتاح واستاذنا ابراهيم الحداد لاهتمامهم واعيد نشر الموضوع بعد اذن استاذنا الفاضل او لو امكن فتح الموضوع لنحذف منه بعض التعليقات ونبدا من جديد بالملف فورم يحتوي على كمبوبوكس وتكست بوكس المطلوب جعل الكمبو بوكس يجلب القيم من عمود d بدون تكرار ان امكن وهل يمكن جعل اللكمبوبوكس يجلب قيم من عمود بشرط قيمة في عمود اخر واخيرا يوجد في عمود i رصيد تراكمي للممول اريد عند اختيار اسم الممول في الكمبوبوكس جلب اخر رصيد للممول استاذنا ابراهيم الحداد ارسل الكود التالي و بالتجربة حل مشكلة تكرار الاسماء في الكمبوبوكس فله مني التحية والاحترام Private Sub UserForm_Initialize() Dim ws As Worksheet, itm Dim obj As Object, Arr Set ws = Sheets("box") Set obj = CreateObject("scripting.dictionary") Arr = ws.Range("D4:D" & ws.Range(" D" & Rows.Count).End(3).Row).Value For Each itm In Arr If obj.exists(itm) Then obj.Item(itm) = obj.Item(itm) + 1 Else obj.Add itm, 1 End If tmp = obj.keys Next Cob2.List = Application.Transpose(obj.keys) End Sub box.xlsm

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

عذرا على الرسالة الخاصة وان كانت فقط لسرعة التواصل استاذي الكمبوبوكس بيجيب الاسماء من عمود d في شيت بوكس والمحتوي على اسم الممول ويوجد في عمود i رصيد متحرك لكل حساب لكل ممول بيجمع وفقا للاسم واريد عند اختيار الممول س مثلا يظهر الرصيد في اخر سطر تضمن اسم الممول س ومرة اخرى معذرة على عطلتك ووقتك وشكرا لوقتك ومروك الكريم وانتظر ان يتواصل معي احد الاخوة لاوضح له اكثر ان كان ماوال الامر غامضا اشكرك

استاذي الفاضل اولا وقبل اي شيء شكرا لمرورك الكريم واستفسارك الذي قد يوضح ما عجزت عن شرحه 1- الكمبوبوكس مهم لاني استعرض مجموعة بيانات او مجموعة اسماء من شيت بوكس عمود d وهذه الاسماء تكون متكررة عفوا لو كان الملف به اسم واحد لكن هذا ليس الطبيعي فهذا مثال للتجربة فقط لكن سيكون بالملف العديد من الاسماء والكثير من العمليات لهذا سألت اولا عن وقف التكرار في الكمبوبوكس و امكانية اضافة شرط للقائمة المنسدلة فيه

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

السلام عليكم ورحمة الله وبركاته لم اتمكن من تعديل الموضوع لذا رجاء المساعدة في 1 في الملف المرفق هل يمكن الا يكرر الكمبوبوكس القيم المكرررة في العمود 2 هل يمكن تقييد البيانات المعروضه في الكمبو بوكس بشرط مثلا قيمة معينه في اي عمود مجاور 3- اريد ات تأتي الخانة في الفورم برصيد الحساب المختار بواسطة الكمبوبوكس اخر رصيد له ارجو التكرم بالمساعدة من فضلكم box.xlsm

تمام اشكرك اخي الكريم جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته لدي برنامج فيه العديد من الفورم اتنقل بينها ولا اعرف الفرق بين end , unload , hide لذا رجاءا لو ممكن حد يوضح لي الفرق بينها وايها افضل لكفاءة البرنامج والتنقل بين الشاشات

شاكر لك اخي الكريم جزاك الله خيرا لو ممكن تشرح لي معنى السطر ده اكون شاكر لك Tb14.Value = ws.Cells(r, ws.Rows("2:2").Find(Tb13.Value, , , 1).Column).Value

الاخوة الافاضل تم التحايل وانجاز جزء كبير من المهام تبقى فقط اريد ان تأتي خانة tb14 تاريخ اخر دفعة ...الدفعات في اعمده متتالية اريد ان تأتي خانة تاريخه باخر تاريخ لاخر دفعة وتم عمل عدد محدد من الدفعات لعدم التمكن من عمل حلقة تكرارية على الاعمده تضع القسط الجديد بعد اخر قسط ان امكن تطوير الكود اكون شاكر دفعات في اعمده مختلفة.xlsm

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ...الاخوة الافاضل ارجوا التكرم بمساعدتي في برمجة الشاشة كما يلي في frame 8 رقم الاذن يربط بعمود رقم الاذن في شيت credit وكذلك اسم الحساب وعند اختيار ايهما يتم ملئ باقي بيانات الشاشة من السطر او السجل الخاص بالاذن اللي تم اختياره حتى تعبئة المبلغ المتبقي و عدد الاقساط السابقة وتاريخ اخر قسط و في frame 9 يتم كتابة تاريخ وقيمة القسط الجديد وعند الترحيل ..يتم الذهاب الى اخر عمود به دفعه ويتم ترحيل التاريخ والقيمة للعمودين التاليين دفعات في اعمده مختلفة.xlsm

تمام اشكرك اخي الكريم