ابو القاسم

طلبك علي ما اعتقد Fatur(NEW).xlsm

الاستاذ سليم حاصبيا اذا اخفي Check Box فما فائدة وجود زر المسح و Check Box

اتفضل Fatur(NEW).xlsm

الاستاذ سليم حصبيا بسم الله ما شاء الله عليك وعلي هذا الابداع بارك الله فيك وفي ابداعك وزادك من العلم

' للاخفاء Me.CommandButton2.Visible = False ' للاظهار Me.CommandButton2.Visible = True

جرب ده بس ده مكان واحد للبحث بحث باي حرف.xlsx

اتمني يكون المطلوب ضريبة الدخل حسب الشرائح.xlsm

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

اخي العزيز تتاكد من ان الادخال موجود من عدمه بهذا الكود ws = sheets("اسم الصفحة") ird = WorksheetFunction.CountIf(ws.Range("a3:a32"), TextBox2.Value) 'ثم بعد ذلك ادخل الشرط if ird = 1 then 'اي انه موجود msgbox "البيانات موجودة مسبقا" exit sub elseif ird = 0 then 'البيانات غير موجودة 'ادخل الكود الذي تريد تنفيذة end if

جرب دة Ali_Hasn.xlsm

جرب كدة Ali_Hasn.xlsm

Workbooks("ااسم الملف بالامتدات").Sheets("اسم الورقة") وكمل زي ما انته عايز

اتمني يكون المطلوب فاتورة(5).xlsm

الكود به خطأ هو ايه المطلوب من الكود

اتمني يكون المطلوب ملف التوازيع (1).xlsm