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

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


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





نقل من شيت لآخر رغم الاختلاف بينهما بالمعلومات

محتاج مساعدة ضروري لو سمحتم في الملف المرفق الذي أريده في الفورم 2 زر التعديل شغال تمام أريد اضافة كود عليه في حال أي خل ..


موضوع مغلق


08-02-2021 01:15 مساء
alaa taleb
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 23-04-2018
رقم العضوية : 5742
المشاركات : 4
الجنس : ذكر
تاريخ الميلاد : 16-12-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 12
 offline 

محتاج مساعدة ضروري لو سمحتم في الملف المرفق الذي أريده في الفورم 2 زر التعديل شغال تمام أريد اضافة كود عليه في حال أي خلية من العامود U في شيت mkt بتساوي كلمة "نعم" ينقل السطر الى شيت data ويحط كل معلومة تحت العامود بتاعها ويحذف السطر الموجود في شيت mkt بس كده 
رجاء المساعدة في اسرع وقت ضروري اكرمكم الله 
 
 
  test-file.sakمعدل.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(69.261) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم نبدأ بها أخي الكريم
قبل سطر الرسالة الأخيرة ضع الأسطر التالية في الكود الخاص بالتعديل ..
Dim m As Long
Set wsData = ThisWorkbook.Worksheets("data")
m = wsData.Cells(Rows.Count, 1).End(xlUp).Row + 1
If ComboBox30.Value = "äÚã" Then
    With wsData
        .Cells(m, 1).Value = wsMkt.Cells(rowNum, 1).Value
        .Cells(m, 2).Value = wsMkt.Cells(rowNum, 7).Value
        .Cells(m, 3).Resize(, 4).Value = wsMkt.Cells(rowNum, 2).Resize(, 4).Value
        .Cells(m, 7).Resize(, 5).Value = wsMkt.Cells(rowNum, 10).Resize(, 4).Value
        .Cells(m, 20).Value = wsMkt.Cells(rowNum, 18).Value
        .Cells(m, 22).Value = wsMkt.Cells(rowNum, 20).Value
        .Cells(m, 25).Resize(, 2).Value = wsMkt.Cells(rowNum, 22).Resize(, 2).Value
    End With
End If


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




08-02-2021 02:37 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif نقل من شيت لآخر رغم الاختلاف بينهما بالمعلومات
السلام عليكم نبدأ بها أخي الكريم
قبل سطر الرسالة الأخيرة ضع الأسطر التالية في الكود الخاص بالتعديل ..
Dim m As Long
Set wsData = ThisWorkbook.Worksheets("data")
m = wsData.Cells(Rows.Count, 1).End(xlUp).Row + 1
If ComboBox30.Value = "äÚã" Then
    With wsData
        .Cells(m, 1).Value = wsMkt.Cells(rowNum, 1).Value
        .Cells(m, 2).Value = wsMkt.Cells(rowNum, 7).Value
        .Cells(m, 3).Resize(, 4).Value = wsMkt.Cells(rowNum, 2).Resize(, 4).Value
        .Cells(m, 7).Resize(, 5).Value = wsMkt.Cells(rowNum, 10).Resize(, 4).Value
        .Cells(m, 20).Value = wsMkt.Cells(rowNum, 18).Value
        .Cells(m, 22).Value = wsMkt.Cells(rowNum, 20).Value
        .Cells(m, 25).Resize(, 2).Value = wsMkt.Cells(rowNum, 22).Resize(, 2).Value
    End With
End If


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

08-02-2021 03:27 مساء
مشاهدة مشاركة منفردة [2]
alaa taleb
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 23-04-2018
رقم العضوية : 5742
المشاركات : 4
الجنس : ذكر
تاريخ الميلاد : 16-12-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif نقل من شيت لآخر رغم الاختلاف بينهما بالمعلومات
تمام يا استاذنا باقي الجزء الاخر حذف السطر في شيت mkt 
تقصد أضيف السطر ده : Sheets("mkt").Rows(rowNum).EntireRow.Delete

 
 
Okay, my teacher, the rest of the other part, delete the line in sheet mkt
 

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



الكلمات الدلالية
بالمعلومات ، بينهما ، لآخر ، الاختلاف ،


 










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

الساعة الآن 06:21 مساء