نجوم المشاركات

أخى ( محمد ) شكرا على المرور ، وعلى كلماتك الرائعة بارك الله فيك وجعل دعائك هذا فى ميزان حسناتك تقبل دعاء أخيك

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

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

أليك أخى ماأردت جمع قيم فى وضع الفلترة.rar

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

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

السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. AAA3.rar

أخى الحبيب ( blood ) شكرا على كلماتك الرائعة ومرورك الكريم بارك الله فيك تقبل تحيات : أخيك

الحمد لله أخى أن وفقنى ربى لخدمتك تقبل تحيات : أخيك

اخى فى الله اكرامى وبعد اذن الافاضل انظر المرفق واخبرنى النتيجه ولا تنسى تخفيض الماكرو وكلمة السر 14 تحياتى جمال الفار حذف واضافه ونسخ ELFAR.rar

اخى فى الله محمد 28 انت والله سباق الخير بارك الله فيك ودمت لنا ودام الود والوصال بينا

شكرا لك اخى محمد بارك اله فيك ولكنى كنت اريد نسخة من البرنامج تفتح كصفحة جديده وليست صفحه فارغة ايضا لا يظهر ذر اختصار لتلك الصفحة اسفل الموجودين فى الرئيسية

أخى محمد 28 والله انى احبك فى الله ويخجلنى اهتمامك الدائم ومساعدتك العظيمة لى بجد أنت انسان محترم ومبدع كبير عملك روعة بجد و تحفة فنية باهرة بارك الله فيك ونفع بعلمك وجعله بميزان حسناتك

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

جزاك الله خيراً واحبك الله الذي احببتنا من اجله تلميذك

السلام عليكم جزاكم الله خيرا هذا طلبك ولكن عدد الاعمدة 21 وليس 20 ' عدد الاعمدة Const Cont As Integer = 21 Private Sub ButtonFind_Click() Dim Ary() Dim r As Long, rr As Long, Lr As Long Dim c As Integer, cc As Integer Dim txt As String txt = Me.TextFind Me.ListBox1.Clear With Sheets("البيانات") Lr = .Cells(.Rows.Count, "A").End(xlUp).Row For r = 2 To Lr If InStr(CStr(.Cells(r, "A")), txt) Then rr = rr + 1 ReDim Preserve Ary(1 To Cont, 1 To rr) For c = 1 To Cont cc = Choose(c, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25) Ary(c, rr) = .Cells(r, cc).Value Next End If Next End With If rr Then Me.ListBox1.Column = Ary Erase Ary End Sub تقبلوا تحياتي وشكري

كود لاضافة اسم نطاق استنادا الى مجموعة شرح فيديو + ملف به الكود + الكود المستخدم Sub قنديل() Selection.Name = " الأسماء" End Sub Book1.rar

استاذي العزيز طالب المنازل كيف يتم رصده

السلام عليكم الاخ الكريم / رشراش علي بارك الله فيك مرور طيب وكريم من شخص كريم وجمعنا الله واياك الجنة تقبل خالص تحياتي

إضافة كشوف اللحان لقوائم الفصول قوائم الفصول_2.rar

تفضل استبدل بهذا Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Sheets(3) .Select .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List End With Application.ScreenUpdating = True Unload Me 1 End Sub

مشكور بارك الله فيك، ولكن لي ملاحظة وهي أن البرنامج لا يفتح بأوفيس 2003 بل بأوفيس 2007.