استفسار بخصوص هذا الكود وشرح كامل ليه لتطبيقه على اكثر من فكرة لدي اريدها

[خالد الشيخ]

السلام عليكم  ..انا اريد ماكرو اضعه ثابت لدي في اكثر من ملف
هدفه الاساسي  هو  اني افتح ملف خارجي واخذ منه بيانات واضعها في شيت معين في خلايا معينة تبدأ ب A1    كيف يكون ذلك
انا وجدت هذا الماكرو لملف معين اخر   ، طبعا هو غير كامل  ، ولكن ممكن حد يساعدني ان اكمل الفكرة اللي اريدها بارك الله فيكم
 

ss = Application.ActiveWorkbook.Name
If Application.FileDialog(msoFileDialogFilePicker).Show = 0 Then Exit Sub
gg = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
gg2 = Mid(gg, InStrRev(gg, "\") + 1, Len(gg) - InStrRev(gg, "\"))
    
    Workbooks.Open Filename:=gg
    Range("A1").Select
    
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Windows(ss).Activate
    Sheets(1).Select
    Sheets(1).Range("A1").Select
    rr = Selection.SpecialCells(xlLastCell).Row
    Cells(rr + 1, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    If Range("a1") = "" Then Range("a1").EntireRow.Delete
.
.
.
.
.
.
.
.
.

 

[هانى محمد]

أيوه .. هل المطلوب منى أن أضعه بملف ؟!!! أم هذا مطلوب منك انت.. وانت من تريد هذا فلا يمكن المساعدة بدون رفع الملف ووضع به الكود وشرح ما تريده بالضبط ؟!!!

[عبدالفتاح في بي اكسيل]

@خالد الشيخ لا فائدة من ان تنشر كود  ناقص   . اجدر بك  انك  وضعت  ملفات   ووضعت  النتائج  الذي  ترجوها  بدلا  من  وضع  كلام  عامي   لا  احد  سينظر  اليه  . 

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

عملية استيراد  البيانات  تحتاج  الى تفاصيل  دقيقة   وليس   في  كل  مرة  تضيف  تفصيل  جديد  حتى يعلم  ما  تريد . لذا  لا اعتقد  ان  احد  سيخوض  في  مواضيع تقاصيلها شحيحة للغاية .

تذكر  دائما  قبل  ان  تنشر  موضوع  وجب  عليك  وضع  تفاصيل  كاملة  وغير  ناقصة حتى تحصل  على فرصة اكبر للمساعدة

تحياتي .