مساء الخير ارجو المساعده

[حمود الحارثي]

مساء الخير

 

يوجد معي ملف اكسل كبير وعندما حولت الملف الى كمبيوتر العمل صارت تظهر لي الصورة المرفقة في الماكر.

 

 

للعلم بان كمبيوتر العمل يوجد فيه اوفيس 2007

 

جهازي الابتوب يوجد فيه افيس 2013 والملف يعمل جيدا ولكن كثير بطئ الماكرو شغال فيه تمام التمام المهم شغال.

 

 

 

هل من الممكن افادتي ماذا يعني هذه الخطأ وهل من الممكن مساعدتي لحل هذه المشكله

Test.rar

[الجموعي]

أخي الكريم جرب هذا الكود

بالنسبة tsheet  ماذا تعني بها

Private Sub UserForm_Activate()
Dim ws As Worksheet
Set ws = Sheets("MASTER")
ws.Select
Application.ScreenUpdating = False
tsheet = ws.Name
Application.ScreenUpdating = True
End Sub

وحبذا لو أرفقت المرفق لتسهيل الأمر علينا

[حمود الحارثي]

صباح الخير استاذي

 

الافقة الملف في الملرفقات

 

الرجاء الذهاب على شيت ( New Grievance ) تحت عمود ( Staff No ) قم بالضغط على F1  وبعدها ستظهر لك شاشه قم باختيار رقم الموظف

 

في العمود ( Level1 ) قم بالضغط على F2 ونفس الطريقه .

 

 

في جهازي المحمول البرنامج يعمل جيداً ولكن في كمبيوتر العمل عند الضغط على F1 تظهر رساله بوجود خطا مثل الصوره المرفقه في الاعلاء

 

 

 

للعلم بان جهازي يوجد فيه اوفيس 2013 وكمبيوتر العمل يوجد فيه اوفيس 2007.

 

 

تحياتي

Grievance 4.rar

[ibn_egypt]

اخى الفاضل

 

مشكلتك وجود مسافة زائدة في اسم الشيت حيث ان اسم الشيت هو " NEW GRIEVANCE" هناك مسافة بعد حرف ال E الأخير، ولتصحيح الخطأ إما أن تقم بإزالتها يدويا .. او تغير في سطر الكود لتجعله هكذا

tsheet = Trim(ActiveSheet.Name)

مرفق ملفك بعد التعديل

 

تحياتي  

Grievance 4.rar