۩◊۩ أبو حنين ۩◊۩

وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان واتقوا الله إن الله شديد العقاب وخير البر... نصرة رسول الله صلى الله عليه وسلم بإتباع ديننا وهدى رسول الله صلى الله عليه وسلم جزاك الله كل خير

للرفع

السلام عليكم الاخوه الافاضل حماده باشا وحماده عمر دائما يوجد حلول جزاكم الله خير على كل جديد نتعلمه منكم

الاخوة الافاضل المطلوب تحديدا هل من كود يختص بارسال صفحه الاتوبيس والطائرة والتعديل ومطروح من ملف اكسيل عن طريق الاميل ( outlook ) بشكل pdf الى اشخاص محددين على ان يتم ارسال الصفحه التى بها مدخلات والفارغه من المدخلات لا يتم ارسالها ودلاله المدخلات الصف b 5 هلى يمكن ذلك

السلام عليكم اخى galal elgammal جزاك الله كل خير تم المطلوب وتم التعديل جزاكم اللع خيرا

جزالك الله خيرا اخى العزيز حماده وصلت الفكره سلمت يداك

السلاكم عليكم اخى galal elgammal الفكره لم تتضح لى .. ومش عارف اعمل ايه تحديا اذا نظرت فى الملف الجديد ستجد به اعمده مضافه جديده اكثر من عمود ومش عارف اضيف الاعمده فى الفرم

اخى العزيز galal elgammal هل يمكن تطبيق الفرمة على الملف المرفق لانة تم اضافه بيانات جديده ولاكن ليس لى علم بالفرم ..... جزاك الله كل الخير قاعدة بيانات1.rar

اخى ابو حنين عند تغير معيار البحث الى id مثلا او الاسم وند الضغط على find يظهر عطل فى الكود هلى من حل جزاك الله خيرا

السلام عليكم من ايو حنين الى الاخ الغالى ابو حنين من ابو حنين الى الاخ الغالى galal elgammal جزاكم الله كل الخير دائما متواجدين وقت الحاجه اليكم سلمت يداكم

اخى العزيز حماده دائما موجود فى وقت الحاجه سلمت بداك جزاك الله كل الخير هل لك ان تشرح ماذا يعنى Private Sub Worksheet_SelectionChange(ByVal Target As Range)

الساده الافاضل هل من مساعده فى كيف لى ان اجعل ذلك الكود يعمل تلقائى عن ادخال المعطيات فى B2 او C2 هذا الكود كود ASVANCED FILTER Sub Macro2() ' ' Macro2 Macro ' ' Range("A3:AA1304").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("B1:C2"), Unique:=False End Sub جزاكم الله كل الخير

السلام عليكم الاخوة الافاضل مرفق ملف هل يمكن عمل كود بحث بحيث عند كتابة رقم العامل فى B3 واضغط على زر FIND يظهر صف العامل فقط دون غيرة ارجو المساعده جزاكم الله خير قاعدة بيانات.rar

السلام عليكم فعلا موقع ممتاز ومفيد جدا جزاك اللة خيرا

السلام عليكم سلمت الصورة وصاحب الصوره اسال الله ان يبارك لك فيه جزاك الله خيرا

السلام عليكم اخى العزيز قنديل جزاك الله خيرا .. هل يوجد كتاب 2010 شاكرين تعاونك

السلام عليكم اخى قنديل جزاك الله خير

اخى قنديل هل يمكن ضبط هذا الامر على الكود المرفق لانى لم استطيع ان اطبقه يمسح كل ما فى الشيت حتى المعادلات Sub delete_data() Application.ScreenUpdating = False sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo) If sama = vbYes Then Range("B5:B40" & ",F5:F40" & ",G5:G40" & ",H5:H40" & ",L5:L40").ClearContents Else MsgBox "!! لم يتم الحذف" End If Application.ScreenUpdating = True End Sub جزاك الله خيرا

السلام عليكم جزاك الله خير اخى قنديل على سرعه ردك جزاك الله خير على المشاركة البنائه

السلام عليكم ارجو المساعده فى ضبط كود لمسح ما بداخل الخلايل دون التاثير على المعادلات التى بالخلايا Sub delete_data() Application.ScreenUpdating = False sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo) If sama = vbYes Then Range("B5:B40" & ",F5:F40" & ",G5:G40" & ",H5:H40" & ",L5:L40").ClearContents Else MsgBox "!! لم يتم الحذف" End If Application.ScreenUpdating = True End Sub او يكون النطاق الخلايا المراد مس ما بداخلهل من B5 TO L40 شاكر للجميع تعاونكم

السلام عليكم اخى حماده دائما لديك حلول جزاك الله خير على كل معلومه واضافه سلمت يداك

السلام عليكم اخى العزيز جمال كل مل تقدمه ثروة وثورة فى عالم الجديد جزاك الله خيرا

السلام عليكم اخى قنديل جزاك الله خيرا على كل جديد

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ضاحي الغريب عمل اكثر من رائع جعله الله سبحانه وتعالى في ميزان حسناتك )))إن لم تكن لك حسنة جارية فاعمل على ألا تكون لك سيئة جارية... !! (((

اخى العزيز جزاك الله خيرا على مجهودك ووقت تم المطلوب ووصلت المعلومه جزاك الله كل الخير