نسخ خلية من شيتات اكسل الى الشيت الاول بشرط

[سامي الحميدي]

الاخوة الاكرام  ارجو منكم مساعدة بخصوص 

استدعاء معلومات او نسخ معلومات من اي خلايا معينه داخل شيتات الاكسل المتعددة ا

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

بدون عناء تشييك كل الصفحات 

ويكون هذا النسخ بشرط . مثلا اذا الوثيقة المعينه بينتهي تاريخها انسخ لي اسم العميل واسم الوثيقة والتاريخ 

واكون شاكر لكم . مرفق ملف للتوضيح 

SA.rar

تم تعديل فبراير 21, 2016 بواسطه سامي الحميدي

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

أخي الكريم سامي

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

حاول توضح الطلب بشيء من التفصيل مع ذكر مثال أو مثالين لتوضيح المسألة

تقبل تحياتي

 

 

[سامي الحميدي]

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

أخي الكريم سامي

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

حاول توضح الطلب بشيء من التفصيل مع ذكر مثال أو مثالين لتوضيح المسألة

تقبل تحياتي

 

 

المعذرة ان لم اكن اوصلت لكم المعلومه بشكل صحيح  

وهذا ملف مرفق اخر ان شالله فيه المطلوب 

SA.rar

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

أخي الكريم سامي الحميدي

جرب الكود التالي عله يفي بالغرض

Sub LoopThroughSheets()
    Dim Ws As Worksheet, Sh As Worksheet, I As Long, Cell As Range
    Set Ws = Sheet1
    
    For Each Sh In ThisWorkbook.Worksheets
        For Each Cell In Sh.Range("E7:E" & Sh.Cells(Rows.Count, "B").End(xlUp).Row)
            If Not IsEmpty(Cell) And IsDate(Cell) And CLng(Date) - CLng(Cell) >= 30 Then
                Ws.Cells(I + 6, 1).Value = I + 1
                Ws.Cells(I + 6, 2).Value = Sh.Name
                Ws.Cells(I + 6, 3).Value = Cell.Offset(, -3).Value
                Ws.Cells(I + 6, 4).Value = Cell.Value
                I = I + 1
            End If
        Next Cell
    Next Sh
End Sub

تقبل تحياتي

 

Loop Through Sheets & Check Date Condition YasserKhalil.rar

[سامي الحميدي]

الف الف مليون شكر. المطلوب تماما . 

الله يجزاك الف خير اخوي . وسلمت ايدك ونفعك بما علمك 

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

أخي العزيز سامي الحميدي

الحمد لله أن تم المطلوب على خير ..فلله الحمد والفضل والشكر أولاً وأخيراً

وجزيت خيراً بمثل ما دعوت لي وزيادة وبوركت على دعائك الطيب

تقبل تحياتي