بارك الله في هذه الجهود، مجرد اقتراح في آخر مشكلة: ممكن ان نضع الشرط بحيث إذا كان عدد الخلايا الفارغة في الصف يساوي صفر عندها نقوم بالترحيل والا يحذر البرنامج المستخدم، مثلا: If Application.WorksheetFunction.Countblank(Range("A2:F2") = 0 then نضع كود الترحيل هنا Else Msgbox "الرجاء تعبئة البيانات الغير مكتملة" ُEnd If
@EXCELVBAisAmazing9 жыл бұрын
اخى الكريم شكرا لك لكن نحن نستخدم اسهل الطرق وابسطها فى توصيل المعلومة
@mohamedalshabrawe81739 жыл бұрын
السلام عليكم ورحمة الله وبركاتة جزاك الله خيرا على هذة الدورس الجميلة جدا والمفيدة وبعد هناك مشكلة صغيرة عندما ادخل بيانات خطا فى التاكست الخاص بالتاريخ يظهر خطا بة امر ديباك واذا ضغط علية اليوزر سوف يرجع الى محرر الاكواد ودة المفروض ميظهرش للمستخدم ارجو معرفة الحل وشكرا