احمد عبد الناصر

حسنا اسأذنك جرب هذا و ارفق رسالة الخطأ db1+++.rar

السلام عليكم جرب هذا اخبرني ان كان هناك جديد تحياتي db1++.rar

جرب tools macros security low

السلام عليكم استاذ كرتوتي استاذ خالد استاذ حمادة تحياتي لكم بارك الله فيكم و زادكم علما . ملاحظة :هذه الطريقة ليست الافضل و بالاخص عندمنا تزداد البيانات فالافضل هو فصل النص عن الارقام و الله اعلم

السلام عليكم هذه محاولة تعتمد في الترتيب علي جدول اخر . تحياتي Attendance_v1.1+.rar

السلام عليكم في هذه الدالة و لكن ان تساوي قيمتان تعطيهما نفس المركز . =RANK.EQ(S4,$S$4:$S$23,0) تحياتي

بصراحة لا اعلم السبب من الممكن ان يكون تمكين الماكرو هو السبب , ابحث عن كيفية تمكين الماكرو ل اكسيل 2003 و مفيش تعب و لا حاجة معاك لغاية ما تظبط باذن الله تحياتي

شاهد هذا try1.rar

قم بفك الضغط بحيث يكون -ملف الاكسيل و الاكسيس في نفس المجلد .

السلام عليكم جرب المرفق ملاحظة : ربما كان من الافضل ان تفصل كلمة فاتورة او سند في عمود و رقمهما في عمود اخر . تحياتي سجلات الحساب1+.rar

السلام عليكم جرب هذا تحياتي db1+.rar

السلام عليكم ورحمه الله وبركاته ارفق ملف قاعدة البيانات حتي لو ببيانات وهمية . و الباقي سهل باذن الله تحياتي

السلام عليكم جرب ادخال رقم 1 او 2 او 3 او 4 في الخلية C6 هو كود ولسيت دالة ويعمل عند كتابة رقم الكمبيوتر في الخلية C6 ,علي ان يكون -ملف الصورة في نفس المجلد -اسم ملف الصورة يكون نفس رقم الكمبيوتر -صيغة ملف الصورة jpg تحياتي

السلام عليكم جرب هذا تحياتي م1+.rar

السلام عليكم جرب هذه =SUBSTITUTE(A1," ","")/10 تحياتي

السلام عليكم جرب هذا Private Const A_nm As String = "$B$12:$B$23" Dim i As Integer Private Sub CommandButton1_Click() For d = 2 To 7 Cells(i + 11, d + 1) = Me.Controls("textbox" & d).Text Next If Range(A_nm).SpecialCells(2).Count = i Then MsgBox " ( ÇäÊåÊ ÇáÈíÇäÇÊ ) ": Exit Sub TextBox1.Value = Sheets("Sheet1").Cells(i + 12, "b") i = i + 1 For d = 2 To 7 Me.Controls("textbox" & d) = "" Next End Sub Private Sub UserForm_Activate() CommandButton1_Click End Sub تحياتي

السلام عليكم بعد اذن استاذنا رجب جرب هذا Sub ragab3() 'ßæÏ ÇÓÊÎÑÇÌ ÈíÇäÇÊ Dim LR As Integer Dim LR1 As Integer Set WS = Sheets("57") Set WS1 = Sheets("58") LR = WS.Cells(Rows.Count, 1).End(xlUp).Row LR1 = WS1.Cells(Rows.Count, 1).End(xlUp).Row x = 10 For Each cll In WS1.Range("A10:A" & LR1) For Each cl In WS.Range("A5:A" & LR) If cl = cll Then Sheets("58").Cells(x, 2).Value = cl.Offset(0, 1).Value Sheets("58").Cells(x, 3).Value = cl.Offset(0, 2).Value Sheets("58").Cells(x, 4).Value = cl.Offset(0, 3).Value x = x + 1 Exit For End If Next Next End Sub تحياتي

السلام عليكم اخي صابر جرب المرفق تحياتي +التاريخ.rar

السلام عليكم جرب هذه المحاولة تحياتي qwq+.rar

السلام عليكم جرب استبدال If cl = C11 Then ب If cl = C1l Then تحياتي

السلام عليكم جرب المرفق اخي حسين تحياتي لك و لاكوادك بالنسبة للشرط فهي عاده عندي عند كتابة الاكواد . تحياتي المصنف1++.rar

حياك الله اخي عباد وزادك علما .

السلام عليكم تحياتي للاستاذ ابو حنين لاثراء الموضوع هذا حل اخر كنت اعمل عليه تحياتي Book1+.rar

السلام عليكم جرب المرفق ملاحظة : عند كتابه التاريخ يفتح الخليتين المجاورتين يغلق باقي الخلاية حتي لو فيهم بيانات . تحياتي المصنف1+.rar

السلام عليكم تحياتي للجميع -اولا كود ممتاز استاذ عباد -بالنسبة Dim i As Integer فلو وضعت في في امر الزر فسيعيد الكود تعريفها في كل مرة تضغط علي الزر اي سيجعل i في كل ضغطه زر تساوي 0 . اما بتعريفها في البداية فيحفظ قيمتها التي نغيرها .(طالما الفورم مفتوح و بعد غلقه ترجع 0 كالبدايه) والله اعلم