استعمال الدالة VLookup في البحث باستخدم الكود عن طريق الفورم

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

اخي الكريم ما هي المعلومات من صفحة العملاء التي تريد ان تنقلها في صفحة مستقلة

[altarafalzahabi]

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

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

اخي الحبيب هناك خلايا مدمجة لا يمكن نقلها

 

[altarafalzahabi]

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

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

المطلوب اخي الكريم اعادة صيفة الملف الذي تعمل علية 

[altarafalzahabi]

طيب أخي هل يمكن بأي طريقة تسوي لي صفحة تظهر لي نتائج عن وصول الحاويات لنفس التاريخ ؟ فقط لو يظهر لي اسم العميل ورقم البوليصة والحاوية , واعتذر منك على إزعاجك أخي .

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

 

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]

بارك الله فيك أخي الكريم , واعذرني والله غلبتك معي , وأنت ما قصرت , المهم لو حصلت أي شيء أنا في إنتظارك .

[وليد عبدالغني]

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

ملف جميل و رائع و مفيد أخي الفاضل " طلعت محمّد حسن "

يا ريت لو تكرمت تزودلي على الكود اسم الصفحة لتشغيل الفورم من صفحة اخري

 

[الزباري]

الأخ طلعت.. ما شاء الله مميز في مواضيعك .. جزاك الله خيرا