ارجوا التكرم بالمساعدة في قراءة اخر رصيد في التكست بوكس

[gamalin]

السلام عليكم ورحمة الله وبركاته

لم اتمكن من تعديل الموضوع لذا رجاء المساعدة في 

1 في الملف المرفق هل يمكن الا يكرر الكمبوبوكس القيم المكرررة في العمود

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

3- اريد ات تأتي الخانة في الفورم برصيد الحساب المختار بواسطة الكمبوبوكس  اخر رصيد له 

ارجو التكرم بالمساعدة من فضلكم 

box.xlsm

تم تعديل يونيو 18, 2022 بواسطه gamalin

[عبدالفتاح في بي اكسيل]

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

لا اعتقد  ان  الكومبوبوكس  ذو  فائدة  في  هذه  الحالة 

الكومبوبوكس  مصمم  لمجموعة  عناصر  مختلفة 

 

[gamalin]

استاذي الفاضل 

اولا وقبل اي شيء شكرا لمرورك الكريم  واستفسارك الذي قد يوضح ما عجزت عن شرحه 

1- الكمبوبوكس مهم لاني استعرض مجموعة بيانات او مجموعة اسماء من شيت بوكس عمود d

وهذه الاسماء تكون متكررة عفوا لو كان الملف به اسم واحد لكن هذا ليس الطبيعي فهذا مثال للتجربة فقط لكن سيكون بالملف العديد من الاسماء والكثير من العمليات 

لهذا سألت اولا عن وقف التكرار في الكمبوبوكس و امكانية اضافة شرط للقائمة المنسدلة فيه 

 

[عبدالفتاح في بي اكسيل]

لنفترض  ان الكومبوبوكس   لديك  مجموعة  من  الاسماء  واخترت  اسم  كما  موجود  عندك  ولو قلنا   ان  لديك  في  اخر  صف  اسم  مختلف  واخترت  الاسم  الاول  سوف  يجلب  الرصيد  الاخير  لاسم اخر 

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

قد  تجد  شخص  اخر  يفهم  موضوعك 

رجاء  لا تبعث  رسائل  خاصة ( يجب  ان  تكون  جميع  النقاشات مفتوحة حتى يستفيد  الاعضاء  الاخرين  المتطلعين  على  موضوعك)

تحياتي

[gamalin]

عذرا على الرسالة الخاصة وان كانت فقط لسرعة التواصل 

استاذي الكمبوبوكس بيجيب الاسماء من عمود d في شيت بوكس والمحتوي على اسم الممول  ويوجد في عمود i رصيد متحرك لكل حساب لكل ممول بيجمع وفقا للاسم 

واريد عند اختيار الممول س مثلا يظهر الرصيد في اخر سطر تضمن اسم الممول س 

ومرة اخرى معذرة على عطلتك ووقتك وشكرا لوقتك ومروك الكريم وانتظر ان يتواصل معي احد الاخوة لاوضح له اكثر ان كان ماوال الامر غامضا اشكرك

[gamalin]

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

بقي موضوع التكرار و الشرط شاكر لكم جميعا

[gamalin]

السلام عليكم ورحمة الله وبركاته

بعد اذن استاذنا علي احمد بالاشارة للموضوع السابق المغلق 

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

بالملف فورم يحتوي على كمبوبوكس وتكست بوكس المطلوب 

جعل الكمبو بوكس يجلب القيم من عمود 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

[عبدالفتاح في بي اكسيل]

جرب هذا  الملف  واعلمني  كيف  يعمل  معك  ..تحياتي 

عدم وجود تكرارات في الكومبوبوكس.xlsm

[gamalin]

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

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

وافر التحية والاحترام لكم جميعا شرفني مروركم الكريم ودعمكم

عدم وجود تكرارات في الكومبوبوكس.xlsm

[عبدالفتاح في بي اكسيل]

لم  افهم  عليك ,   هل  تريد  تغيير عناصر  الكومبووبكس  للعمود     C بدلا  من  D ام   ماذا ؟  طبق  ما  يدور  في  ذهنك  وقم  بنشره  داخل  الملف .

[gamalin]

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

والكمبوبوكس يقرأ القيمة الموجودة في العمود d 

والمطلوب عرص في الكمبوبوكس القيم في العمود d والتي بجوارها فقط كلمة cust في العمود c 

هل وضحت 

والنتيجة هي استبعاد قيمة cl5 من العرض في الكمبوبوكس لان القيمة المجاورة لها هي supp

[عبدالفتاح في بي اكسيل]

اعتقد  اني  فهمتك  الان 

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

Private Sub UserForm_Initialize()
Dim i As Long
Dim not_matched As String
not_matched = "cust"

For i = 2 To 1000
    If Range("c" & i) = not_matched Then
        If WorksheetFunction.CountIfs(Range("D2:D" & i), Range("D" & i), Range("C2:C" & i), not_matched) = 1 Then
            Me.Combobox1.AddItem Range("D" & i)
        End If
    End If
Next i

End Sub

 

[أسامة البراوى]

السلام عليكم

جرب الملف المرفق . باضافة كمبو بوكس للعمود C 

بالاختيار يقوم بملء الكمبو بوكي الاخر بناءا على اختيارك ..ثم يقوم بالحساب بناء على الاختيار

ComboBox.xlsm

[gamalin]

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