رجب جاويش

بالنسبة لطلب أخى ابراهيم بخصوص عدم تكرار البيانات وعدم وجود فراغات يكون الكود كالآتى Private Sub UserForm_Initialize() Dim Obj As Object, cl Set Obj = CreateObject("Scripting.Dictionary") LR = Cells(Rows.Count, 1).End(xlUp).Row Set Rng = Range("A2:A" & LR) For Each cl In Rng If Not IsEmpty(cl) And Not Obj.Exists(Trim(cl)) Then Obj.Add Trim(cl), 1 End If Next For Each Item In Obj ComboBox1.AddItem Item Next Set Obj = Nothing End Sub

أخى الحبيب / ابراهيم جزاك الله كل خير

أخى الفاضل جرب المرفق تفقيط.rar

أخى الفاضل / شرقاوي جزاك الله كل خير

أخى الفاضل / قحطان82 جزاك الله كل خير

أخى الفاضل اضطريت لإلغاء الدمج لأنه يعارض عمل الكود

أخى الفاضل جرب المرفق اجمالي عماله العقاد الثالث نهائي.rar

عذرا أخى تفضل كود ترحيل فاتورة.rar

شكرا جزيلا أخى الفاضل وجزاك الله كل خير

تم الحل باستخدام دالة COUNTIF =COUNTIF(F6:F12;"لم تبدأ الأجازة بعد") وبالطبع توجد طرق أخرى

تفضل أخى لحساب عدد ظهور كلمة في عمود.rar

أخى الحبيب / حمادة عمر كود رائع جدا تسلم ايديك

أخى الفاضل فكرة الكود فى السطر التالى If Not IsEmpty(Cells(i, 1)) Then ComboBox1.AddItem Cells(i, 1) حيث أنه اذا كانت الخلية غير فارغة تضاف كعنصر فى الـ ComboBox

أخى الحبيب / حمادة عمر شكرا جزيلا على كلماتك الطيبة وجزاك الله كل خير

أخى الفاضل تكون الأكواد كالآتى Private Sub UserForm_Initialize() With ComboBox1 For i = 2 To 8 If Not IsEmpty(Cells(i, 1)) Then ComboBox1.AddItem Cells(i, 1) Next End With End Sub Private Sub UserForm_Activate() With ComboBox2 For i = 2 To 8 If Not IsEmpty(Cells(1, i)) Then ComboBox2.AddItem Cells(1, i) Next End With End Sub

أخى الفاضل يكون الجزء الخاص به فى الكود كالآتى With ComboBox2 .Column = Range("liste2").Value End With

أخى الحبيب / حمادة عمر مشاركاتك دائما اضافة قيمة للموضوع

أخى الفاضل جرب المرفق كود ترحيل فاتورة.rar

أخى الفاضل جرب المرفق الربط بين البيانات.rar

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

أخى الفاضل / المحامى خالد لا داعى للإعتذار أخى الفاضل وشكرا جزيلا لك على سرعة التواصل

أخى الفاضل / عبد الرحمن أرفق ملف به مثال لما تقول حتى يمكن التجربة عليه

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

أخى الفاضل تم اضافة الجزء التالى الى الكود ليأخذ اسم الجدول من الخلية A2 Me.Label1 = Range("A2")

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