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

سيدى الكريم شكرا لك بس ممكن شرح بسيط للكود لو اردت عمله على ملف اخر كيف اغير ارقام العمود والصف هدا هو الملف المطلوب تعديله لم استطع تطبيق الكود عليه واسف لتعبك معى k2 mido.rar

السلام عليكم اريد المساعدة فى الترحيل الى صفحة اخرى حسب قيمة العمود g اذا كانت القيمة = مرضى يتم نسخ خانة الاسم والقسم و من و الى فى الصفحة مرضى تلقائيا وهكذا فى باقى القيم k1.rar

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

السلام عليكم شكرا لكم على مساعدتكم القيمة اريد كود لحذف الصف بناء على الاختيار من الكومبو بوكس واريد اذا اضفت اسم فى العمود b ان يكمل تلقائيا العمود a بالدالة sub total c new.rar

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

استاذ ياسر شكرا لاهتمامك اريد عند الضغط على ال OptionButton فتتغير الشيت يكون البحث فى هذه الشيت wq.rar

اريد كود تغيير مصدر الشيت vlookup للظهور فى اليوزر فورم Private Sub ComboBox1_Change() On Error Resume Next If ComboBox2.MatchFound = False Then MsgBox "اختر من القائمة": Exit Sub lr = ورقة1.Cells(Rows.Count, "A").End(xlUp).Row Dim a As Range Set ww = Application.WorksheetFunction Set a = ورقة1.Range("A2:z" & lr) Me.TextBox2.Value = ww.VLookup(Me.ComboBox2.Value, a, 2, False) Me.TextBox3.Value = ww.VLookup(Me.ComboBox2.Value, a, 3, False) Me.TextBox4.Value = ww.VLookup(Me.ComboBox2.Value, a, 4, False) Me.TextBox5.Value = ww.VLookup(Me.ComboBox2.Value, a, 5, False) Me.TextBox6.Value = ww.VLookup(Me.ComboBox2.Value, a, 9, False) Me.TextBox7.Value = ww.VLookup(Me.ComboBox2.Value, a, 10, False) Me.TextBox8.Value = ww.VLookup(Me.ComboBox2.Value, a, 7, False) Me.TextBox9.Value = ww.VLookup(Me.ComboBox2.Value, a, 8, False) Me.TextBox10.Value = ww.VLookup(Me.ComboBox2.Value, a, 11, False) Me.TextBox11.Value = ww.VLookup(Me.ComboBox2.Value, a, 13, False) Me.TextBox12.Value = ww.VLookup(Me.ComboBox2.Value, a, 26, False) Me.Image1.Picture = LoadPicture(TextBox12.Value) Me.TextBox13.Value = ww.VLookup(Me.ComboBox2.Value, a, 12, False) End Sub اريد عند تغيير الشيت عن طريق OptionButton يتغير lr = ورقة1.Cells(Rows.Count, "A").End(xlUp).Row Dim a As Range Set ww = Application.WorksheetFunction Set a = ورقة1.Range("A2:z" & lr) لتكون ورقة 2 او ورقة3

السلام عليكم ارجو المساعدة اريد البحث عن طريق الضغط على ال OptionButton تتغير الشيت ويكون البحث فى هذه الشيت ويتغير مصدر ال combobox wq.rar

بيفتح نافذة حفظ .xpe ثم run time eror