saad abed

ياسر العربى اخى ياسر شيء جديد فعلها عبدالله باقشير بالبحث في اللست جزاك الله خيرا اخى الله عليك

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

اخى مختار شهادتى لك مجروحه لانك من الناس اللى اتتبع كتابتها ولو ردود الشكر والله يا اخى موضوعاتك وكتاباتك مفيده جدا جزاك الله خيرا ننتظر منك المزيد وفقكم الله

اخى ياسر السلام عليكم زدنا اخى ياسر جزاك الله خيرا

الف مبروك اخى سليم والى الامام

رائئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئع

اخى عمر كل عام وانتم بخير بارك الله لك فىك وفى اولادك وكل من تحب زدنا فنحن نريد ان نرتوى من العلم

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

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

اخى عمر اضافة جديده لابداعات السابقة جزاك الله خيرا

اخى عمر الحسينى اعمالك رائعة واكواد مدروسه لذلك اجد فيها سرعة جزاك الله خيرا

اخى عمر السلام عليكم بارك الله بك وبجهودك زادك الله علما

اخى عمر ابداعاتك متعدده ررررررررررررررررررررائئئئئئئئئئئئع جزاك الله خيرا وفقكم الله

Private Sub saad1_Click() 'On Error Resume Next If saad1.Value = True Then With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("s2:s20").Value End With Else: saad1.Value = False Me.ListBox2.Clear End If End Sub '============================ '============================ Private Sub saad2_Click() If saad2.Value = True Then With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("v2:v20").Value End With Else: saad2.Value = False Me.ListBox2.Clear End If End Sub '============================ '============================ Private Sub saad3_Click() If saad3.Value = True Then With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("t2:t20").Value End With Else: saad3.Value = False Me.ListBox2.Clear End If End Sub '============================ '============================ Private Sub saad4_Click() If saad4.Value = True Then Me.ListBox2.Clear With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("u2:u20").Value End With Else: saad4.Value = False Me.ListBox2.Clear End If End Sub '============================ '============================ Private Sub saad5_Click() If saad5.Value = True Then Me.ListBox2.Value = "" With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("w2:w20").Value End With Else: saad5.Value = False Me.ListBox2.Value = "" End If End Sub '============================ '============================ اشكركم تم التصحيح وعمل بشكل صحيح

Private Sub checkbox1_Click() 'On Error Resume Next If CheckBox1.Value = True Then With sheet3.ListBox3 .AddItem .List = Sheets("data").Range("s2:s20").Value End With CheckBox1.Value = False sheet3.ListBox3.List = "" End If End Sub الهدف من الكود كلما كان شيك بوكس رقم1 ترو اصبح مجال لست بوكس من مجال معين شيك بوكس رقم2 ترو اصبح مجال لست بوكس من مجال معين شيك بوكس رقم3 ترو اصبح مجال لست بوكس من مجال معين حتى شيك بوكس رقم6 ترو اصبح مجال لست بوكس من مجال معين الكود يعطى خطا عند .AddItem .List = Sheets("data").Range("s2:s20").Value

اخى ياسر كل عام وانتم بخير

استاذ عمر استخدم اوفيس216 القوائم عربية والصفحات من اليمن الى اليسار الاداة تظهر معى فى الادوات لكنها لا تظهر فى الفورم

اخى ياسر حاولت اضافة الاداة لا تقبل الاضافة تظهر بالماوس وترفض الاضافة

اخى ياسر استخدم2016 ويندز7 64بت ظهرت الاداة فى الادوات ولكن الفورم لا يعطى اخطاء ولكن لاتظهر مع الفورم حتى داخل vba هل هناك حل

كل عام وانت بخير ا/عادل وفقكم الله

اخى عبدالسلام الف الف مبروووووووووووووووووك الى الامام وفقكم الله

كل سنة وانتم بخير اخى ضاحى كل سنة وكل المشرفين والمراقبين والاخبراء والاعضاء بالف خير رمضان كريم اللهم بلغنا رمضان

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

اخى انس انت تعلم ان اى برنامج عبارة عن اصدارات فاخرج بالاصدار الاول ver1 ومن الاصدار الاول ستجد افكار من الناس يطالبوك باضافتها ليكون بعده الاصدار الثانى بارك الله فيك

اخى انس اعمالك قيمة بارك الله فيك اتاخرت علينا بالبرنامج المحاسبى