الخبراء الكرام
السلام عليكم ورحمة الله تعالي وبركاته
اولا اشكركم كل الشكر فيما قمتم به من مسعادتنا وتدريبنا من خلال هذا المنتدي العظيم وجعلها الله في ميزان حسناتكم وجعلها صدقة علم جارية ان شاء الله
واجهتني مشكلة مزعجة في الحقيقة وهي عند ترحيل البيانات الي ورقة العمل المخصصة بواسطة اليوزرفورم وهي:
لدي ملف اكسل به عدد 5 اوراق عمل
و عدد4 يوزرفورم
لاحظت ان اليوزر فورم لا يقوم بالترحيل للورقة المعنية الا عندما تكون الورقة المعنية هي اخر ورقة عمل قد قمت بفتحها
مثلا معرف علي ورقة العمل 2UserFormCards
4 معرف علي ورقة العمل UserFormCHQ
فاذا كنت فاتح ورقة العمل 4 وذهبت لليوزرفور يقوم بترحيل البيانات الي الورقة الخاطئة وهي 4UserFormCards
اي بمعني لا يتم الترحيل للورقة الصحية الا عندما تكون اخر ورقة عمل قمت بفتحها
مع العلم باني واضع الكود الخاص بتنشيط الصفحة في كل يوزرفورم عند الترحيل وهو
sonsat = Sheets("Data2").Cells(Rows.Count, 1).End(xlUp).row + 1
مرفق ملف العمل
ارجو مساعتدتي ولكم مني جزيل الشكر والتقدير
Copy.rar