عبدالله باقشير

السلام عليكم عفوا نهاية كود زر البحث ButtonSerach_Click اضف السطر التالي: If RR Then Me.ListFind.ListIndex = 0 اما رسالة تاكيد الحذف فهي موجودة بالفعل....الا اذا كنت تقصد شي آخر تحياتي

السلام عليكم شاهد المرفق 2010 سيارات_12.rar

أخي الكريم // سليم والي الامام دائما واللهم يوفقك في شتى مجالات حياتك تقبل تحياتي

الحمد لله رب العالمين

السلام عليكم الطلب الاول : ممكن تعمل زر لكل ورقة طباعة الطلب الثاني : اضف هذا الكود الى اكواد الفرم Private Sub TextFind_AfterUpdate() ButtonSerach_Click End Sub تحياتي

السلام عليكم هل حملت الملف في رابط موضوع الفورم http://www.officena....showtopic=51955 حمل الملف وشاهد القوائم الموجودة فيه وانظر ما هو مكتوب في التعليقات واذهب الى القائمة صيغ واضغط على الزر ادراج اسماء وشاهد الاسماء الموجودة حينها ستعرف ما قصدته من شرحي

السلام عليكم اذا تريد التعديل فقط يكفي هذا Sub EditAdd() Dim m Dim id As Integer, j As Integer id = Val(UserForm1.TextBox8) m = Application.Match(id, Range("A:A"), 0) If Not IsError(m) Then For j = 2 To 7 Cells(m, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End Sub تحياتي

جزاك الله خير لكن لم ننتهي بعد ما غرضك من هذه الجزئية If flag = False Then For j = 1 To 7 Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If

السلام عليكم ما قمت به خطأ ولم تنفذ شي مما قلته لم تلغي الشرط بل استبدلته بشرط خطأ وحذفت اسناد القيمة للمتغير id والمفروض ان تغير اسنادها لتاكست رقم التسجيل ====================================== هذا ما قصدته Sub EditAdd() Dim emptyRow As Long flag = False i = 0 id = UserForm1.TextBox8.Value emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Do While Cells(i + 1, 1).Value <> "" If Cells(i + 1, 1).Value = id Then flag = True For j = 2 To 7 Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If i = i + 1 Loop If flag = False Then For j = 1 To 7 Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End Sub جرب

السلام عليكم انت عامل شرط لتنفيذ الكود وهو If UserForm1.ComboBox2.Value <> "" Then وايضا ياخذ قيمة البحث من ComboBox2 id = UserForm1.ComboBox2.Value عند البحث عن طريق TextBox1 أو TextBox مافيش قيمة في ComboBox2 جرب التالي: الغي الشرط واسند القيمة الى التاكست الذي فيه رقم التسجيل لان البحث يتم في هذا العمود حسب السطر التالي If Cells(i + 1, 1).Value = id Then تحياتي

السلام عليكم جزاكم الله خيراً استبدل هذا Private Sub kh_Format(iName As String, MyCel As Range) With Me.Controls(iName) .BackColor = MyCel.Interior.Color .TextAlign = 2 With .Font .Name = MyCel.Font.Name .Bold = True .Size = MyCel.Font.Size End With .Caption = "ع" .Caption = MyCel.Text End With End Sub جرب واشعرنا بالنتيجة

موضوع الفورم في الرابط http://www.officena....showtopic=51955 المرفق فيه 2003

لا هي ابسط مما تتصور هل تعرف تدرج اسم لمجموعة خلايا يعني تحدد مجموعة خلايا مكونة من عدة صفوف وعمود وتطلق عليها اسم مثلا "mydata" اذا عرفت تعمل هذا انتهت الحكاية يبقى ان تضيف تعليق على راس العمود الذي تريد تطبيق القائمة فيه وتكتب فيه mydata والسلام عليكم

السلام عليكم انقل الفورمين UFormChang + FormDate الى ملفك واعمل كود لزر فتح الفورم مثل المذكور اعلاه وحدد فيه اسم الورقة ورؤوس الاعمدة وعلشان تعمل قائمة سمي نطاق القائمة باسم وضع هذا الاسم في تعليق في راس العمود الذي تريد ان يظهر القائمة فيه شاهد رابط الموضوع مع الشرح http://www.officena.net/ib/index.php?showtopic=51955

هذا كود فتح الفورم في Module12 Sub kh_Show_UFormChang() On Error GoTo 1 With UFormChang .kh_SetAddrss "اليومية", "B6:S6" .Show End With 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End Sub المرفق 2010 HATSHIBSOUT 2014.rar

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

وايضا متغير الصفيف Arr محدد فيه بعد واحد يعني صف او عمود اما مسالة الخلية الواحدة مش مشكلة

انا اخذت ظني من مفهوم رسالة المنع MsgBox "يجب ان تحدد عاموداً واحداً فقط أو قسماً منه / أو صفاً واحداً فقط أو قسماً منه"

السلام عليكم اظن ان هذا الشرط If Rw = 1 And Cl = 1 Then يجب تعديله هكذا If Rw <> 1 And Cl <> 1 Then والله اعلم

الملف مغلق

السلام عليكم الخلاصة : لا يمكن تثبيت تاريخ اليوم بواسطة معادلة لان المعادلة تعمل باستمرار وستعطيك نفس تاريخ اليوم الحالي . تحياتي

السلام عليكم لا ادري هل هذا المطلوب والافضل ان تصمم صفحة الطباعة بالشكل الذي يناسبك ثم سنقوم بتعديل كود الطباعة ليتناسب معها المرفق 2010 برنامج متابعات الأقساط2014.rar ===========

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