اذهب الي المحتوي
أوفيسنا

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


Rayyan
إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

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

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

المعلومات موجودة في 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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

 

رابط هذا التعليق
شارك

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

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

تحياتي.

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information