الأخ الفاضل أبو تريكة
جرب الكود بهذا الشكل
Sub GetData_Example3()
GetData ThisWorkbook.Path & "\1.xlsx", "1", _
"A1:t26", Sheets("1").Range("A1"), False, True
GetData ThisWorkbook.Path & "\2.xlsx", "1", _
"A1:t26", Sheets("1").Range("A27"), False, True
GetData ThisWorkbook.Path & "\3.xlsx", "1", _
"A1:t26", Sheets("1").Range("a53"), False, True
End Sub
تم تغيير كلمة True قبل الأخيرة إلى False لأنه بارامتر يتعامل مع العنوان .. فإذا كان للبيانات عنوان في الملف المراد جلب البيانات منه .. جعلت القيمة True
أما إذا لم تكن البيانات لها عنوان فتقوم بجعل القيمة False
أرجو أن تكون تلك النقطة هي حل المشكلة
تقبل تحياتي