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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تجزئة الاسماء المركبة وفصلها عن الاسماء العادية اكسيل اسئله واجابات


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



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





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

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



18-09-2018 02:24 مساء
هانى على
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 280
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 445
الاعجاب : 7
 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 مرات التحميل :(14)
الحجم :(32.007) KB







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





18-09-2018 03:48 مساء
مشاهدة مشاركة منفردة [2]
هانى على
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 280
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 445
الاعجاب : 7
 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
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 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]
هانى على
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 280
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 445
الاعجاب : 7
 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
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
هل عدلت السطر الذي أخبرتك به ؟؟؟ قم بإضافة بقية عناوين الخلايا .. في السطر ar .. بالنسبة لمسح المحتويات الخاصة بالخلايا في ورقة البيانات يمكنك استخدام ClearContents ..عن طريق تحديد النطاق المطلوب مسحه واستخدام أمر المسح .. الأمر بسيط يمكنك عمله بنفسك





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





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





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





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






19-09-2018 01:24 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 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]
هانى على
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 280
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 445
الاعجاب : 7
 offline 
look/images/icons/i1.gif تعديل كود ترحيل من خلايا متفرقة الى خلايا فى صفحة اخرى
أحسنت وابدعت كود فوق الممتاز بارك الله فيك
وهو حقا المطلوب جزاك الله كل خير وغفر الله وجعله فى ميزان حسناتك ورزقك من حيث لا تحتسب رزقا واسعا وبارك الله فى اولادك وزوجك
وادخلك جنات الفردوس الأعلى
لك الشكر كله استاذى الكريم وزادك الله من علمه





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



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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل البيانات الى اى عدد من اوراق العمل من خلال اليوزرفورم DATA ENTRY USERFORM emad ghazi
11 1341 رشاد احمد
تسريع الترحيل وحذف سجل من الليست بوكس ashraf_hertlion
1 32 ashraf_hertlion
تعديل على كود ترحيل احمد على
2 53 احمد على
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
144 3382 مالك ماريه
الترحيل من شيت الى اخر ابو العلاء
1 76 ابو العلاء

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


 







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



الساعة الآن 11:25 مساء

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