السلام عليكم ورحمة الله وبركاته  ..الاخوة الافاضل  ..برجاء المساعدة 

في الملف المرفق في شيت 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

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