ممكن طريقة لنقل بعض السطور والأعمدة بحسب تاريخ

[Rayyan]

السلام عليكم إخوتي الكرام

هذا اول موضوع لي ..ممكن أعرف كيف ممكن أن أنقل المعلومات إلى التقارير بحسب تاريخ ما - للتقارير اليومية أو من تاريخ إلى تاريخ ما؟

المعلومات موجودة في sheet operations  ..بحثت في المنتدى ولم أجد ..عذرا على لغتي العربية الرقيقة

reports-1.xlsm

[عبدالفتاح في بي اكسيل]

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

لا تعتمد  كثيرا   ان  يقوم  شخص  بانشاء  لك  كود  من  الصفر  (ابحث  في  المنتدى  وقم  بتطويع  احد  الاكواد بناء  على  احتياجاتك لان  المنتدى  تعليمي)

جرب  هذه  المحاولة  بالفلترة  ( ملاحظة  : اذا  كانت  البيانات  ضخمة  جدا  عندها  الفلترة  تكون  عديمة  الجدوى)

Sub FilterData()

Dim startDate As Long, endDate As Long
startDate = sheet2.Range("C2").Value
endDate = sheet2.Range("C3").Value
sheet2.Range("A6").CurrentRegion.ClearContents

With sheet1.UsedRange
    .AutoFilter 1, ">=" & startDate, xlAnd, "<= " & endDate
    .SpecialCells(xlCellTypeVisible).Copy sheet2.[A6]
    .AutoFilter
End With

End Sub

Search between two dates ‬.xlsm

[Rayyan]

مشكور جدا الأخ (عبدالفتاح في بي اكسيل)

ولكن عندما حاولت تطبيق هذا الحل على الملف الأصلي - أصبح ينقل سطور لورقة عندي لوحده ..فممكن أفهم ؟ ..وشكرا لكل أعضاء هذا المنتدى الجميل.

 

[عبدالفتاح في بي اكسيل]

اخي  انا  اعطيتك  فكرة  الحل  وطبقته  على  ملفك  يجب  ان  تقوم  بتعديله  بناء  متطلباتك .

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

تحياتي.

[Rayyan]

شكرا ..سأحاول.