أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تصدير بيانات أوراق محددة الى ملف مُغلق

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم ورحمة الله وبركاته فى هذا الموضوع لدى مجلد رئيسى يحتوى على العديد من المل ..


موضوع مغلق

الصفحة 1 من 4 < 1 2 3 4 > الأخيرة »


19-09-2020 06:59 مساء
أبو سجده
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 328
 offline 

بسم الله الرحمن الرحيم
وبه نستعين
السلام عليكم ورحمة الله وبركاته
فى هذا الموضوع لدى مجلد رئيسى يحتوى على العديد من الملفات التى أرغب بمساعدتكم بإذن الله تعالى
وضع الكود المطلوب فى هذة الملفات لتصدير الورقتين 8 و 9 من كل ملف إلى الملف المغلق المُسمى بإسم النتائج
وهو فى نفس مسار المجلد الرئيسى على النحو المبين تحقيقة من داخل ملف النتائج
على أن تبدأ عملية التصدير من الصف الثانى وعلى التوالى **** أى من تحت بعضهما البعض إن جاز التعبير
 سوف توضح هذه العينة بإذن الله تعالى بشكل أفضل ماهو مطلوب تحقيقة بفضل الله تعالى ثم بفضل حضراتكم
إليكم هذا المثال **** تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا
أخيكم أبو عبد الرحمن 
 
 
  المجلد الرئيسى.rar   تحميل rar مرات التحميل :(3)
الحجم :(103.473) KB



أفضل إجابة مقدمة من hassona229 وهي:
وفيك بارك استاذنا الغالي ابو البراء
جرب هذا التعديل

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
عرض الإجابة




20-09-2020 07:00 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تصدير بيانات أوراق محددة الى ملف مُغلق
وعليكم السلام ورحمه الله وبركاته
اخى الفاضل ابا عبدالرحمن
هذا الموضوع كما قلت لك سابقا به ما تبغى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
يوجد في هذا الموضوع عدد 2 كود للاستاذ العزيز ياسر العربي
كود استيراد بيانات
وكود تصدير بيانات
حضرتك تريد تصدير بيانات الي ملف معين
هذا هو الكود الموجود في الصفحه التي اشرت لها يمكنك وضعها في ملفك مع تغيير الاسماء كما تريد


Sub Yasser2()
    Dim wkb As Workbook
    Dim myArr As Variant
    Dim lr As Long
    Application.ScreenUpdating = 0
    lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    myArr = Sheets("Sheet1").Range("A7:M" & lr)
    Set wkb = Workbooks.Open(ThisWorkbook.Path & "Data.xlsm")
    wkb.Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(UBound(myArr, 1), UBound(myArr, 2)).Value = myArr
    wkb.Close SaveChanges:=True
    Application.ScreenUpdating = 1
End Sub


20-09-2020 11:39 مساء
مشاهدة مشاركة منفردة [2]
أبو سجده
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 328
 offline 
look/images/icons/i1.gif تصدير بيانات أوراق محددة الى ملف مُغلق
شكرا لك مرة أخرى أستاذى الفاضل على إهتمامكم البالغ
أعتقد أن فكرة الكودين كتصدير وإستيراد البيانات تعتمد على إختيار رقم فاتورة وعليه يتم إستيراد أو تصدير كل البيانات المتعلقة بهذا الرقم وهى لإسم واحد فقط
أما عن هذا الموضوع فهو مختلف حيث أحتاج الى مساعدة السادة الأفاضل هنا فى ترميز كود يقوم بتصدير بيانات الورقتين رقم 8 و 9  فقط دون غيرهم
الى هذا الملف المغلق كأرشيف إن جاز التعبير  أو كملف تجميعى للبيانات المطلوب تصديرها ***** كيف يمكن تحقيق ذلك **** هذا ما أود الحصول عليه
بفضل الله تعالى ثم بفضل الساده الأفاضل هنا **** تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا

21-09-2020 06:20 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تصدير بيانات أوراق محددة الى ملف مُغلق
السلام عليكم
أنشيء ملف إكسيل بجوار الملف المسمى "النتائج" لتضع فيه الكود ، وتأكد أن كافة الملفات الموجودة في "المجلد الرئيسي" مغلقة ، وكذلك ملف "النتائج" مغلق 
ثم ضع الكود التالي في الملف الذي قمت بإنشائه
Sub Test()
    Const shName1 As String = "ورقة8", shName2 As String = "ورقة9"
    Dim wbResult As Workbook, wb As Workbook, sh1 As Worksheet, sh2 As Worksheet, ws1 As Worksheet, ws2 As Worksheet, myPath As String, myFile As String
    Application.ScreenUpdating = False
        Set wbResult = Workbooks.Open(ThisWorkbook.Path & "النتائج.xlsx")
        With wbResult
            Set sh1 = .Worksheets(shName1)
            Set sh2 = .Worksheets(shName2)
            sh1.Range("A1").CurrentRegion.Offset(1).Clear
            sh2.Range("A1").CurrentRegion.Offset(1).Clear
        End With
        myPath = ThisWorkbook.Path & "المجلد الرئيسى"
        myFile = Dir(myPath & "*.xls*")
        Do While myFile <> ""
            Set wb = Workbooks.Open(myPath & myFile, False)
            Set ws1 = wb.Worksheets(shName1)
            Set ws2 = wb.Worksheets(shName2)
            ws1.Range("A1").CurrentRegion.Offset(1).Copy sh1.Range("A" & sh1.Cells(Rows.Count, 1).End(xlUp).Row + 1)
            ws2.Range("A1").CurrentRegion.Offset(1).Copy sh2.Range("A" & sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1)
            wb.Close SaveChanges:=False
            myFile = Dir
        Loop
        wbResult.Close SaveChanges:=True
    Application.ScreenUpdating = True
    MsgBox "Done...", 64
End Sub


تم إرفاق الكود في ملف نصي لأن المسار يحذف منه الشرطة العكسية في المشاركة.

** الرجاء دراسة الكود بشكل جيد لأنه بالفعل تم تقديم موضوعات مشابهة لهذا الطلب ، فلو تم دراسة تلك الموضوعات بشكل جيد لتمكنت على الأقل من عمل أكثر من نصف الكود بنفسك.
 
 
  الكود.txt   تحميل txt مرات التحميل :(17)
الحجم :(1.34) KB


21-09-2020 10:47 صباحا
مشاهدة مشاركة منفردة [4]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تصدير بيانات أوراق محددة الى ملف مُغلق
بعد اذن الاستاذ الغالي ابو البراء الكود في المشاركة مع تغيير الاسماء
يمكنك وضعه في ملفاتك ( منتدى-الصقر - التدريب)
ثم تشغل الكود من كل ملف على حسب طلبك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

Sub Copy_from_open_workbook_to_closed_one()
    Dim wkb As Workbook
    Dim f As String
    Dim myArr As Variant, myArr2 As Variant
    Dim lr As Long, lr2 As Long
    Application.ScreenUpdating = 0
    lr = Sheets("ورقة8").Cells(Rows.Count, 1).End(xlUp).Row
    myArr = Sheets("ورقة8").Range("A2:g" & lr)
    lr2 = Sheets("ورقة9").Cells(Rows.Count, 1).End(xlUp).Row
    myArr2 = Sheets("ورقة9").Range("A2:K" & lr2)
     f = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, Application.PathSeparator) - 1) & "\" & "النتائج.xlsx"
    Set wkb = Workbooks.Open(f)
    wkb.Sheets("ورقة8").Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(UBound(myArr, 1), UBound(myArr, 2)).Value = myArr
    wkb.Sheets("ورقة9").Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(UBound(myArr2, 1), UBound(myArr2, 2)).Value = myArr2
    wkb.Close SaveChanges:=True
    Application.ScreenUpdating = 1
End Sub
 
 
  Copy_from_open_workbook_to_closed_one.txt   تحميل txt مرات التحميل :(14)
الحجم :(0.895) KB


21-09-2020 02:40 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تصدير بيانات أوراق محددة الى ملف مُغلق
بارك الله فيك أخي الحبيب حسونة وجزيت خيراً على إثراء الموضوع.

22-09-2020 12:28 صباحا
مشاهدة مشاركة منفردة [6]
أبو سجده
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 328
 offline 
look/images/icons/i1.gif تصدير بيانات أوراق محددة الى ملف مُغلق
جزاكم الله تعالى خيرا أخى الفاضل حسونه
جزاكم الله تعالى خيرا أخى الفاضل أبو البراء
جارى العمل على الملف الأصلى وسأعود بإذن الله تعالى لا حقا
وافر تقديرى وجزاكم الله خيرا


الصفحة 1 من 4 < 1 2 3 4 > الأخيرة »


الكلمات الدلالية
تصدير ، بيانات ، أوراق ، محددة ، مُغلق ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:44 صباحا