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

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


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





مساعده فى تقرير بشروط

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



02-03-2020 10:14 مساء
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 

السلام عليكم
تقرير من جدول بياناته فى اعمدة
احاول ان استخرجه بطريقة طولية لا عرضيه بيانات الجدول
فالبحث باسم الشركة 
اذا كان لها مستخلص رقم 1 مثلا
تاتى باجمالية فى العمودe
والاستقطاعات كلا حسب اسمه الموجود فى العمودd تاتى بقيمته فى العمود f
اتمنى ان يصل الشرح اليكم
حاولت ولكن كودى لا يعمل بشكل صحيح
 
 
  report.xlsb   تحميل xlsb مرات التحميل :(5)
الحجم :(28.388) KB


03-03-2020 06:14 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
وعليكم السلام أخي العزيز سعد
يفضل في طرح الموضوع أن يرفق بمثال لشكل النتائج المتوقعة .. عموماً قمت بقراءة الكود الموجود وفهمت بعضاً من المطلوب بشكل عام وقمت بعمل كود آخر بشكل مختلف .. عله يفي بالغرض إن شاء الله
Sub Test()
    Dim wsData As Worksheet, ws As Worksheet, sh As Worksheet, c As Range, m As Long, n As Long, r As Long, x As Long, col As Long
    
    Application.ScreenUpdating = False
        Set wsData = data0: Set ws = Sheet3: Set sh = sheet10
        
        sh.Range("B5:H" & Rows.Count).ClearContents
        m = ws.Cells(Rows.Count, 10).End(xlUp).Row
        If m < 5 Then Exit Sub
        
        For r = 5 To m
            If ws.Cells(r, 10).Value = sh.Range("D2") Then
                n = sh.Cells(Rows.Count, 4).End(xlUp).Row + 2: x = 0
                sh.Cells(n, 3).Value = ws.Cells(r, 5).Value
                sh.Cells(n, 4).Value = "مستخلص رقم " & ws.Cells(r, 5).Value
                sh.Cells(n + 1, 4).Resize(11).Value = wsData.Range("B5").Resize(11).Value
                
                sh.Cells(n, 5).Value = ws.Cells(r, 15).Value
                
                For Each c In sh.Range("D" & n + 1).Resize(11).Cells
                    x = x + 1
                    col = Choose(x, 17, 19, 21, 23, 25, 27, 29, 31, 32, 33, 34)
                    sh.Cells(c.Row, 6).Value = ws.Cells(r, col).Value
                Next c
            End If
        Next r
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

03-03-2020 07:22 صباحا
مشاهدة مشاركة منفردة [2]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
اخى العزيز / استاذ ياسر خليل
اشكرك كل الشكر 
والله بهرت بهذ الكود
ولقد اضفت عدة سطور لنفس الاسم وعمل الكود بشكل سليم وسريع 
اشكرك اخى العزيز جدا جدا 
اسال الله ان يكرمكم فى الدارين وان يبارك لك فى اولادك 

03-03-2020 07:42 صباحا
مشاهدة مشاركة منفردة [3]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
اخى ياسر
هناك ملحوظه واحده هل يمكن تداركها
الكود يعمل بكفاؤه وبسرعة
من الممكن ان يكون المستخلص فى اكثر من صف
فهو حاليا ياتى بكل صفه لوحده وهو فى الحساب صجيج مش خطا
ولكن هل  من الممكن جمعهم 
================
يذكر رقم المستخلص مره واحده 
وبنود الاستقطاعات مره واحده مع جمع الارقام
 

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

03-03-2020 06:32 مساء
مشاهدة مشاركة منفردة [5]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
اذا نظرت الى التقرير (البيانات المظلله  بالاصفر)
ستجد ان رقم 2 بياناته مكرره 
وهى لن تضر الحسابات 
ولكن ان امكن يجمع بيانات المستخلص هتكون افضل
 
 
  report.xlsb   تحميل xlsb مرات التحميل :(3)
الحجم :(32.419) KB


07-03-2020 09:34 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
أخي العزيز سعد
كيف سيكون دمج المستخلصات المتشابهة وجمعها وخصوصأً أن هناك نصوص مثل "خصومات موقع" ..؟ 
يرجى وضع تصور لشكل المتوقع بعد الدمج .. ليتمكن الأعضاء من محاولة المساعدة في الموضوع




الكلمات الدلالية
بشروط ، مساعده ، تقرير ،


 










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

الساعة الآن 07:08 صباحا