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

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


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





التعديل علي كود جلب بيانات من ملفات مغلقة

الساده الافاضل تقبلو تحياتي الرجاء المساعده علي تعديل الكود المرفق حيث انه وجدته هذا المنتدي او منتدا ما ولم اتذكر صاحبه ..



04-07-2020 07:03 مساء
كريم نظيم
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10846
المشاركات : 117
الجنس : ذكر
تاريخ الميلاد : 5-11-1991
يتابعهم : 13
يتابعونه : 0
قوة السمعة : 184
 offline 

الساده الافاضل تقبلو تحياتي
الرجاء المساعده علي تعديل الكود المرفق حيث انه وجدته هذا المنتدي او منتدا ما ولم اتذكر صاحبه  للامانه 
 المطلوب :- اريد جلب البيانات من صفوف متفرقه وليس بجوار بعضا وليكن من (e4:f1000) , (n4:o1000)
Sub ImportData()
Dim wbBook1 As Workbook, wbBook2 As Workbook
Dim Path As String
Dim Arr As Variant, i As Long, LR As Long, LS As Long
Application.ScreenUpdating = False
Set wbBook1 = ThisWorkbook
wbBook1.Sheets("1").Range("D3:BZ25").ClearContents
Path = wbBook1.Path & ""
Arr = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "i")
For i = LBound(Arr) To UBound(Arr)
Set wbBook2 = Workbooks.Open(Path & Arr(i) & ".xls")
Dim wsSheet1 As Worksheet
Dim wsSheet2 As Worksheet
Set wsSheet1 = wbBook1.Worksheets("1")
Set wsSheet2 = wbBook2.Worksheets("Feuil1")
If LS < 3 Then
LS = 3
Else
LS = wsSheet1.Cells(3, Columns.Count).End(xlToLeft).Column
End If
On Error Resume Next
wsSheet1.Cells(3, LS + 1).Resize(23, 5).Value = wsSheet2.Range("C8:G30").Value
wbBook2.Close True
Next
Application.ScreenUpdating = True
End Sub
 

 
توقيع :كريم نظيم

سبحــآآن آللـہ ۆ بحمده سبحــآآن آللـہ آلعظيّـم

سُبْحَانَ اللَّهِ وَبِحَمْدِهِ عَدَدَ خَلْقِهِ وَرِضَا نَفْسِهِ وَزِنَةَ عَرْشِهِ وَمِدَادَ كَلِمَاتِهِ



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

05-07-2020 09:09 صباحا
مشاهدة مشاركة منفردة [2]
كريم نظيم
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10846
المشاركات : 117
الجنس : ذكر
تاريخ الميلاد : 5-11-1991
يتابعهم : 13
يتابعونه : 0
قوة السمعة : 184
 offline 
look/images/icons/i1.gif التعديل علي كود جلب بيانات من ملفات مغلقة
وعليكم السلام معلمي الاستاذ ياسر تم رفع المرفق
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  دمج.rar   تحميل rar مرات التحميل :(4)
الحجم :(146.928) KB

توقيع :كريم نظيم

سبحــآآن آللـہ ۆ بحمده سبحــآآن آللـہ آلعظيّـم

سُبْحَانَ اللَّهِ وَبِحَمْدِهِ عَدَدَ خَلْقِهِ وَرِضَا نَفْسِهِ وَزِنَةَ عَرْشِهِ وَمِدَادَ كَلِمَاتِهِ






الكلمات الدلالية
التعديل ، بينانات ، ملفات ، مغلقه ،


 










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

الساعة الآن 08:03 مساء