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

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


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





تعديل كود ترحيل بيانات من مصنف مغلق لمصنف أخر

السلام عليكم ورحمة الله وبركاته اريد المساعد من اخواني في تعديل الكود الموجود بالملف ،،، حيث ان الكود عند الترحيل يقوم ب ..


موضوع مغلق


05-09-2020 06:21 صباحا
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
اريد المساعد من اخواني في تعديل الكود الموجود بالملف ،،، حيث ان الكود عند الترحيل يقوم بحذف البيانات القديمه . . . حيث يحل مكانها...
اريد المساعده : الترحيل يكون عند اول صف فارغ ..
الترحيل من ملف Baky_1    الى  mostagad_1
جزاكم الله خير

NDY5MjY5MQ4141453

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  mostagad_1.rar   تحميل rar مرات التحميل :(6)
الحجم :(367.887) KB
  Baky_1.rar   تحميل rar مرات التحميل :(3)
الحجم :(348.076) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب التعديل التالي عله يفي بالغرض إن شاء المولى
Sub Test()
    Dim wb As Workbook, ws As Worksheet, sh As Worksheet, m As Long, n As Long, x As Long
    Application.ScreenUpdating = False
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\Baky_1.xlsm")
        Set ws = wb.Worksheets("كشف ناجحين")
        Set sh = ThisWorkbook.Worksheets("قائمه")
        m = ws.Cells(Rows.Count, 1).End(xlUp).Row
        n = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
        x = ws.Range("A7:C" & m).Rows.Count
        sh.Range("A" & n).Resize(x, 3).Value = ws.Range("A7").Resize(x, 3).Value
        wb.Close False
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




06-09-2020 05:45 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تعديل كود ترحيل بيانات من مصنف مغلق لمصنف أخر
وعليكم السلام
جرب التعديل التالي عله يفي بالغرض إن شاء المولى
Sub Test()
    Dim wb As Workbook, ws As Worksheet, sh As Worksheet, m As Long, n As Long, x As Long
    Application.ScreenUpdating = False
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\Baky_1.xlsm")
        Set ws = wb.Worksheets("كشف ناجحين")
        Set sh = ThisWorkbook.Worksheets("قائمه")
        m = ws.Cells(Rows.Count, 1).End(xlUp).Row
        n = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
        x = ws.Range("A7:C" & m).Rows.Count
        sh.Range("A" & n).Resize(x, 3).Value = ws.Range("A7").Resize(x, 3).Value
        wb.Close False
    Application.ScreenUpdating = True
End Sub

06-09-2020 07:36 صباحا
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif تعديل كود ترحيل بيانات من مصنف مغلق لمصنف أخر
جزاك الله خيرا استاذ ياسر .... جعله الله بميزان حسناتك...
يسر الله لك الامور كما يسرتها على العباد

06-09-2020 09:25 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تعديل كود ترحيل بيانات من مصنف مغلق لمصنف أخر
وجزيت خيراً يا دكتور ومشكور على دعواتك الطيبة
والحمد لله الذي بنعمته تتم الصالحات



الكلمات الدلالية
تعديل ، ترحيل ، بيانات ، مصنف ، مغلق ، لمصنف ،


 










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

الساعة الآن 10:20 صباحا