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

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


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





نقل بيانات على اساس ارقام مختارة للفترة معينة

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


25-08-2020 09:15 صباحا
محمد لؤي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 559
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 57
 offline 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

السلام عليكم
محتاج كود لنقل بيانات مختارة على اساس الرقم
للفترة معينة 
وارفق ملف يحتوي على النتائج المطلوبة
جزيتم خيرا
 
 
  ارقام مختارة للفترة معينة.rar   تحميل rar مرات التحميل :(2)
الحجم :(118.21) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
من المفترض أخي الكريم أن تظهر لنا محاولاتك من أجل الوصول لحل .. شاركنا أفكارك ومحاولاتك
عموماً جرب الكود التالي وحاول التعديل عليه بما يتناسب معك
Sub Test()
    Dim a, sDate, eDate, ws As Worksheet, sh As Worksheet, b As Boolean, c As Range, r As Long, i As Long, n As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        sh.Columns("A:T").ClearContents
        a = ws.Range("A1").CurrentRegion.Value
        sDate = sh.Range("Y2").Value
        eDate = sh.Range("Z2").Value
        r = 1
        For Each c In sh.Range("X2:X" & sh.Cells(Rows.Count, "X").End(xlUp).Row)
            b = True: n = 0
            If IsNumeric(c.Value) And Not IsEmpty(c.Value) Then
                For i = 2 To UBound(a)
                    If a(i, 3) = c.Value And a(i, 2) >= sDate And a(i, 2) <= eDate Then
                        If b Then sh.Range("A" & r).Resize(1, 20).Value = ws.Range("A1").Resize(1, 20).Value: b = False
                        r = r + 1
                        n = n + 1
                        sh.Range("A" & r).Value = n
                        sh.Range("B" & r).Resize(1, 19).Value = ws.Range("B" & i).Resize(1, 19).Value
                    End If
                Next i
                r = r + 3
            End If
        Next c
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




25-08-2020 09:56 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نقل بيانات على اساس ارقام مختارة للفترة معينة
وعليكم السلام
الموضوع غير مكتمل ولا يوجد تفاصيل كافية.

25-08-2020 10:58 صباحا
مشاهدة مشاركة منفردة [2]
محمد لؤي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 559
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 57
 offline 
look/images/icons/i1.gif نقل بيانات على اساس ارقام مختارة للفترة معينة
السلام عليكم
حياك الله

عندي شيت اسمه تجميع 
وشيت المختارة
يطلب مني تقرير على اساس الارقام
والتقرير المطلوب في كل مرة أكثر من (30) رقم
فعملية القيام بالفلترة واحد واحد طويلة عن طريق النسخ واللصق
اريد عند كتابة الارقام المختارة (المطلوبة بالتقرير) في خانة X والفترة من والى 
تاتي البيانات  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  ارقام مختارة للفترة معينة.rar   تحميل rar مرات التحميل :(10)
الحجم :(119.221) KB


25-08-2020 04:07 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نقل بيانات على اساس ارقام مختارة للفترة معينة
من المفترض أخي الكريم أن تظهر لنا محاولاتك من أجل الوصول لحل .. شاركنا أفكارك ومحاولاتك
عموماً جرب الكود التالي وحاول التعديل عليه بما يتناسب معك
Sub Test()
    Dim a, sDate, eDate, ws As Worksheet, sh As Worksheet, b As Boolean, c As Range, r As Long, i As Long, n As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        sh.Columns("A:T").ClearContents
        a = ws.Range("A1").CurrentRegion.Value
        sDate = sh.Range("Y2").Value
        eDate = sh.Range("Z2").Value
        r = 1
        For Each c In sh.Range("X2:X" & sh.Cells(Rows.Count, "X").End(xlUp).Row)
            b = True: n = 0
            If IsNumeric(c.Value) And Not IsEmpty(c.Value) Then
                For i = 2 To UBound(a)
                    If a(i, 3) = c.Value And a(i, 2) >= sDate And a(i, 2) <= eDate Then
                        If b Then sh.Range("A" & r).Resize(1, 20).Value = ws.Range("A1").Resize(1, 20).Value: b = False
                        r = r + 1
                        n = n + 1
                        sh.Range("A" & r).Value = n
                        sh.Range("B" & r).Resize(1, 19).Value = ws.Range("B" & i).Resize(1, 19).Value
                    End If
                Next i
                r = r + 3
            End If
        Next c
    Application.ScreenUpdating = True
End Sub

25-08-2020 04:45 مساء
مشاهدة مشاركة منفردة [4]
محمد لؤي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 559
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 57
 offline 
look/images/icons/i1.gif نقل بيانات على اساس ارقام مختارة للفترة معينة
السلام عليكم
جزيت خيرا استاذ ياسر
الكود ممتاز
هو المطلوب
يرحم والديك

25-08-2020 04:50 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نقل بيانات على اساس ارقام مختارة للفترة معينة
وجزيت خيراً أخي الكريم بمثل ما دعوت لي وزيادة.
ونتمني في المرات القادمة أن نرى محاولاتك في سبيل الوصول للحل.
الحمد لله الذي بنعمته تتم الصالحات.

26-08-2020 07:35 صباحا
مشاهدة مشاركة منفردة [6]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif نقل بيانات على اساس ارقام مختارة للفترة معينة

الله ينور عليك يا غالى كود رائع 3


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



الصفحة 1 من 2 < 1 2 > الأخيرة »


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


 










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

الساعة الآن 06:56 مساء