midoboha

السلام عليكم محتاج مساعدة عشان اخلص البرنامج ضروري تفضلا منكم محتاج ال ComboBox1.RowSource تبقي التعبئة فيه ديناميكي مع الفلتر من combobox2 ده الاهم وفيه طلب تاني بعد اذنكم حاولت في ورقة البحث ايجاد خلايا في صف اسفل القيمة بعد ال vlookup عشان اجيب اجمالي المديونية ولكن للاسف رقم الضف بيبقي ديناميكي حسب عدد الفواتير ازاي اخليه ينزل لرقم الصف ديناميكي لحد اليمة حاولت بدالة match index بس معرفتش وشكرا اخطارات.xlsm

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

Sheets("tazalom").Activate III = 2 Do Until Sheets("tazalom").Cells(III, "A").Text = "" If ComboBox3.Text = Sheets("tazalom").Cells(III, "A").Text Then Cells(III, "A").Activate End If شكرا جزيلا سيدى الكريم ولكن عند تغيير اسم الورقة لا يعمل اذا كان هناك اكثر من ورقة æÑÞÉ13.Activate III = 2 Do Until æÑÞÉ13.Cells(III, "A").Text = "" If ComboBox3.Text = æÑÞÉ13.Cells(III, "A").Text Then Cells(III, "A").Activate إلى tazalom.Activate III = 2 Do Until tazalom.Cells(III, "A").Text = "" If ComboBox3.Text = tazalom.Cells(III, "A").Text Then Cells(III, "A").Activate Sheets("tazalom").Activate III = 2 Do Until Sheets("tazalom").Cells(III, "A").Text = "" If ComboBox3.Text = Sheets("tazalom").Cells(III, "A").Text Then Cells(III, "A").Activate End If شكرا جزيلا سيدى الكريم ولكن عند تغيير اسم الورقة لا يعمل اذا كان هناك اكثر من ورقة بمعنى لو عملت ورقة تانية للبحث فيها يظل ال range مع الورقة القديمة æÑÞÉ13.Activate III = 2 Do Until æÑÞÉ13.Cells(III, "A").Text = "" If ComboBox3.Text = æÑÞÉ13.Cells(III, "A").Text Then Cells(III, "A").Activate إلى tazalom.Activate III = 2 Do Until tazalom.Cells(III, "A").Text = "" If ComboBox3.Text = tazalom.Cells(III, "A").Text Then Cells(III, "A").Activate

شكرا جزيلا سيدى الكريم ولكن عند تغيير اسم الورقة لا يعمل اذا كان هناك اكثر من ورقة æÑÞÉ13.Activate III = 2 Do Until æÑÞÉ13.Cells(III, "A").Text = "" If ComboBox3.Text = æÑÞÉ13.Cells(III, "A").Text Then Cells(III, "A").Activate إلى tazalom.Activate III = 2 Do Until tazalom.Cells(III, "A").Text = "" If ComboBox3.Text = tazalom.Cells(III, "A").Text Then Cells(III, "A").Activate

شكرا جزيلا سيدى الكريم ولكن عند تغيير اسم الورقة لا يعمل æÑÞÉ13.Activate III = 2 Do Until æÑÞÉ13.Cells(III, "A").Text = "" If ComboBox3.Text = æÑÞÉ13.Cells(III, "A").Text Then Cells(III, "A").Activate إلى tazalom.Activate III = 2 Do Until tazalom.Cells(III, "A").Text = "" If ComboBox3.Text = tazalom.Cells(III, "A").Text Then Cells(III, "A").Activate جربت تغيير اسم الورقة 33 - Copy.rar

السلام عليكم قد ساعدتونى قبل ذلك فى كود البحث هذا وكان يعمل جيدا ولكن عند تغييره لم يعد يعمل فأنا اريد ان ابحث فى نفس اليوزرفورم على اساس 2 كومبو بوكس كل واحد له range مختلف وشئ اخير لو سمحتم اريد عند البحث بالاسم لو كان هناك اسمان بجانب بعض فى نفس الخلية ان يكون البحث داخلهما وليس اول اسم فقط او اول احرف فقط 33.rar

شكرا لك

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

شكرا على الاهتمام ولكن لم يعمل في المرفقات تجربتى لو تساعدنى بها أكون شاكر al.rar

في هذا الملف قمت بكل شيء اريده ولكن ىنقصنى اهم خطوة عند الكتابة في اليوزر فورم تكتب وتطبع في الورقة الاولى ثم ترحل في الورقة الثانية في النطاق من الخلية 6 ناحية اليسار al.rar

ملحوظة ان الترحيل ناحية اليسار يبدا من الخلية a6 to a13

جربت هذا الكود ولكن يتم الترحيل في نفس الخانات دون التحرك لليسار x = Range("a6" : "a13").End(xltoleft).column Range("a6" & x + 1).Offset(0, 1).Value = TextBox2.Value Range("a7" & x + 1).Offset(0, 3).Value = TextBox3.Value Range("a8" & x + 1).Offset(0, 5).Value = TextBox6.Value

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

New.rar هذا نموذج مماثل لملف عملى كود البحث لا يعمل

اريد المساعدة فى كود لإظهار رسالة تنبيه عند فتح الملف بانتهاء تاريخ محدد تكون popout الخانة المطلوب العمل عليها هى خانة الى العمود x k2 mido.rar