عبدالله المجرب

السلام عليكم ما شاء الله عليك استاذنا الكبير الخالدي كود مميز وبعد اذنك هذا تعديل على الكود ليقبل الحروف الصغيرة والكبيرة باللغة الانجليزية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 9 Then On Error GoTo 10 If Target = "" Then Exit Sub If Len(Target) < 12 Then GoTo 10 If Len(Target) > 14 Then GoTo 10 If Asc(Mid(Target, 1, 1)) < 65 Then GoTo 10 If Asc(Mid(Target, 1, 1)) > 192 Then GoTo 10 If Asc(Mid(Target, 2, 1)) < 65 Then GoTo 10 If Asc(Mid(Target, 2, 1)) > 192 Then GoTo 10 If Asc(Mid(Target, 3, 1)) < 65 Then GoTo 10 If Asc(Mid(Target, 3, 1)) > 192 Then GoTo 10 If Mid(Target, 4, 7) * 1 > 0 Then GoTo 10 If Mid(Target, 11, 1) <> "/" Then GoTo 10 If Mid(Target, 12, 3) * 1 < 1 Then GoTo 10 GoTo 20 10 Target = "" MsgBox "إدخال غير صحيح" 20 End If End Sub

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

السلام عليكم اخي الفاضل اليك هذا الرابط http://www.officena....topic=37603&hl= وقد قمت بعمل تعديل بسيط في الكود ليتناسب وطلبك شاهد المرفق فورم بحث في جريدة الرياض.rar

سيصبح الكود هكذا Sub Abu_Ahmed_Delet() Dim CL As Range For Each CL In [H4:H1000] If Application.CountIf([J4:J1000], CL) = 0 Then CL.Offset(0, 1) = "X" Next End Sub

غير مفهوم حتى بعد تمكينه لا اعرف حل لهذه المشكلة

ارجو تكرم الاستاذ دغيدي بالقيام بتنقيح وتعديل الموضوع

اخي محمود كن على ثقة انك لن تعاقب على فعل الخير بل تُكرم والاولى كان ان تقوم بعد ردك ان تنوه الى طلب تعديل العنوان من قبل الاشراف وليس التنويه الى مخالفة الموضوع وحسب او (وهو الأفضل) بعد الرد ان تقوم بالضغط على زر تقرير اسفل المشاركة وتعلق بأن العنوان مخالف ليتم تعديله شاهد الصورة

السلام عليكم http://www.officena.net/ib/index.php?showtopic=42130&hl=

السلام عليكم الكود من أوله الى اخرة للاستاذ خبور (عبدالله باقشير) تم تحويره ليناسب طلبك شاهد المرفق إضافة تكست بوكس بالرقم الذي كتبته.rar

ما رايك ان تجرب وضع Application.Calculation = xlManual في بداية الكود و Application.Calculation = xlAutomatic في نهايته

انا مع مقترح اخي ابو ردينة بتفعيل موضوع الاستاذ طارق وادارته بنفس طلب الاخ عمرو والله اعلم

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

جرب هذا الكود Sub Abu_Ahmed_Delet() Dim CL As Range For Each CL In [H4:H1000] If Application.CountIf([J4:J1000], CL) = 1 Then CL.Offset(0, 1) = Empty Next End Sub

يمكن عمل ذلك بكود ضع مرفق لما تريد

شاهد المرفق استفسار.rar

جرب المرفق نموذج موازنة.rar

جرب البحث عن رقم 6 مثلاً ثم اضغط دبل كليك على احدى نتائج البحث ستجد انه تم اختيار خانة الرقم المختار واغلاق الفورم

total.rar قمت بعد اذن العلامة خبور بإضافة كود لاختيار الكود بعد الضغط على دبل كليك في اللست بوكس

ما شاء الله تبارك الله ابداع ما بعده ابداع سلمت يمينك ابا علي على هذه التحفة الرائعة

لم افهم وعند عمل حماية للورقة لا يمكن ادراج اي صف بالطريقة اليدوية

كلمة المرور صحيحة هذا الملف بدون حماية ما المطلوب من اين تريد الترحيل والى اين واذا دمجت الفواتير الى فاتورة واحدة ما شروط الطباعة المبيعات 1.rar

السلام عليكم اليك بعض الروابط http://www.officena.net/ib/index.php?showtopic=15722&hl= http://www.officena.net/ib/index.php?showtopic=150 http://www.officena.net/ib/index.php?showtopic=40690

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

السلام عليكم تم التعديل كما تم اضافة المريع الدائري بدل القائم الثالث.rar

بارك الله فيك استاذ سعيد بيرم على هذه الاعمال الرائعة