ياسر خليل أبو البراء

أخ محمد صالح جزاكم الله خيراً ربنا يزيدك علم وينفع بيك أخوك أبو البراء

الأخوة المشرفين جزاكم الله على تثبيت الموضوع وأرجو أن أكون إن شاء الله عند حسن ظنكم بي أخ سالم جزاكم الله خيراً على التفاعل معنا في هذه الدورة وأدعو الله أن يجعل ذلك في ميزان حسناتنا يوم القيامة ألأخ هادي محمد المأمون جزاكم الله خيراً على المرور الكريم وإن لشرف لي وأيما شرف إن كلماتك وإن قلت لهي دافعة لي للإستمرار في هذا العمل الأخ يحيى أرجو منك المواظبة والاستمرار وعمل الواجبات مش معقولة حنعفي الأستاذ هادي وحنعفيك إنت كمان!!! أخوكم أبو البراء

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

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

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

السلام عليكم ورحمة الله أخي شوقي ( إن كان هذا هواسمك ) أهلاً بك بين إخوانك إليك الشرح كما طلبت لاتنسانا بدعوة بظهر الغيب أخوك أبو البراء Printing_Explain.rar

السلام عليكم ورحمة الله أخي شوقي ( إن كان هذا هواسمك ) أهلاً بك بين إخوانك إليك الشرح كما طلبت لاتنسانا بدعوة بظهر الغيب أخوك أبو البراء

جزاكم الله خيراً أخ محمد صالح على هذه المعلومات القيمة أرجو الله أن يجعل أعملك صالحة ولوجهه خالصه سؤال : تظهر هذه الحروف الغريبة الخاصة باللغة العربية في رسائل عبر الإيميل وفي بعض البرامج هل من حل لهذه المشكلة؟؟؟ أخوك أبو البراء

ظهرت الرسالة في الكود بحروف غريبة فقمت يتغيير الكود كالتالي: Private Sub Worksheet_Change(ByVal Target As Range) If HasValidation(Range("ValidationRange")) Then Exit Sub Else Application.Undo MsgBox "The operation has been cancelled." & _ "As data validation rules were about to be deleted.", vbCritical, "YasserKhalil" End If End Sub Private Function HasValidation(r) As Boolean On Error Resume Next x = r.Validation.Type If Err.Number = 0 Then HasValidation = True Else HasValidation = False End Function

الأخ new4a جزاك الله خيراً على هذه المعلومة الجديدة التي أغدقت بها علينا الداعي على ما أعتقد أخي الحبيب أن البرنامج ربما يستخدمه الآخرون ويمكن أن يقوموا بعمليه النسخ عمدأ أو بدون قصد مما قد يؤدي كما قلت إلى مسح التحقق من الصحة الأخ obad قمت بالبحث والتنقيب إلى أن وجدت الحل أولاً قم بتسمية الخلايا التي فيها "قواعد التحقق من الصحة" باسم ValidationRange فقط الخلايا التي بها تحقق من الصحة ثانياً قم بفتح الـ VBE وانقر نقراً مزدوجاً على الورقة الأولى التي بها الخلايا المعنية والصق الكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) If HasValidation(Range("ValidationRange")) Then Exit Sub Else Application.Undo MsgBox "Êã ÅáÛÇÁ ÂÎÑ ÚãáíÉ ÞãÊ ÈåÇ." & _ "ÅÐ ÃäåÇ ßÇäÊ Úáì æÔß ãÓÍ ÞæÇÚÏ ÇáÊÍÞÞ ãä ÇáÕÍÉ ¡ ãä ÝÖáß Þã ÈÇáßÊÇÈÉ íÏæíÇð.", vbCritical, "YasserKhalil" End If End Sub Private Function HasValidation(r) As Boolean On Error Resume Next x = r.Validation.Type If Err.Number = 0 Then HasValidation = True Else HasValidation = False End Function أرجو التجربة والإفادة أخوك أبوالبراء رابط دورة للمبتدئين في عالم البرمجة http://www.officena.net/ib/index.php?showtopic=29207&st=0

مرحباً بك أخ يحيى في دورتنا المتواضعة وأرجو أن تتواصل معنا أخي سالم الصبر بعض الشيء حتى نتقن ما قد مضى وياريت لو فيه أي استفسارات أو أسئلة عشان نؤكد المادة العلمية التي تعلمناها أخوكم أبو البراء

السلام عليكم أخي أبو أسامة ولا أروع ولا أجمل أخوك أبو البراء

أخي الكريم صفوت ماتزعلش مني إنت سؤالك مش محدد من البداية ياريت يكون طلبك بعد كدا أوضح شوية لا تزعل لإنه العتاب بيكون بين الأحباب طلبك الأخير كما فهمت أنك تريد تنفيذ الماكرو بطريق آخر غير طريق الزر : ضع الكود التالي في الحدث Worksheet_Change Private Sub Worksheet_Change(ByVal Target As Range) hide_all End Sub أخوك أبو البراء

أخي Bosh إليك رابط الموضوع الذي حصلت على البرنامج من خلاله http://www.officena....showtopic=29377 أخوك أبو البراء

الأخ mas123 أود أن أعرف اسما لك نناديك به وأتمنى أن تلتحق بدورتنا المتواضعة علك تفيد وتستفيد الدورة على هذا الرابط: http://www.officena.net/ib/index.php?showtopic=29207&st=0 أخوك أبو البراء

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

إخواني الأحباب إإليكم الحل بالكود لا تنسونا بالدعاء YasserKhalil.rar أخوكم أبو البراء

لطفاً ارفق ملف أخوك أبو البراء

الأخ صفوت جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If IsNumeric(Range("M3")) Then Cells.Select Selection.EntireRow.Hidden = True Selection.EntireColumn.Hidden = True Else MsgBox "That's not anumber" Cells.Select Selection.EntireRow.Hidden = False Selection.EntireColumn.Hidden = False Range("M3").Select End If End Sub أخوك أبو البراء

السلام عليكم ورحمة الله وبركاته أخي الكريم صفوت اكتب الكود التالي في الحدث wroksheet_change Private Sub Worksheet_Change(ByVal Target As Range) If Range("M3") = 3 Then Cells.Select Selection.EntireRow.Hidden = True Selection.EntireColumn.Hidden = True End If End Sub اكتب القيمة 3 في الخلية M3 وشوف التيجة أخوك أبو البراء

السلام عليكم جميل أخ سالم بس بردو إنت بتستخدم مسجل الماكرو ( مش قلتلك تذاكر الدروس كويس) ممكن نختصر الكود في سطرين ActiveCell.Select Selection.Copy Destination:=Sheets("scc2").Range("C5") وممكن كمان في سطر واحد أيوا في سطر واحد !!!!!!! ActiveCell.Copy Destination:=Sheets("scc2").Range("C5") االأخ mas123 جزاكم الله خيراً على الإضافة الخاصة بتفريغ الحافظة أخوكم أبو البراء

تسلم الأيادي أخ أيسم أخوك أبو البراء

أهلاً بك أخي Itgroup في المنتدى العظيم منتدى أوفيسنا أخوك أبو البراء

الأخ mas123 جزاكم الله خيراً على هذه الهدية الرائعة أخوك أبو البراء

السلام عليكم جزاكم الله خيراً أخي hben على هذا البرامج الرائع حقاً جعله الله في ميزان حسناتك يوم الدقيامة الأخ خلف إليك كلمات السر للملفين الملف الثاني ( خاص جداً ) 234653 ************ الملف الأول (خاص بالمحل) 234653 TZDVEUTILTUYRWS أخوك أبو البراء