moodyfy

الاستاذ حسين مامون تحياتى لشخصك الكريم مزيد من الثناء والشكر لحضرتك لما تقدمة من مساعدات وحلول اسال الله العلى العظيم ان يجزيك خيرا على ما تقدمة

السلام عليكم تحياتى لحضراتكم اريد تسمية تلقائية لعدد 5 CommandButton بحسب القيم الموجودة فى الخلايا b20 ، b17 ، b14 ، b11 ، b8 بحيث أن اي تغيير يحدث فى قيمة تك الخلايا يتم تلقائى فى قيم CommandButton ولسيادتكم جزيل الشكر نموذج.xlsm

تم ايجاد الحل بالكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Dim cl As Range Set rng = Range("c19:c33") For Each cl In rng If cl.Value = 0 Then cl.EntireRow.Hidden = True Else cl.EntireRow.Hidden = False End If Next cl End Sub

السلام عليكم تحية احترام وتقدير لحضراتكم قمت بانشاء ورقة لحساب السرقات يتم ترحيل البيانات منها الى تقرير الضبطية ( ورقة 20) اريد فى ورقة الضبطية ان يتم اخفاء تلقائى للصفوف من 19 الى 33 بشرط ان تكون الخلايا التى تقع فى المدى ( نوع الوحدة ) c19:c33 تساوى فراغ وان يتم اظهارها تلقائى بمجرد التعديل فى ورقة الحسابات اذا لم يتحقق هذا الشرط واسف للاطالة ... ومرفق لسيادتكم ملف العمل السرقات 2021.xlsm

الاستاذ حسين مامون كل الشكر والتقدير لحضرتك امنياتى لحضرتك بالتوفيق والنجاح

شكرا لحضرتك استاذى الكريم تم تعديل الكود وتم العمل هل به خطا Private Sub TextBox1_Change() Dim ws As Worksheet: Set ws = Sheets("æÑÞÉ1") Dim lr, x lr = ws.Cells(Rows.Count, 3).End(3).Row For x = 2 To lr If TextBox1.Text = ws.Cells(x, 3).Text Then TextBox2.Value = ws.Cells(x, 4).Value TextBox3.Value = ws.Cells(x, 5).Value TextBox4.Value = ws.Cells(x, 6).Value ComboBox1.Value = ws.Cells(x, 7).Value Exit For End If Next x If TextBox1 = "" Then TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" ComboBox1.Value = "" End If End Sub جزاكم الله كل خير

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

المشكلة الاولى هى اريد جعل قيمة خلية j8 فى ورقة 2 تساوى قيمة كومبوبوكس داخل يوزر فورم 7. بحيث عند تغيير عناصر قائمة الكومبو بوكس تتغير مباشرة قيمة الخلية داخل الشيت المشكلة الثانية قمت بانشاء فورم 1 فى برنامج الاكسل يقوم واضافة وترحيل البيانات الى ملف الشيت ورقة 1 ويقوم text box1 ( رقم الحساب ) بعمل استعلام داخل الشيت للبحث في العمود الخاص برقم الحساب لمعرفة رقم الحساب المراد اضافتة موجود مسبقا ام لا في شيت العمل المشكلة هي صيغة رقم الحساب . فمثلا ارقام الحساب التى اعمل عليها تكون بصورة 10/20/100/0 لا يقوم بجلب البيانات من الشيت مع العلم بان رقم الحساب موجود فعلا مع العلم ان الكود يعمل اذا كان رقم الحساب ( عدد صحيح) متل 10000 الكود المستخدم Private Sub TextBox1_Change() lr = WorksheetFunction.CountIf(Range("c2:c10000"), Val(TextBox1.Value)) If TextBox1.Value <> "" And lr = 1 Then TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 2, 0) TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 3, 0) TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 4, 0) ComboBox1.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 5, 0) Else TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" ComboBox1.Value = "" End If End Sub ارجو المساعدة ولكم جزيل الشكر للعلم اسم المستخدم 550 كلمة المرور 123 25399582_ver4.xlsm