الرجاء الافادة في ماكرو اوفيس 2003

[القصبي]

عندي ماكرو طباعة افيس 2003  يشتغل علي ويندوز xp اريد تشغيلة علي ويندوز 7 يعطيني مشكلة وهذا هوا الماكرو

الرجاء الافادة من خبراء الاكسل

 

Sub PRNT_ALL()
For S = 3 To 13
SH = Cells(S, 20)
If SH <> 0 And SH <> "" Then
Sheets(SH).PrintOut
End If
Next
 Sheets("بيانات العملاء").Range("A50:r50").Copy
   
   ER = Sheets("حفط المعاملة").Range("a55555").End(xlUp).Row + 1
    Sheets("حفط المعاملة").Range("A" & ER).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Range("A1,C30:S2:S29").ClearContents
    MsgBox "Êã ÍÝÙ ÇáÈíÇäÇÊ ", vbMsgBoxRight, "ÇáÍãÏááå"
 

[احمدزمان]

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

اخي القصبي

 

راجعت الكود واعتقد انه لا توجد مشكلة

 

ممكن توضح اين يقف الكود بالظبط

او ترفق ملف به الكود المتعطل

 

تحياتي

[القصبي]

اولا شاكر جدا للاهتمامك يا استاذ احمد

المشكلة عندي الماكرو شغال تمام علي ويندوز xp

عند تشغيلة علي ويندوز 7  بيطلع خطأ  (سهم اصفر علي كلمة For S = 3 To 13

 

[القصبي]

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

علي العموم الملف مهم جدا لذلك الرجاء ان نتكلم علي الخاص

[احمدزمان]

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

علي العموم الملف مهم جدا لذلك الرجاء ان نتكلم علي الخاص

و انا اعتقد ذلك ايضا

 

اظن و الله اعلم

انك محتاج تعريف المتغيرات

يعني اكتب السطر التالي في اول الكود

Dim S,SH,ER

واتمنى ان يشتغل الكود

[القصبي]

بالفعل اشتغل الكود ولاكن يطلع خطأ علي Sheets(SH).PrintOut

 

 

Sub PRNT_ALL()

Dim S, SH, ER
For S = 3 To 13
SH = Cells(S, 20)
If SH <> 0 And SH <> "" Then
Sheets(SH).PrintOut
End If
Next
 Sheets("ÈíÇäÇÊ ÇáÚãáÇÁ").Range("A50:Q50").Copy
   
   ER = Sheets("ÍÝÙ ÇáãÚÇãáÇÊ").Range("a55555").End(xlUp).Row + 1
    Sheets("ÍÝÙ ÇáãÚÇãáÇÊ").Range("A" & ER).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Range("A1,C30:S2:S29").ClearContents
    MsgBox "Êã ÍÝÙ ÇáÈíÇäÇÊ ", vbMsgBoxRight, "ÇáÍãÏááå"

End Sub