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