مشكلة عند الترحيل من اليوزرفورم للشيت

[almos7rati]

الخبراء الكرام

السلام عليكم ورحمة الله تعالي وبركاته

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

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

لدي ملف اكسل به عدد 5 اوراق عمل

و عدد4 يوزرفورم

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

مثلا معرف علي ورقة العمل 2UserFormCards

4  معرف علي ورقة العمل UserFormCHQ 

فاذا كنت فاتح ورقة العمل 4 وذهبت لليوزرفور يقوم بترحيل البيانات الي الورقة الخاطئة وهي 4UserFormCards

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

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

sonsat = Sheets("Data2").Cells(Rows.Count, 1).End(xlUp).row + 1

 

مرفق ملف العمل

ارجو مساعتدتي ولكم مني جزيل الشكر والتقدير

 

Copy.rar

[ابو علي و سدرة]

اخى الفاضل

لابد من تعريف الشيت المراد الترحيل اليه كمتغير قبل الترحيل

وتحديد كل control

فى اليوزر فورم هايرحل لاى مكان فى اى شيت بالتحديد

فى المرفق انا حليت لك مشكلة اول 2 يوزر فورم

UserFormCards  و UserFormCHQ 

ارجع للكود لفهم التغير

Copy.rar

[almos7rati]

مشكووووووووووووور شديد اخ ابو علي

جزاك الله عنا كل خير