Ali Mohamed Ali

أهلا بك اخى الكريم فى المنتدى لماذا لا تقوم بإستخدام خاصية البحث فى المنتدى قبل طرح مشاركتك تفضل لك ما طلبت هنا https://www.officena.net/ib/topic/66357-برنامج-العطاء-للعقارات/?tab=comments#comment-431498

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

يمكنك زيادة وكتابة اى مدى تريد هنا على المدى القديم المعرف سابقا وسوف يعمل الكود بكل دقة على المدى الجديد فقط كما بالصورة عليك بعمل هذه الفصلة , بين كل مدى واخر فى التعريف

تفضل لاحظ ايهما تريد الحل بالعمود D ام الحل الموجود بالعمود E توضيح2.xls

أخى الكريم لماذا لا ترى الملف اذا رأيت الملف لوجدت ان مدى معرف مسبقا وهذا هو الملف protect non empty data with Pass word.xlsm

أهلا بك اخ كريم فى المنتدى تفضل توضيح.xls

انا لا اجد فى الملف سوى اسماء الطلبة اين باقى البيانات التى يتم جلبها عندما تبحث بالإسم الملف ناقص استاذى الكريم

اين باقى صفحات الملف

يمكنك مشاهدة هذا البرنامج ACCOUNT SOFTWARE W-COST CENTERS - V1.1.rar

أخى الكريم اين الملف ؟!!!!!!!!!!!

بارك الله فيك

جزاك الله كل خير-أحسنت

أخى الكريم لما لا تستخدم خاصية البحث فى المنتدى قبل رفع المشاركة فهناك العديد من المشاركات تناولت هذه المواضيع ومنها : https://www.officena.net/ib/topic/85960-طلب-برنامج-مخازن/?tab=comments#comment-545203 https://www.officena.net/ib/topic/81355-طلب-مساعدة-في-يرنامج-ادرة-مخزن-بسيط/?tab=comments#comment-518943 https://www.officena.net/ib/topic/80160-تسيير-مخزن/?tab=comments#comment-512690 بارك الله فيك

بارك الله فيك-أحسنت

أحسنت استاذ سليم بارك الله فيك وجعل الله هذا العمل فى ميزان حسناتك

اهلا بك اخ كريم فى المنتدى جرب هذا اسم المستخدم : Mrhb كلمة السر : 1111 الصادر والوارد.mdb

جرب هذا الموضوع لستاذنا الكبير محمد طاهر https://www.officena.net/ib/files/file/100-مثال-بالاكسيل-على-عمل-التحليل-النوعي-لمخاطر-المشاريع/

تفضل انظر الى الصورة حتى تقوم بوضح الكود فى حدث الورقة وهذا هو الكود الذى سيتم وضعه: Dim tt As Variant Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("PRot_range")) Is Nothing And Target.Address <> "$A$1" Then m = Target.Count c = [AA1] k = tt If IsEmpty(k) Then GoTo 1 If m * c >= 1 Then Application.EnableEvents = False my_pass = Application.InputBox(" áÇ íãßä ÇáÊÚÏíá Ýí åÐå ÇáÎáíÉ.... " _ & Chr(10) & "ÇáÇ ÈÍÇáÇÊ ÎÇÕÉ ÊÊØáÈ ßáãÉ ãÑæÑ", "password") If my_pass = "pass" Then GoTo 1 Application.Undo Application.EnableEvents = True End If End If 1: Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) tt = Selection.Value End Sub

تمت الإجابة فى المشاركة الأخرى ورجاءا لا تقوم برفع مشاركتين لنفس الطلب جزاك الله كل خير

أخى الكريم لماذا لا تستخدم خاصية البحث فى المنتدى قبل رفع المشاركة فهناك موضوع مهم جدا عن ذلك الغرض لأستاذنا الكريم سليم حاصبيا وبه ملف ممتاز -وموجود هنا : https://www.officena.net/ib/topic/84508-حماية-الخلايا-غير-الفارغة-بواسطة-باسوورد/?tab=comments#comment-536608

اهلا بك اخ كريم فى المنتدى تفضل 10101g0101.xlsx

اهلا بك اخ كريم فى المنتدى لو ممكن رفع ملف للعمل عليه حتى تتمكن الأساتذة من المساعدة بارك الله فيك

احسنت استاذى الكريم بارك الله فيك

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

تفضل اقساط2.xlsx