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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى

السلام عليكم ارجو مساعدتى فى تعديل هذا الكود بحيث يتم : يتم نقل البيات من شيت رقم واحد ينقل قيم الخلايا الى الشيت رقم 2 ..



18-09-2018 02:24 مساء
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 475
الاعجاب : 22
 offline 

السلام عليكم ارجو مساعدتى فى تعديل هذا الكود بحيث يتم :

يتم نقل البيات من شيت رقم واحد ينقل قيم الخلايا الى الشيت رقم 2   ويتم مسح البيانات المرحلة من الشيت الأول لكى يتم ملء بيانات جديدة

 وبالضغط مره اخرى  على زر نقل البيانات يكرر نفس العملية ولكن تحت البيانات المنقولة في المرة السابقة
بارك الله فيكم جميعا

Sub test()
Dim copyrange As Range, cel As Range, pasteRange As Range
Set copyrange = ThisWorkbook.Sheets("Sheet1").Range("B3,B4,E3,E4,B6,E6,E7,B8,E8,B9,E9,B10,E10,B11,E11,B12,E12,B13,E13,B14,E14,L9,V9,L11,V11,L13,V13")
Set pasteRange = ThisWorkbook.Sheets("Sheet2").Range("A3,A4,B3,B4,D3,E3,F3,G3,H3,I3,I4,J3,J4,K3,K4,L3,L4,M3,M4,N3,N4,O3,O4,P3,P4,Q3,Q4")
For Each cel In copyrange
cel.Copy
'erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Row
ecolumn = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Column
pasteRange.Cells(1, ecolumn).PasteSpecial xlPasteValues
'pasteRange.Cells(erow, 1).PasteSpecial xlPasteValues
'pasteRange.Range(CelAddress).PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub

كود نقل وترحيل من خلايا متفرقة.rar

 
 
  كود نقل وترحيل من خلايا متفرقة.rar   تحميل rar مرات التحميل :(16)
الحجم :(32.007) KB







18-09-2018 03:27 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23530
الاعجاب : 2361
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
وعليكم السلام
أرى كود في المشاركة وضع بدون توضيح للكود .. هل الكود يعمل لديك أم به مشكلة ؟ وما هي المشكلة في الكود؟





18-09-2018 03:48 مساء
مشاهدة مشاركة منفردة [2]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 475
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
أعتذر استاذى الكريم -فالصورة توضح ما اريده
وهذا هو الكود الموجود الذى اريد تعديله لكى يقوم بنقل وترحيل البيانات افقيا وليس رأسيا كما يفعل
ولكم جزيل الشكر

Sub test()
Dim copyrange As Range, cel As Range, pasteRange As Range
Set copyrange = ThisWorkbook.Sheets("Sheet1").Range("B3,B4,E3,E4,B6,E6,E7,B8,E8,B9,E9,B10,E10,B11,E11,B12,E12,B13,E13,B14,E14,L9,V9,L11,V11,L13,V13")
Set pasteRange = ThisWorkbook.Sheets("Sheet2").Range("A3,A4,B3,B4,D3,E3,F3,G3,H3,I3,I4,J3,J4,K3,K4,L3,L4,M3,M4,N3,N4,O3,O4,P3,P4,Q3,Q4")
For Each cel In copyrange
cel.Copy
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Row
pasteRange.Cells(erow, 1).PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub icon
 
 






18-09-2018 04:32 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23530
الاعجاب : 2361
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
التعامل مع الخلايا المدمجة غير مستحب بالمرة وأنت تعرف ذلك جيداً
عموماً جرب الكود التالي عله يفي بالغرض إن شاء الله ... أكمل العناوين الخاصة بالخلايا في السطر ar ..
Sub Test()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim ar          As Variant
    Dim cl          As Range
    Dim lr          As Long
    Dim i           As Long
    Dim c           As Long

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        Set sh = ThisWorkbook.Worksheets("Sheet2")
        lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
        lr = IIf(lr = 1, 3, lr + 1)
        ar = Split("B3,B4,E3,E4,B9,E9,B10,E10,B11,E11", ",")
    
        For i = LBound(ar) To UBound(ar) Step 2
            c = c + 1
            If c = 3 Then c = 9
            sh.Cells(lr, c).Value = ws.Range(ar(i)).Value
            sh.Cells(lr + 1, c).Value = ws.Range(ar(i + 1)).Value
        Next i
    
        c = 4
        For Each cl In ws.Range("B6,E6,E7,B8,E8")
            sh.Cells(lr, c).Resize(2).Merge
            sh.Cells(lr, c).Value = cl.Value
            c = c + 1
        Next cl
    Application.ScreenUpdating = True

    MsgBox "Done...", 64, "Yasser Khalil From Excel-Egy"
End Sub





18-09-2018 06:17 مساء
مشاهدة مشاركة منفردة [4]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 475
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
عفوا استاذى الكريم كل الخلايا المظللة باللون الأحمر ليست صحيحة
بمعنى تم نقل خلايا خطا اليها غير المطلوب ترحيلها
وايضا اريد من الكود كلما ضغطت على نقل البيانات يتم
نقل البيانات فى الصف التالى للبيانات المرحلة سابقا ومسح البيانات التى تم ترحيلها
من الشيت الأول
وأتأسف واعتذر لحضرتك بشدة على الإزعاج وشاكر على طول بال حضرتك
جزاك الله كل خير

وهذا هو الكود
Sub Test()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim ar          As Variant
    Dim cl          As Range
    Dim lr          As Long
    Dim i           As Long
    Dim c           As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        Set sh = ThisWorkbook.Worksheets("Sheet2")
        lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
        lr = IIf(lr = 1, 3, lr + 1)
        ar = Split("B3,B4,E3,E4,B6,E6,E7,B8,E8,B9,E9,B10,E10,B11,E11,B12,E12,B13,E13,B14,E14,L9,V9,L11,V11,L13,V13,L15,V15,L17,V17,L19,V19,L21,V21,L25,V25,L29,V29,L31,V31,L33,V33,L35,V35,L23,V23,L39,V39", ",")
            For i = LBound(ar) To UBound(ar) Step 2
            c = c + 1
            If c = 3 Then c = 9
            sh.Cells(lr, c).Value = ws.Range(ar(i)).Value
          ' sh.Cells(lr + 1, c).Value = ws.Range(ar(i + 1)).Value
        Next i
        c = 4
        For Each cl In ws.Range("B6,E6,E7,B8,E8")
            sh.Cells(lr, c).Resize(2).Merge
            sh.Cells(lr, c).Value = cl.Value
            c = c + 1
        Next cl
    Application.ScreenUpdating = True
    MsgBox "Done...", 64, "Yasser Khalil From Excel-Egy"
End Sub
XIo4p0FuWRLHi9y
 
 






18-09-2018 06:51 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23530
الاعجاب : 2361
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
هل عدلت السطر الذي أخبرتك به ؟؟؟ قم بإضافة بقية عناوين الخلايا .. في السطر ar .. بالنسبة لمسح المحتويات الخاصة بالخلايا في ورقة البيانات يمكنك استخدام ClearContents ..عن طريق تحديد النطاق المطلوب مسحه واستخدام أمر المسح .. الأمر بسيط يمكنك عمله بنفسك





18-09-2018 06:58 مساء
مشاهدة مشاركة منفردة [6]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 475
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
نعم قمت بإضافة كل الخلايا المطلوب نقلها وترحيلها





19-09-2018 12:56 صباحا
مشاهدة مشاركة منفردة [7]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 475
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
للرفع اكرمكم الله





19-09-2018 05:55 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23530
الاعجاب : 2361
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
صراحةً لا أدري ما المشكلدة لديك الآن ... 
قم برفع الملف مرة أخرى بعد التعديلات التي قمت بها على الكود مع توضيح شكل المخرجات الخطأ وتوضيح المخرجات الصحيحة .. يصعب علي أن أقوم بمتابعة النتائج مع كل هذه الخلايا الموجودة ..





19-09-2018 01:08 مساء
مشاهدة مشاركة منفردة [9]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 475
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
تفضل استاذى الكريم واعتذر لتعب حضرتك معايا بارك الله فيك وجزاك الله كل خير
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  كود نقل وترحيل خلايا متفرقة.rar   تحميل rar مرات التحميل :(11)
الحجم :(34.728) KB






19-09-2018 01:24 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23530
الاعجاب : 2361
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
جرب التعديل التالي حيث أنني نسيت أن هناك خلايا مدمجة يجب أن تحذف من المصفوفة الموجودة ...
Sub Test()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim ar          As Variant
    Dim cl          As Range
    Dim lr          As Long
    Dim i           As Long
    Dim c           As Long
    
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        Set sh = ThisWorkbook.Worksheets("Sheet2")
        lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
        lr = IIf(lr = 1, 3, lr + 1)
        
        ar = Split("B3,B4,E3,E4,B9,E9,B10,E10,B11,E11,B12,E12,B13,E13,B14,E14,L9,V9,L11,V11,L13,V13,L15,V15,L17,V17,L19,V19,L21,V21,L25,V25,L29,V29,L31,V31,L33,V33,L35,V35,L23,V23,L39,V39", ",")
            For i = LBound(ar) To UBound(ar) Step 2
            c = c + 1
            If c = 3 Then c = 9
            sh.Cells(lr, c).Value = ws.Range(ar(i)).Value
            sh.Cells(lr + 1, c).Value = ws.Range(ar(i + 1)).Value
        Next i
        
        c = 4
        
        For Each cl In ws.Range("B6,E6,E7,B8,E8")
            sh.Cells(lr, c).Resize(2).Merge
            sh.Cells(lr, c).Value = cl.Value
            c = c + 1
        Next cl
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64, "Yasser Khalil From Excel-Egy"
End Sub





19-09-2018 01:36 مساء
مشاهدة مشاركة منفردة [11]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 475
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
أحسنت وابدعت كود فوق الممتاز بارك الله فيك
وهو حقا المطلوب جزاك الله كل خير وغفر الله وجعله فى ميزان حسناتك ورزقك من حيث لا تحتسب رزقا واسعا وبارك الله فى اولادك وزوجك
وادخلك جنات الفردوس الأعلى
لك الشكر كله استاذى الكريم وزادك الله من علمه





19-09-2018 01:37 مساء
مشاهدة مشاركة منفردة [12]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1383
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6278
الاعجاب : 939
 Online 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
أنه حقا كود ممتاز وادى المطلوب على اكمل وجه أدامك الله دائما استاذ ياس للمحتاجين جزاك الله كل خير وجعله فى ميزان حسناتك



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل البيانات من ملف اكسل الى ملف اخر ياحبيبي يامحمد
0 38 ياحبيبي يامحمد
مطلوب ترحيل دون تكرار صلاح الصغير
14 129 صلاح الصغير
شرح طريقة الاستاذ الترحيل المتقاطع بطريقة ديناميكية مع ياسر محمد علي الرحال
4 80 الرحال
طلب عمل كود ترحيل حسب الاسم والتاريخ الرحال
16 242 الرحال
فورم ترحيل بيانات للشيت المطلوب عن طريق ال MultiPage مجدى يونس
2 110 مجدى يونس

الكلمات الدلالية
تعديل ، ترحيل ، خلايا ، متفرقة ، خلايا ، صفحة ، اخرى ،


 







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



الساعة الآن 12:38 صباحا

أعلن هنا
أعلن هنا
أعلن هنا