تصحيح خطاء فى كود

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام والساده الافاضل

ارجو المساعده فى الاتى :-

تم عمل كود يقوم بنسخ محدتوى محدد ولصقه فىشيت بداخل ملف اخر  ( TIME SHET ZAYED )

والكود يعمل بشكل ممتاز 

المطلوب ان يعمل الكود  حتى وان لم يكن الملفالمراد نقل البيانات اليه مفتوح ( TIME SHET ZAYED)

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

جزاكم الله كل الخير

Sub zayed_allaw()
    Application.ScreenUpdating = False
    Range("A1:X19").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Windows("TIME SHET ZAYED.xlsx").Activate
    ActiveWindow.SmallScroll Down:=-18
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows("TIME SHEET TAREK EK 2017.xlsb").Activate
    Application.CutCopyMode = False
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

 

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي (لم أجربه لأنه لا يوجد ملف مرفق) ،والطلب غير واضح حيث يجب تحديد اسم المصنف الحالي واسم ورقة العمل والنطاق المطلوب التعامل معه ، وكذلك المصنف الآخر المطلوب نسخ البيانات إليه وورقة العمل والنطاق المطلوب نسخ البيانات إليه ...

عموماً جرب الكود وغير ما يلزم (المهم هنا الفكرة)

Sub zayed_allaw()
    Const strInput = "TIME SHET ZAYED.xlsx"
    
    Application.ScreenUpdating = False
        ThisWorkbook.Sheets("Sheet1").Range("A1:X19").Copy
        
        On Error Resume Next
        Set wbk = Workbooks(strInput)
        If wbk Is Nothing Then
            Set wbk = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & strInput)
            
            If wbk Is Nothing Then
                MsgBox strInput & " Not Found!", vbCritical
                
            End If
        End If
        
        Windows("TIME SHET ZAYED.xlsx").Activate
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                      :=False, Transpose:=False
        Range("A1").Select
        Windows("TIME SHEET TAREK EK 2017.xlsb").Activate
        Application.CutCopyMode = False
        Range("A1").Select
    Application.ScreenUpdating = True
End Sub

 

[محمود_الشريف]

أخى فى الله 

وأستاذى القدير // ياسر خليل 

عن جد

روعاتك يا أبو البراء

أنت بحق برنس 

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

 

الاخ العزيز ياسر .... جزاك الله حيرا على وقتك

فعلا دائما ما اقع فى نفس الخطاء ... ععدم توضيح الامر بشكل وافر

تقبل عزرى

اخى الحبيب ياسر 

1- الملف المراد نقل البيانات منه TIME SHEET TAREK EK 2017 من الشيت Zayed Allaw  النطاق من X19 : A1

2- الملف المراد نقل البيانات اليه Zayed Allaw Cairo فى  الشيت Zayed Allaw  الى النطاق من X19 : A1 

والملفين موجودن فى فولد واحد فى 

جزاك الله كل الخير .. 

New folder (2).rar

[ياسر خليل أبو البراء]

وعليكم السلام

مشكور على كلماتك الطيبة أخي وحبيبي في الله محمود الشريف

الأخ أبو حنين أعطيتك الكود وكان يجب تغيير ما يلزم حسب المعطيات (حاول دراسة الكود ستجد أن الموضوع بسيط .. يقتصر الآن فقط على الإشارة لكل مصنف (من وإلى )

وعلى حسب المعطيات التي تفضلت بها جرب الكود التالي (يوضع الكود في موديول عادي في المصنف المسمى TIME SHEET TAREK EK 2017)

Sub zayed_allaw()
    Dim wbk As Workbook
    Const strInput = "Zayed Allaw Cairo.xlsx"

    Application.ScreenUpdating = False
        ThisWorkbook.Sheets("Zayed Allaw").Range("A1:X19").Copy
    
        On Error Resume Next
        Set wbk = Workbooks(strInput)
        If wbk Is Nothing Then
            Set wbk = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & strInput)
    
            If wbk Is Nothing Then
                MsgBox strInput & " Not Found!", vbCritical
            End If
        End If
    
        wbk.Sheets("Zayed Allaw").Range("A1").PasteSpecial xlPasteValues
    
        ThisWorkbook.Sheets("Zayed Allaw").Activate
        Range("A1").Select
        
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

 

الاخ العزيز ياسر .... جزاك الله خيرا  على وقتك

تقبل شكرى ووافر تحياتى

 

السلام عليكم

 

الاخ العزيز ياسر .... جزاك الله خيرا  على وقتك

تقبل شكرى ووافر تحياتى

 

[ياسر خليل أبو البراء]

وعليكم السلام أخي العزيز أبو حنين

وجزيت خيراً بمثل ما دعوت لي وزيادة

والحمد لله الذي وفقنا لتصحيح الخطأ في الكود ...

 

الخطأ وراد لا محالة ، وكلنا ذو خطأ .. حاول في المرات القادمة أن يكون عنوان الموضوع معبر عن الهدف من الموضوع

كأن تقول مثلاً في حالة موضوعنا هذا : "نسخ بيانات إلى مصنف سواء أكان مغلق أو مفتوح"
ويفضل أن تضع بعض الصور الاسترشادية لتسهيل المهمة على من يريد تقديم المساعدة

تقبل تحياتي