مساعدة في استدعاء تاريخ اليوم من ورقة عمل .

[altarafalzahabi]

إخواني الكرام ,

 

وضعت موضوع سابقا في هذا المنتدى في هذا الرابط : هنا  ولكن لم أجد المساعدة ,! ربما لم أستطع شرح ما أريده , المهم أحاول مرة أخرى بكلمات أبسط أشرح مرادي ,

 

عندي ملف أرفقها لكم هنا , فيها تاريخ الوصول في الخلية M

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

 

إن شاء الله استعطت أن أشرح ما أريد .

 

هذا رابط المرفق من الموضوع السابق :

https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=118735

[طلعت محمد حسن]

السلام عليكم

اخي الكريم الملف المرفق محمي بكلمة مرور الرجاء ذكرها

وشكرا

[altarafalzahabi]

وعليكم السلام 

 

معاليش يالغلا نسيت أحطه في الموضوع الرقم السري 5310

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

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

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

ثم انشئ ورقة عمل جديدة وسمها "تذكير" ثم خصص زر لهذا الكود

Sub Remember()
Range("A11:Z500").ClearContents
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
For R = 11 To 100
If sh.Name <> "اسماء العملاء" Or sh.Name <> "اقفال" Or sh.Name <> "تذكير" Then
LR = Range("M" & Rows.Count).End(xlUp).Row + 1
If sh.Range("M" & R) = Date Then
sh.Range("B" & R & ":Z" & R).Copy
Range("B" & LR).PasteSpecial xlPasteValues
Range("B" & LR).PasteSpecial xlPasteFormats
Range("A" & LR) = LR - 10
End If
End If
Application.CutCopyMode = False
Next
Next
End Sub

 

[altarafalzahabi]

ألف ألف شكر لك يالغلا زيزو العجوز , ولو تكرمت فقط اشرح لي بالتفصيل , 

 

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

[altarafalzahabi]

بارك الله فيك أخي زيزو العجوز , الحمد لله قدرت أخصص الزر واشتغل تمام , 

 

بس في ملاحظتين لو تقدر تسهيلا لأموري ,

 

1 : كل ما أضغط الزر يجلب نفس البيان مرة أخرى في سطر آخر , لو في الامكان يجلب فقط مرة واحدة , وفي حال وجوده من الأول لن يجلب .

2 : أي زر أو أمر يحذف فقط السطر المحدد من ورقة التذكير ؟

 

بارك الله فيك ورزقك الله الجنة جزيت خيرا يالغلا .

[altarafalzahabi]

On ٢٥‏/١٠‏/٢٠١٦ at 6:14 PM, altarafalzahabi said:

بارك الله فيك أخي زيزو العجوز , الحمد لله قدرت أخصص الزر واشتغل تمام , 

 

بس في ملاحظتين لو تقدر تسهيلا لأموري ,

 

1 : كل ما أضغط الزر يجلب نفس البيان مرة أخرى في سطر آخر , لو في الامكان يجلب فقط مرة واحدة , وفي حال وجوده من الأول لن يجلب .

2 : أي زر أو أمر يحذف فقط السطر المحدد من ورقة التذكير ؟

 

بارك الله فيك ورزقك الله الجنة جزيت خيرا يالغلا .

منتظر مساعدة الخبراء إخواني , فقط اضافة زر الحذف مع كل سطر , 

وعدم جلب السطر في حال وجوده ,

ولو في إمكانية نظيف تاريخ الأمس كذلك مع تاريخ اليوم ( يعني يجلب بيانات اليوم والأمس . وشكرا .