وش الخطأ في كود النسخ واللصق في المودل - Module

[بن خليفه]

المودل الأول يعمل والثاني لا يعمل

الأول يقوم بنسخ من الشيت3 إلى الأول حسب الرينج

الثاني يعطيني خطأ وهو يقوم بالنسخ من الشيت 2 إلى 3

الخطأ في اللون الأحمر !!!!

 

Sub taj_click()
Sheets("Taj").Select
     Range("B5:H53").Select
     Selection.Copy
     Sheets("Report").Select
     Range("B8").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
        
    End Sub
   
Sub Maint_click()
Sheets("Maint").Select
     Range("B5:H16").Select
     Selection.Copy
     Sheets("Report").Select
     Range("B69").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False

 

        
End Sub

 

 

 

 

تم تعديل يونيو 19, 2016 بواسطه بن خليفه
العنوان

[أبو حنــــين]

غير الكود السابق بهذا الكود

 

Sub Maint_click()
      
Sheets("Maint").Range("B5:H16").Copy
Sheets("Report").Range("B69").PasteSpecial (xlPasteValues)

End Sub

 

[بن خليفه]

الخطأ صار في السطر الثاني

 

Sub Maint_click()

Sheets("Maint").Range("B5:H16").Copy

Sheets("Report").Range("B69").PasteSpecial (xlPasteValues)

End Sub

[أبو حنــــين]

تأكد من كتابة اسم الشيت  Report

[بن خليفه]

متأكد

مع العلم تم تحويل الكود الأول ونجح والثاني برضه يعطيني خطأ ؟؟؟؟!!!!!!

 

مرفق الملف

Dukka Phone.rar

[أبو حنــــين]

ربما هناك دمج في الخلايا

تم تعديل يونيو 19, 2016 بواسطه أبو حنــــين

[بن خليفه]

الله يعطيك العافية يا غالي ، وجدت الخطأ

المفترض B59 وليس B69

لأني مسوي اخفاء

أنا اسف لأني تعبتك معي

[أبو حنــــين]

الحمد لله