زكي 1979

شكرا جزيلا استاذي ابو عيد على المحاولة لكن الكود لا يعمل بشكل صحيح

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

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

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

أريد اضافة دالة if على الكود بحيث  بحلول تاريخ معين ينغلق  هذا الملف تماما بدون اظهار اي نافذة أو اي شيء أخر يعني عند النقر على الملف لا يظهر شيء.

هل هذا ممكن او مستحيل مع انني وجدت في اليوتوب طرق لم تنفع معي.

الملف مرفق ......وشكرا 

expare file excel.xlsm

شكرا جزيلا جدا جدا أخي العبقري ali mohamed ali

لكن الرجاء التعديل  قليلا في المعادلة بحيث يحتفظ كل عميل بقيمة المبالغ في الخانة المقابلة لاسمه . لانه الان يمسح الخلية بمجرد كتابة اسم عميل جديد وشكرا. ملف مرفق

مساعدة في تعديل المعادلة.xlsm

الرجاء المساعدة في ايجاد حل لهذا المطلوب:

مطلوب معادلة او كود ترحيل قيمة خلية متغيرة (مبلغ مستحق الدفع) بعد البحث عن صاحبه في ورقة أخرى وسط قائمة عملاء اخرين. الملف مرفق

مطلوب كود او معادلة ترحيل من ورقة لأخرى حسب شرط معين.xlsm

شكرا جزيلا استاذي الكريم وبارك الله لك في اهلك جميعا. الف شكر

اخي زيزو شكرا جزيلا على الكود. يعمل بشكل جميل لكن هناك مشكلة فيه. انه عند اعادة البحث يبقى البحث السابق موجود مع انه غير متطابق مع تاريخ البحث.  

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

شكرا. جاري المحاولة

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

Sub Searching()
i = 8
For sh = 2 To Sheets.Count
For Each C In Sheets(sh).Range("F8:F" & Sheets(sh).Cells(Rows.Count, "F").End(xlUp).Row)
If C = Sheets(1).[B3] Then
Sheets(1).Cells(i, 1) = Sheets(sh).Name
Sheets(1).Cells(i, 2) = Sheets(1).[B3]
For j = 3 To 9
Sheets(1).Cells(i, j) = Sheets(sh).Cells(C.Row, j + 4).Value
Next
i = i + 1
End If
Next
Next
End Sub

programe.xlsm