استفسار من مشرفينا

[matrex 30]

لماذا دائما في تجاهل من حضارتكم لكل مواضيعي ولا اجد اي رد واذا وجد اشعر كانه استهزاء 

وكل مشاكلي التي اعرضها  نادرا لما تتحل

عايز افهم يعني لو انا بعمل حاجة غلط ؟

[سليم حاصبيا]

صديقى

تم الرد على سؤالك بالاجابة
اته لا يمكن لأحد ان يضع لك 50 كود لاكثر من  50 تكست بوكس

لو كل كود اخذ 10 دقائق لوضعه (كي لا اقول أكثر) المسألة  يلزمها 8 ساعات

[matrex 30]

حضرتك انا مطلبتش كود لكل تكست بوكس

انا عايز تعديل زرار فقط

زرار تعديل البيانات يعمل علي شيت واحد فقط

عايزة شغال علي كل الشيتات

تم تعديل نوفمبر 21, 2020 بواسطه matrex 30

[سليم حاصبيا]

اذا كنت تريد المساعدة فعلاً ارفع ملف صغير نموذج  (3 نكست بوكس)
و منه تقتبس كل الأكواد لتضعها في الملف الأصلي

[matrex 30]

هحاول

[سليم حاصبيا]

قم بهذه التجربة

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

كما في الصورة

 

[matrex 30]

في الحالة دي هو هيعدل في الشيت المفتوح فقط 

انا كنت عندي المشكلة دي في البحث كمان بس شخص عزيز عليا ساعدني وعدل الكود ده واشتغلت

ws_sheets = ActiveWorkbook.Worksheets.Count
    
    For i = 3 To ws_sheets - 2
          sheet_name = ActiveWorkbook.Worksheets(i).Name
         
          With Sheets(sheet_name)

 

[سليم حاصبيا]

هو كذلك اذا لم يكن هنالك اخطاء اخرى

في حال ظهور اخطاء اقفل الملف دون Save

[matrex 30]

الفكرة ان مش ببقا عارف الشيت اللي في البيانات دي يعني انا عامل فورم للبحث عن الاسم هو يبحث كل الشيتات ويطلع البيانات المطابقة ويعرضها فا مش ببقا عارف الشيت اصلا

[سليم حاصبيا]

اضف هذه العبارة داخل المربع الأزرق كي نغرف في اي شيب ينم العمل

MsgBox   ActiveSheet.Name

[matrex 30]

وبعد ذلك افتح انا الشيت ده واعدل 

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

[سليم حاصبيا]

لا تفتج اي شيت لان  ActiveSheet يفتجة اوتومانيكياً

[matrex 30]

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