استعلام

[محمودكمال]

كيف جلب اول عداد واخر عداد بناء على تاريخ محدد

فى ملف العمل وشكرا

استعلام1.rar

[ياسر خليل أبو البراء]

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

تقبل تحياتي

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اكتب المعادلة الاولى فى الخلية  J4

والمعادلة الثانية فى الخلية L4

و لا تنسى ازالة دمج هذه الخلايا لان معادلات الصفيف لا يمكن تمكينها فى الخلايا المدمجة كما يجب الضغط  Crtl + Alt + Shift

=VLOOKUP(MIN(IF($C$16:$C$144>=$J$3;$C$16:$C$144;""));$C$16:$H$144;6;0)
=VLOOKUP(MAX(IF($C$16:$C$144<=L3;$C$16:$C$144;""));$C$16:$H$144;6;0)

 

[محمودكمال]

في 7/4/2017 at 08:13, ياسر خليل أبو البراء said:

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

تقبل تحياتي

تحياتى واحترامى لحضرتك استاذ / ياسر حليل أبو البراء

المطلوب هو جلب اصغر رقم واكبر رقم واقع  بين تارخين

مثال

تاريخ                           عداد

2016/7/5                     500

2016/7/20                   600

2016/7/25                   750 

2016/8/3                      900

2016/10/5                    950

المطلوب هو عمل تقرير عن      اول عداد فى 2016/7/1           و اخر عداد فى 2016/10/30             

                      

 

استعلام1.rar

[ياسر خليل أبو البراء]

السلام عليكم

جرب الكود التالي .. النتائج ستظهر في ورقة 2

Sub DataBetweenTwoDatesUsingArrays()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim startDate   As Date
    Dim endDate     As Date
    Dim arr         As Variant
    Dim temp        As Variant
    Dim i           As Long
    Dim p           As Long

    Set ws = Sheets("ورقة1"): Set sh = Sheets("ورقة2")
    arr = ws.Range("C16:H" & ws.Cells(Rows.Count, "C").End(xlUp).Row).Value
    startDate = ws.Range("J3").Value2: endDate = ws.Range("L3").Value2
    ReDim temp(1 To UBound(arr, 1), 1 To 2)

    For i = LBound(arr, 1) To UBound(arr, 1)
        If arr(i, 1) >= startDate And arr(i, 1) <= endDate Then
            p = p + 1
            temp(p, 1) = CLng(arr(i, 1))
            temp(p, 2) = arr(i, 6)
        End If
    Next i
    
    With sh
        .Range("A1").Resize(, 2).Value = Array("التاريخ", "العداد")
        .Range("A2").Resize(p, UBound(temp, 2)).Value = temp
        .Columns.AutoFit
    End With
End Sub

 

[محمودكمال]

23 ساعات مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

اكتب المعادلة الاولى فى الخلية  J4

والمعادلة الثانية فى الخلية L4

و لا تنسى ازالة دمج هذه الخلايا لان معادلات الصفيف لا يمكن تمكينها فى الخلايا المدمجة كما يجب الضغط  Crtl + Alt + Shift

=VLOOKUP(MIN(IF($C$16:$C$144>=$J$3;$C$16:$C$144;""));$C$16:$H$144;6;0)
=VLOOKUP(MAX(IF($C$16:$C$144<=L3;$C$16:$C$144;""));$C$16:$H$144;6;0)

 

وعليكم السلام ورحمة الله وبركاته

تحياتى لحضرتك ولمجهودك استاذ / زيزو العجوز 

قمت بعمل ما طلبته منى ولكن للاسف لم تعمل المعادلة

مرفق لحضرتك الملف بعد ما قمت بتعليمات حضرتك تقبل ودى واحترامى لشخصك الكريم

استعلام1.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اليك الملف تفضل

 

استعلام1.rar

[محمودكمال]

47 دقائق مضت, ياسر خليل أبو البراء said:

السلام عليكم

جرب الكود التالي .. النتائج ستظهر في ورقة 2

Sub DataBetweenTwoDatesUsingArrays()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim startDate   As Date
    Dim endDate     As Date
    Dim arr         As Variant
    Dim temp        As Variant
    Dim i           As Long
    Dim p           As Long

    Set ws = Sheets("ورقة1"): Set sh = Sheets("ورقة2")
    arr = ws.Range("C16:H" & ws.Cells(Rows.Count, "C").End(xlUp).Row).Value
    startDate = ws.Range("J3").Value2: endDate = ws.Range("L3").Value2
    ReDim temp(1 To UBound(arr, 1), 1 To 2)

    For i = LBound(arr, 1) To UBound(arr, 1)
        If arr(i, 1) >= startDate And arr(i, 1) <= endDate Then
            p = p + 1
            temp(p, 1) = CLng(arr(i, 1))
            temp(p, 2) = arr(i, 6)
        End If
    Next i
    
    With sh
        .Range("A1").Resize(, 2).Value = Array("التاريخ", "العداد")
        .Range("A2").Resize(p, UBound(temp, 2)).Value = temp
        .Columns.AutoFit
    End With
End Sub

 

أستاذ / ياسر خليل أبو البراء

بعد التحية واحترامى لمجهودك الوافر

اعذر جهلى وقلت خبرتى لقد قمت بوضع الكوت فى مديول لم يعمل ووضعته فى ThisWorkbook لم يعمل 

 

[محمودكمال]

35 دقائق مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

اليك الملف تفضل

 

استعلام1.rar

لا اجد كلمات اشكر حضرتك بيها لقد وفرت عليا جهد ووقت وجعلت من مجال عملى محبب الي

ولكن استفسار من حضرتك   كلما اقوم بنقل كود اول عداد الى اى مكان يعمل معى جيدا

انما كود اخر عداد لا يعمل لماذا 

واخر استفسار لو امكن هل ممكن اطلب اخر عداد فى 9/30 يظهر اول عداد فى 10/1

بارك الله لك وفى علمك ومجهودك وجعله فى ميزان حسناتك انت وامثالك

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اخى الكريم عذرا لم اكن اتوقع نقل المعادلة من خلية الى اخرى

اليك الملف مرة اخرى

 

 

 

استعلام1.rar

[محمودكمال]

8 ساعات مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

اخى الكريم عذرا لم اكن اتوقع نقل المعادلة من خلية الى اخرى

اليك الملف مرة اخرى

 

 

 

استعلام1.rar

السلام عليكم ورحمة الله وبركاته

اخى الفاضل اشكر حضرتك على المجهود الوفير

ولكن عندما اكتب المعادله تكون مختلفه عن ما حضرتك كتبها

وعندما انسخ ما كتبته حضرتك الى برنامج  العمل تفشل 

تقبل ودى واحترامى لحضرتك

 

[ياسر خليل أبو البراء]

قم بنسخ المعادلة وبعد وضعها اضغط على Ctrl + Shift +Enter لأنها معادلة صفيف

[محمودكمال]

1 ساعه مضت, ياسر خليل أبو البراء said:

قم بنسخ المعادلة وبعد وضعها اضغط على Ctrl + Shift +Enter لأنها معادلة صفيف

مهما قلت لحضرتكم يا استاذ / ياسر خليل أبو البراء

ولاستاذ / زيزو العجوز لن اوفيكم ربع حقكم وفضلكم عليا وعلى امثالى جعل الله علمكم فى ميزان حسانتكم

لو تكرمتم لى اخر سؤال لو امكن هل من طريقة لجمع ال 75 سياره فى تقرير واحد وبنفس الطريقه مع العلم ان لكل سياره له صفحه 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم محمود

الأفضل وضع نموذج للنتائج المتوقعة ليسهل تقديم المساعدة المطلوبة .. ويفضل طرح موضوع جديد لكل طلب ..

تقبل تحياتي

[محمودكمال]

استاذ / ياسر خليل أبو البراء

عاجز  عن الشكر لحضرتك لكمية المعلومات الجميله التى استفد منها من خلال حضرتك ومن خلال تواجدى بينكم

لقد قمت بالفعل بعمل برنامج للوقود من بعض البرامج الموجوده هنا وسوف اضعه فى طرح موضوع جديد

تقبل ودى واحترامى وتقديرى لشخصك الكريم