اسامة القورتاوي قام بنشر أكتوبر 7, 2019 مشاركة قام بنشر أكتوبر 7, 2019 اساتذتي واخواني الافاضل السلام عليكم ورحمة الله وبركاته مرفق ملف المطلوب البحث عن بيانات الشركة اذا ادخلت اسم الشركة خلية G او رقم السجل خلية F شاكرين ومقدرين تعاونكم اخوكم اسامة Book3.xlsx رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 7, 2019 مشاركة قام بنشر أكتوبر 7, 2019 وعليكم السلام-تفضل لك ما طلبت بمجرد اختيار رقم السجل من القائمة المنسدلة Search.xlsx 4 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أكتوبر 7, 2019 مشاركة قام بنشر أكتوبر 7, 2019 و اتراء للموضوع وبعد اذن استاذي Ali Mohamed Ali جرب المرفق Book3.xlsm 1 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أكتوبر 7, 2019 أفضل إجابة مشاركة قام بنشر أكتوبر 7, 2019 جرب هذا الملف Book3_salim.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
اسامة القورتاوي قام بنشر أكتوبر 7, 2019 الكاتب مشاركة قام بنشر أكتوبر 7, 2019 الافاضل لكم كل الشكر والتقدير جزاكم الله خير الجزاء شكرا جزيلا رابط هذا التعليق شارك More sharing options...
اسامة القورتاوي قام بنشر أكتوبر 7, 2019 الكاتب مشاركة قام بنشر أكتوبر 7, 2019 السلام عليكم تم تعديل الملف واسف على ازعاجكم Book1.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 7, 2019 مشاركة قام بنشر أكتوبر 7, 2019 بالنسبة للــ CommandButton1_Click انا أفضل هذا الكود البسيط ولا لزوم لللتفتيش عن قيمته في كل الصفوف حيث ان دالة Match تعطينا اياه رأساً Private Sub CommandButton1_Click() Dim lr, i With Sheets("11") If ComboBox2 = "" Then Exit Sub lr = Application.Match(ComboBox2, .Columns(6), 0) For i = 1 To 4 Me.Controls("TextBox" & i) = _ .Cells(lr, "b").Offset(, i - 1) Next End With End Sub 1 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان