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

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

السلام عليكم تم إضافة كود في حدث التغيير لورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [C2:C10]) Is Nothing Then If Target = Target.Offset(0, -1) Then MsgBox " قسم مكرر يرجى التغيير": Target = "" End If End Sub اليك المرفق ملف.rar

حياك الله اخي الكريم تمت الاجابة

السلام عليكم إستبدل كود زر الحفظ في البورم بهذا Private Sub CommandButton1_Click() Dim iRow As Long, Cl As Range, Abu_Ahmed As Boolean Dim ws As Worksheet T = [B10000].End(xlUp).Row Set ws = Worksheets("ورقة1") iRow = ws.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row '================================================================================== For Each Cl In Range("B2:B" & [B10000].End(xlUp).Row) If Cl = Me.TextBox2.Value Then If Cl.Offset(0, 1) = Me.TextBox3.Value And Cl.Offset(0, 2) = Me.TextBox4.Value And _ Cl.Offset(0, 3) = Val(Me.TextBox5.Value) Then Abu_Ahmed = True: GoTo 1 End If Next 1 If Abu_Ahmed Then MsgBox "البيانات موجودة مسبقاً": GoTo 2 Else ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value End If '===================================================================================== Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox2.SetFocus 2 End Sub

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

متابع لابداعاتكم استاذنا الفاضل ابو خليل

اليك ملفك بعد التعديل اظهار التاريخ بشكل تلقائي في userform.rar

ضع مثال

اليك الطريقة http://www.officena.net/ib/index.php?showtopic=31250

كعادة أوفيسنا تعددت الحلول والغرض واحد

باسم الله الشافي باسم الله المعافي باسم الله الذي لا يضر مع اسمه شيء في الارض ولا في السماء وهو السميع العاليم اللهم إنا ندعوك بالشفاء لإستاذنا نارت لبوزو اللهم داوه بدوائك واشفه بشفائك واغنه بفضلك عمن سواك ومتعه بالصحة والعافية والبركة في العمر والرزق

كيف يميز الكود بين المدخلات القديمة والجديدة؟؟؟

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

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

ما هي باسوورد فك الضغط

شكراً أخي زمزم

ضع ملف مرفق

ضع المرفق وستجد الحل

اعمل شير للملف وستظهر لك رسائل التعديل

اخي سعد هذا السطر به الخلل If .Cells(R, 2).Value < .Cells(R, 2).Value Then انت اشترطت ان اذا قيمت الخلية ولنفرض (B6) أكبر من قيمة نفس الخلية ولذلك لم يتحقق الشرط لان الخلية تساوي نفسها ولا يمكن ان تكون اكبر كما ان التنسيق الذي سيتطبق سيتطبق على الخلية الاخيرة فقط هل ممكن ان تشرح ما تريد لنعدل لك الشرط

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

تواجهني نفس الإشكالية فهل من حل

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

فكرة جميلة جداً

بالنسبة للطلب الأول هذا كود للأستاذ ماس (محمد صالح) ضعه في زر أمر ونفذ الكود Sub Abu_Ahmed() Set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("سيتم كتابة 5 في الخلية A1! بعد ثلاث ثواني", 2, "تنبيه", 65) [A1] = 5 End Sub