إبراهيم ابوليله

استاذ احمد نفس المشكله جرب انت فتح الملف المرفوع فى المشاركه1 ........................................ قم برفع الملف كاملا غير منقوص تقبل تحياتى

اخى ممكن تعيد رفع الملف لانه لايفتح معى تقبل تحياتى

اخى نايف تقبل تحياتى

اخى ياسر منور المشاركه تقبل تحياتى

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

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد ..................................................... ********************** نقدم اليوم درسا فى شرح كيفية استخدام conditional formatting فى البحث وتظليل الخليه التى تطابق نطاق البحث كما فى الصوره كما تشاهد فى الصوره اننا لدينا جدول بيانات به مجموعه من الاعمده وان الخليه D14 مظلله باللون الاصفر وذلك لانها كما يتضح فى الصوره تطابق الخليه C6 ولمعرفة كيفية تنفيذ ذلك تابع الشرح فى الصوره الاتيه قم بانشاء جدول بيانات كما فى الصوره الاولى ثم قم بتحديد الجدول بالكامل بداية من B8:E14 ثم اتبع الشرح الموجود فى الصوره =AND($C$6<>"",$C$6=B8) الان قم بتطبيق المثال على ملف من عندك وقم بتغير الاسم الموجود فى الخليه C6 الى اى اسم موجود داخل الجدول وستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى. ........................................... الدرس القادم. كيفية استخدام conditional formatting فى البحث وتظليل السطر الخاص بالخليه التى تطابق نطاق البحث

اخى ياسر مشكورا على التوضيح تقبل تحياتى

اخى عبد الرجمن الموضوع بسيط قم باستبدال الكود الاتى Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("المشتريات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.ComboBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox1.Value Me.ComboBox1.Value = "" Me.TextBox1.Value = "" Me.TextBox1.SetFocus End Sub بالكود التالى Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("المشتريات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.ComboBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox1.Value Me.ComboBox1.Value = "" Me.TextBox1.Value = "" Me.ComboBox1.SetFocus End Sub وبذلك يكون الخطأ فى السطر التالى Me.TextBox1.SetFocus تقبل تحياتى

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

اين انت اخى واستاذنا الفاضل شوقى

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

اخى هانى موضوع جميل واكواد اجمل تقبل تحياتى

أخى قم بتغير الكود الخاص بك الى الكود الاتى Sub tarheel() LastRow = Range("A10000").End(xlUp).Row + 1 LR = Range("b10000").End(xlUp).Row + 1 For r = 5 To LR If Cells(r, 2) = Range("b2") Then MsgBox "This Item Name already exist, No shift will done": Exit Sub Next Cells(LastRow, 1).Value = Range("A2").Value Cells(LastRow, 2).Value = Range("B2").Value Cells(LastRow, 3).Value = Range("C2").Value Range("A2:C2").Select Selection.ClearContents Range("A2").Select End Sub تقبل تحياتى

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

اخى هانى هناك خطأ يحدث الخطأ فى هذا السطر LockWindowUpdate Application.VBE.MainWindow.hwnd ارجو التوضيح

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

اخانا الفاضل رؤوف ابا الاكسيل يسعدنا ويشرفنا جميعا ان تكون معنا وسط اولادك-اخوانك ادام الله عليك الصحه والعافيه وزادك من فضله وعلمه

اخى واستاذنا شوقى اشكرك على الرد والاهتمام بارك الله فيك ولكن واضح اننى لم استطع توصيل طلبى اليك انا عارف ان السطر الاتى If UCase(Ary(i, 2)) Like d Then هو السطرالخاص بالبحث فى العمود الثانى ولكن نفترض ان العمود الثانى به ارقام والعمود الاول به اسماء وعند البحث بالرقم داخل الكومو تاتى البيانات ثم عند اختيار مانريده يظهر الاسم ( الخاص بالعمود الاول) داخل الكومو بوكس وانا اريد اظهار الكود او الرقم الذى بحثنا به( الخاص بالعمود الثانى) بمعنى ان يكون عمود البحث هو العمود الثانى وان البيانات التى ستظهر داخل الكومو بعد البحث هى بيانات العمود الثانى ................................................................................... ثانيا هل يمكن اظهار البيانات فى التيكست بمجرد الكتابه داخل الكومو دون الحاجه الى الضغط للاختيار ................................. ارجو الا اكون اثقلت عليك تقبل تحياتى

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

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

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

اخى ياسر طالما اننا قمنا بفك حماية محرر الاكواد اذا يمكننا استخدام هذا الكود ايضا لفك حماية الاوراق Sub PasswordBreaker() ' ßæÏ Ýß ÍãÇíå ÇáæÑÞå 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) ActiveWorkbook.Sheets(1).Select Range("a1").FormulaR1C1 = 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 تقبل تحياتى

اخى ياسر كود جميل طبعا واكثر من رائع جزاك الله خيرا ولكن ماذا اذا اكان الملف محفوظ بامتداد مثلا xlsm xlsb تقبل تحياتى

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

اخى جلال منور المشاركه تقبل تحياتى