Yasser Fathi Albanna

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

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

أخي الحبيب م.ياسر جزاك الله خيرا على كل عمل تقدمه ليعود بالنفع على إخوتك...وفي المحصلة كل عملك لك " لها ما كسبت وعليها ما اكتسبت" اللهم اجعل كتابه في عليين...آمين. أعذرني ﻷني لم أنزله بسبب استخدامي للهاتف للتواصل مع أحبتي ...تقبل تحياتي العطرة.. الأستاذ القدير / محمد حسن مرورك دائما يبعث فى روح جميلة تشجعنى دائما على الإستمرار شكرا لك ولدعائك الطيب وجزيت بما دعوت به من خير لى بارك الله فيك

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

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا وكنتم جميعا فى أحسن حال أتقدم إليكم اليوم بمعادلة جميلة جدا جدا تقوم بعمل بحث فى عمود عن أول حرف عن طرق وضع الحرف المراد إظهار النتائج التى تبدأ بهذا الحرف فى خلية ما فيظهر فى العمود المقابل كل الاسماء التى تبدأ بهذا الحرف المعادلة معادلة صفيف يعنى الضغط على Ctrl+Shift-Enter وليس Enter {=IFERROR((IF(ROW()=2;INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT($A$1:$A$100;1)))));0)));((INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT(INDIRECT(IF(C1="";"";"$A$"&(MATCH(C1;$A$1:$A$101;0)+1))&":$A$100");1)))));0))+(MATCH(C1;$A$1:$A$101;0)))))));" ")} مرفق ملف به المعادلة والتنفيذ أرجوا من الله العلى القدير ان يستفاد منه الجميع Find.rar

السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع ...ولكن ليتك لونت الخلية لتميز الخلية التي تحتوي على القائمة المنسدلة "$A$2" .والسلام عليكم. الأب والأستاذ القدير / محمد حسن المحمد يشرفنى دائما مرورك الجليل شكرا لدعائك الطيب

الأستاذ القدير / محمد حسن المحمد شكرا لمرورك العطر دائما على موضوعاتى وتشجيعك الدائم لى تقبل خالص تحياتى وتقديرى جزاكم الله خيرا اخي الفاضل .. فعلا كود متميز شكرا لك أخى الفاضل / أحمد الحاوى بارك الله فيك

شكرا لك أخى الحبيب زيزو ربنا يبارك فيك شكرا لمرورك

شكرا جزيلا أخى KHMB وشكرا لدعائك

شكرا لدعائك الطيب أخى وائل

بوركت أخى الفاضل / وائل الأسيوطى لمرورك العطر جزيت بمثل ما دعوت به تقبل تحياتى وتقديرى

أخى الحبيب الغالى / عبد العزيز السكرى شكرا لمرورك الطيب دائما الشكر لله أولا وجزيت بمثل ما دعوت به لى تقبل خالص تحياتى وتقديرى

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

السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم كود يقوم بتكبير القائمة المنسدلة بمجرد الوقوف داخل الخلية الموجود بها القائمة المنسدلة أرجوا أن ينال إعجابكم جرب إضغط على الخلية A2 وشاهد بنفسك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub تكبير القائمة المنسدلة.rar

السلام عليكم ورحمة الله وبركاته أحبائى فى الله أقدم لكم اليوم كود يوضع فى حدث الشيت المراد فك حمايته يقوم بإلغاء الحماية عن الشيت Sub PasswordBreaker() 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

ألف ألف مبروك أخى الفاضل أ / أبو عيد على الترقية المستحقة مع مزيد من التقدم والرقى

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

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

دائما رائع أخى الغالى / مختار جزاك الله كل الخير على كل ما تقدمه تقبل منى خالص تحياتى وتقديرى

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

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

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

أ / محمد الريفى حبيبى الغالى تقبل خالص تحياتى وتقديرى على هذه الأعمال والإضافات الرائعة جزاك اللع خيرا

واصل جزاك الله خيرا رائع

جزاك الله خيرا ومرحبا بين إخواتك نورت المنتدى