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

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


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





مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر

السلام عليكم لدي مجموعة من البيانات المكررة في الورقة 1 يتم نسخها الى الورقة الثانية اريد ان يظهر كل صن ..



06-05-2020 11:09 مساء
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 

السلام  عليكم 
لدي  مجموعة  من البيانات  المكررة  في  الورقة 1   يتم  نسخها  الى الورقة  الثانية  اريد   ان  يظهر كل  صنف  مكرر  ان  يضيف  سطر  اجمالي  خاص  به  وجمع  قيمه  بناء على  العمود a  في    ولقد  وضعت  النتائج   المطلوبة  في  الورقة  الثانية  مع  الاخذ  بعين  الاعتبار  اي  تغيير في  الورقة 1   يقابله  تغيير  في  الورقة  الثانية   احتاج  الى  تعديل  هذا  الكود 
Sub bb()
Worksheets("sheet1").Range("a1:e1000").Copy Destination:=Worksheets("sheet2").Range("a1:e1000")
lastrow = ThisWorkbook.Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row
For i = lastrow To 2 Step by - 1
If Application.WorksheetFunction.CountIf(Range("A2:A" & lastrow), Cells(lastrow, 1)) > 1 Then

ThisWorkbook.Worksheets("sheet2").Cells(i, 1 + 1).Value = "total"
ThisWorkbook.Worksheets("sheet2").Rows(i + 1).Select
Selection.Insert shift:=xlDown
End If
Next
sheet1.Cells(1, 1).Select
End Sub

 
 
  ادراج اجمالي صف ‬.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(19.886) KB


07-05-2020 02:03 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
وعليكم السلام أخي الكريم
لا يوجد سوى ورقة واحدة فقط في الملف المرفق .. ارفق الملف بشكل صحيح

07-05-2020 10:13 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
السلام عليكم أخي الكريم
قم بإنشاء ورقة عمل باسم Output وجرب الكود التالي عله يفي بالغرض
Sub Test()
    Dim ws As Worksheet, sh As Worksheet, i As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        Set sh = ThisWorkbook.Worksheets("Output")
        sh.Cells.Clear
        ws.Range("A1").CurrentRegion.Copy sh.Range("A1")
        With sh.Range("A1").CurrentRegion
            .Sort .Cells(1), xlAscending, , , , , , xlYes
            For i = .Rows.Count + 1 To 3 Step -1
                If sh.Cells(i, 1).Value <> sh.Cells(i - 1, 1).Value Then
                    Rows(i).EntireRow.Insert.
                    .Cells(i, 1).Resize(1, .Columns.Count).Interior.ColorIndex = 6
                    .Cells(i, 1).Value = "Total"
                    .Cells(i, .Columns.Count).Formula = "=SUMIF(A2:A" & i & ",A" & i - 1 & ",E2:E" & i & ")"
                End If
            Next i
        End With
    Application.ScreenUpdating = True
    MsgBox "Done...", 64, "YasserKhalil Excel-Egy"
End Sub

07-05-2020 11:08 صباحا
مشاهدة مشاركة منفردة [3]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
اخي  ياسر شكرا  كودك رائع  ولكن  احتاج  الى تعديل  بسيط  قد  يتم  اضافة  بيانات جديدة لنفس  الاصناف  واريدها عند  الترحيل تتغير في ورقة المخرجات  على سبيل  المثال  
كان لدي بيانات بخصوص الصنف aa  ثلاث صفوف تم ترحيلها  ثم اضفة بيانات جديدة لنفس  الصنف  ورحلتها  مرة ثانية  لا تظهر   واذا قمت بادراج بيانات جديدة  يتم اظهار  اول  سطر  من البيانات واخفاء  باقي  الصفوف   لا ادري   ما  المشكلة 

07-05-2020 02:34 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
الكود يعمل حتى مع إضافة بيانات جديدة حيث يقوم الكود بمسح المخرجات كلها والبدء من جديد في كل مرة ، حيث يقوم بالنسخ للنطاق بالكامل ثم يضعه في ورقة المخرجات ثم يتعامل مع النطاق المنسوخ في بقية الأسطر ..

07-05-2020 05:35 مساء
مشاهدة مشاركة منفردة [5]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
اخي  ياسر  قمت   بتطبيقه  على  ملف   اخر  ولكن  دون  جدوى  ارفق  لك  الملف  قد  تعرف  الخلل اين  
 
 
  INSERT)‬.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(21.392) KB


07-05-2020 06:06 مساء
مشاهدة مشاركة منفردة [6]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
رجاءاً على جميع الأعضاء عدم رفع اى خلل او مشكلة بالحل الا بعد التجربة أكثر من مرة وياحبذا لو على اكثر من جهاز .. فكود استاذنا الكريم ياسر يعمل بكل كفاءة وكما تريد بالضبط وشكل النتائج كما تريدها
وشوف بنفسك اليس هذه هى النتائج التى تريد اظهارها بصفحة Output

K0iTu_1
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  INSERT.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(26.955) KB

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




الكلمات الدلالية
مساعدة ، تعديل ، ادراج ، اجمالي ، تلقائيا ، بمجرد ، البيانات ، لاخر ،


 










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

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