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



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







06-05-2020 11:09 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس :
تاريخ الميلاد : 17-8-1981
قوة السمعة : 244
الاعجاب : 0
السلام عليكم
لدي مجموعة من البيانات المكررة في الورقة 1 يتم نسخها الى الورقة الثانية اريد ان يظهر كل صنف مكرر ان يضيف سطر اجمالي خاص به وجمع قيمه بناء على العمود a في ولقد وضعت النتائج المطلوبة في الورقة الثانية مع الاخذ بعين الاعتبار اي تغيير في الورقة 1 يقابله تغيير في الورقة الثانية احتاج الى تعديل هذا الكود
CODE
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





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




look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
  07-05-2020 10:13 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
السلام عليكم أخي الكريم
قم بإنشاء ورقة عمل باسم Output وجرب الكود التالي عله يفي بالغرض
CODE
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

أثارت هذه المشاركة إعجاب: ali mohamed ali، المبتدأ،



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




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

أثارت هذه المشاركة إعجاب: ali mohamed ali،



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





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

K0iTu_1
INSERT.xlsm
 
 
  INSERT.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(26.955) KB


أثارت هذه المشاركة إعجاب: المبتدأ، YasserKhalil، هاوي برمجه،


توقيع :ali mohamed ali


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

look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
  07-05-2020 06:20 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس :
تاريخ الميلاد : 17-8-1981
قوة السمعة : 244
الاعجاب : 0
اخي علي هل قمت باي تعديل على الملف بصراحة هذا لغز نفس الملف الذي ارفقته الان يعمل والله شيء محير لقد قمت بتجربته قبل ما ارفقه وعندما اضيف بيانات جديدة كان يحدث خلل في ترتيب البيانات بل واخفاء بعضها
اود ان اشكر اخي ياسر على هذا الكود الرائع سلمت يداك وجعله الله في ميزان حسناتك

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
  07-05-2020 06:40 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس :
تاريخ الميلاد : 17-8-1981
قوة السمعة : 244
الاعجاب : 0
اخي ياسر بعد اذنك اريد فهم بعض الاسطر في الكود وتتبعته الى ان وصلت الى استخدام اداة WITH لو لم نستخدم اداة WITH اريد ان اعرف المضلل بالاحمر ماذا يوجد قبلها بالاضافة الى ماذا تعني الفواصل
. Sort . Cells (1), xlAscending, , , , , , xlYes.
الى ماذا يشير رقم 3 و -1
For i = .Rows.Count + 1 To 3 Step -1
الى ماذا يشير رقم -1
If sh.Cells(i, 1).Value <> sh.Cells(i - 1, 1).Value Then
لماذا لم نجعلها تساوي بدلا لا تساوي حتى تصبح هكدا
If sh.Cells(i, 1).Value = sh.Cells(i - 1, 1).Value Then




look/images/icons/i1.gif مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر
  07-05-2020 06:42 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
بارك الله فيك أخي الكريم والشكر موصول للأخ علي النشيط والخدوم دائماً
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: ali mohamed ali، هاوي برمجه،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في ترحيل بيانات بشروط خاصة في الترحيل بكار للأبد
0 2 بكار للأبد
امل المساعد في تعديل المعادلة التي تحسب المدة المتبقية على تاريخ معين بحيث يختفي عندما يتم كتابة تم ابوعلي الحبيب
0 90 ابوعلي الحبيب
تعديل ملف حساب مرتب صلاح الصغير
0 55 صلاح الصغير
التعديل على اي شيت من اليوزر فورم شبل
1 126 شبل
أكبر تجميعية لملفات PSD مفتوحة المصدر جاهزة للتعديل إهداء لأعضاء وزوار المنتدي الكرام عوض السوداني
0 51 عوض السوداني

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








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

الساعة الآن 04:39 PM.