هشــــام الســـورى

المطلوب جمع اللون الاصفر بالصف

اللون الاصفر معمول من CONDITION FORMAT

جمع الخلايا الملونة.rar

6 ساعات مضت, الصـقر said:

استاذى الفاضل / اتش

يرجى الالتزام بقواعد المنتدى

عنوان الموضوع لا يعبر عن الطلب

يعنى مثلا تخلى عنوان الموضوع " مطلوب عمل تقرير يعتمد على شرطين "

صدقنى عنوان زى ده هيجذب الاساتذه للموضوع وقتها تلاقى الحل فى اسرع وقت

وكمان زميلك واخوانك بالمنتدى فى عملية البحث يقدرو بعد كدا يستفيدو من الموضوع لان اخوانك هيكتبو فى البحث كلمة " تقرير" ستظهر

كل الموضوعات التى يحتوى عنوانها على كلمة تقرير وبكدا يبقى انت استفد وغير استفاد

ارجوا ان يتسع صدرك لما قلت واسف لازعاجك ولكن ما قلته هو حرصا على المصلحه العامه لكل الاعضاء والاستفاده تكون اعم واشمل

تقبل تحياتى

=======================================

 

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

شكرا على تعبك 

17 ساعات مضت, الصـقر said:

اخى الفاضل الاستاذ / اتش

جرب المرفق هل هو طلبك

تقبل تحياتى

=============================

 

الجدول.zip

متشكر جدا جدا جدا 

واسف على تعبك 

هو بالفعل المطلوب

جزاك الله كل خير

ساعدونى فى الملف دة بالله عليكم

يوجد 2 شيت

الاول ROSTER  : ودة بينزل فى ال الايام وكل يوم بة رمز الرمزة بيعنى وقت معين لدينا

والثالنى حضور وانصراف :  والمطلوب فية عند كتابة الرمز وليكن J فى اليوم 1  يأتى بالاسماء كما هو فى جدول التشغيل ROSTER

الجدول.rar

في 1/26/2016 at 18:02, رجب جاويش said:

السلام عليكم

تفضل أخى

 

TABLE WITH PROTECT 1.rar

شكرا ياباشا 

رجب جاويش

19 ساعات مضت, رجب جاويش said:

بعد اذن الأستاذ الفاضل / ياسر العربى

ولاثراء الموضوع

بناءا على فكرة أخى الفاضل أحمد الفلاحجى

مارأيكم بهذه الفكرة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Application.WorksheetFunction.CountA(Range("A:A")) + 2
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Sheet1.Unprotect "123"
ActiveSheet.ListObjects("Table1").Resize Range("$A$2:$N" & x)
Range("$A$2:$N" & x).Locked = False
End If
Sheet1.Protect "123"
End Sub

 

TABLE WITH PROTECT 1.rar

السلام عليكم 

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

حماية عمود الجمع بالخلية.rar

شكرا  

أحمد الفلاحجى

شكرا

سليم حاصبيا

بس حاولت افهم ملفات الاستاذ احمد الفلاحجى بس مفهمتهاش جت ازاى

والاستاذ سليم حاصبيا  انا حملت الملف تمام بحضرتك عملها كمبو بوكس وانا كنت عايزها عادية datavalidation  لانها كتر من 100 List

فلو ينفع تتطبق على الملف المرسل  SEARRCH>.rar

لايوجد معادلة بهذا الشكل

؟

53 دقائق مضت, رجب جاويش said:

أخى الفاضل / أتش

الحمد لله أن تم المطلوب

جزاك الله خيرا

 

شكرا لحضرتك واسف على تعبكم

1-مجرد اختيار المحافظة من الDATA VALIDATION  1  ياتى الاسماء الى بالمحافظة

(قائمة منسدلة من قائمة اخرى )

>>>>> 2-محتاج مجرد كتابة حرف a  فى Data validation  يكتب ahmed   اتوماتيك

او مثلا S   يكتب sameh  لسهولك البحث  لان البحث اليحتوى على اكثر من 3000 اسم 

اية المعادلة الى ممكن تعملها كدة

search.rar

منذ ساعه, رجب جاويش said:

بعد اذن الأستاذ الفاضل / ياسر العربى

ولاثراء الموضوع

بناءا على فكرة أخى الفاضل أحمد الفلاحجى

مارأيكم بهذه الفكرة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Application.WorksheetFunction.CountA(Range("A:A")) + 2
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Sheet1.Unprotect "123"
ActiveSheet.ListObjects("Table1").Resize Range("$A$2:$N" & x)
Range("$A$2:$N" & x).Locked = False
End If
Sheet1.Protect "123"
End Sub

 

TABLE WITH PROTECT 1.rar

بسم الله

ربنا يكرمك ياباشا وشكرا على تعبكم واهتمامكم

هو المطلوب جزاك الله كل خير شكرا

14 ساعات مضت, أحمد الفلاحجى said:

فكره جميله جزاك الله خيرا اخى ياسر 

بالتوفيق اخى الفاضل

21 ساعات مضت, ياسر العربى said:

تفضل اخي

اضغط علي اول خليه للكتابة يتم الغاء الحماية

بعد اخر خلية في الكتابة اضغط انتر يتم تفعيل الحماية 

بمعني

نفترض ان الصف 16 فارغ  نضغط علي A16 يتم الغاء الحماية وعند الوصول ل N16 بعد الكتابة طبيعي اضغط انتر ينزل علي N17 ويتم تفعيل الحماية 

وهكذا

 

TABLE WITH PROTECT.rar

فكرة جميلة فعلا يا اخى ياسر

بس فى مشكلة انى مش مرتبط احط اخر خانة كل واحد ممكن اكتب خانة واحدة بس

هل ينفع تتحل مجرد عمل انتر 

برجاء ايجاد المرفق فيديو اضاح كامل ياباشا عشان حضرتك مفهمتنيش بردة

وشكرا واسف على تعب حضرتك

aa.rar

الف شكر لحضرتك بس حضرتك مفهمتنيش

انا عايز اعمل protect للشيت

مع امكانية الاضافة والتعديل وزيادة row وينتمى للجدول

شكرا

يعنى اكتب اى اسم بعد اخر اسم ينتمى عادى للجدول 

لاتتم هذة العملية الا لو عملت unprotect للشيت

بمعنى انى عايز اضيف اسم بعد اخر اسم وانا عامل protect للشيت

وينتمى للجدول

لا تتم العملية السابقة الا بعد عمل un protect sheet

9 دقائق مضت, سليم حاصبيا said:

جرب هذا الملف

 

 

TABLE WITH PROTECT salim.rar

بمعنى انى عايز اضيف اسم بعد اخر اسم وينتمى للجدول  وانا عامل protect sheet

لا تتم هذة العملية معى الا وانا عامل unprotect sheet

كيفية حماية شيت بة TABLE

امكانية الاضافة بعد عمل PROTECT 

PASS 123

ارجو شرحها شكرااا

TABLE WITH PROTECT.rar

هل يجوز تشغيل البرنامج محتوى على VBA CODES

على الانترنت مباشر فقط حتى يتم عمل لة للينك شير ( رفعة على الانترنت ) 

وعمل مستخدمين قراءة فقط ومستخدمين قراءة وتعديل

بس مش GOOGLE DRIVE لان مش بيفتح 

شكرا

لو فى حاجة تانية تبقى درس برضة ارجو الافادة والنبى ( فيرس فيرس ) المهم درس

شكرا يا جماعة بس هقولكم على الموضوع بالظبط

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

 وحبيت اديلو درس   بس افرمتلة c   او اوقع لة النسخة بس معملش زية وافرمتلة الجهاز كلة

بس دى الحكاية 

لان مديرى هو الى قالى اعملة برنامج فعملة غصب عنى !!!

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

ارجو الافادة بكود لعمل فورمات c:

او حذف الويندوز عن طريق هذا الكود 

شكرا

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

يطلب منى VBA PROJECT PASSWORD

بكنسل اكثر من 15 مرة عشان تختفى

ومش ععارف احلها ازاى هل دى مشكلة من عندى

الرسالة دى مش بتروح الا لو فتحت باسورد المشروع

تم عمل برنامج صغير بالاكسيل وتم عملة بالفورم VBA

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

1- هل يوجد اى كود اضعة لا يفتح الملف حتى لو قفل الماكرو ؟ 

لا يفتح البرنامج الا بعد فتح الماكرو

2- محتاج كود منع اخذ الملف كوبى لجهاز اخر .

شكرا جدا اخى حسام هو المطلوب 

شكرا على تعبك

كيفية عمل فورم بها label  مجرد فتح الفورم يبدا العد تصاعدى من 1 :100

وcommand  مجرد الضغط يقف العد