محمد الورفلي1

السلام عليكم عليك بتجزئة الملف لخطوات ..حتى يتم مساعدتك خطوة بخطوة

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

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

بارك الله فيكم استاذ محمد واستاذ هشام ....... كلتى الحلين تمام

السلام عليكم كيف جمع عدد خلاياء بها قيمة فقط متفرقة بدالة COUNTA جمع خلاياء.xlsx

شوف ممكن تستفيد منها

السلام عليكم ... شكراً استاذ كريم تم التوصل لحل تغيير بسيظ في الكود الاصلي .. تم وضعة للاستفادة If Val(Me.TextBox1.Value) > Val(Me.TextBox2.Value) Then MsgBox "احذر سعر البيع اقل من سعر الشراء": Exit Sub

للرفع السلام عليكم . المطلوب . في الملف ايقاف استمرار عملية البيع في حالة قيمة البيع في التكست اقل من قيمة الشراء

السلام عليكم ورحمة الله في هذا الملف اريد منع البيع في حالة كان سعر البيع اقل من سعر الشراء مشكورين فورم1.xls

السلام عليكم ارجوا شرح الكود بالتفصيل وشكرا Sub sajida2() Dim lr As Long: Dim i As Long Dim j As Long: Dim k As Long Dim rng As String: Dim rng1 As Date: Dim rng2 As Date rng = [K3]: rng1 = [K4]: rng2 = [K5] k = 7 lr = Cells(Rows.Count, 3).End(xlUp).Row For i = 3 To lr If Range("c" & i) = rng And Range("d" & i) >= rng1 And Range("d" & i) <= rng2 Then For j = 5 To 8 Cells(k, j + 8) = Cells(i, j) Next j k = k + 1 End If Next i End Sub بين تاريخين.xlsm

السلام عليكم اريد دمج الكودين في حدث الورفة الكود الاول : عبارة عن قفل الخلية بعد الكتابة Me.[R1] Then Exit Sub If Not Application.Intersect(Target, Range("D4:q39")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "ÎáíÉ ããÊáÆÉ" End If الكود الثاني تلوين الصف والعمود النشط Application.ScreenUpdating = False Range("IP1").Value = Target.Address Application.ScreenUpdating = True دمج.xls

شكراً تمام التمام

السلام عليكم كيف جعل التكسيت لا يقبل الا كلمة اعدادي او كلمة ثانوي تقييد تكست بوكس بكلمة.xls

لم تعمل علي 2003

شكرا لك ممكن علي اوفيس 2003

السلام عليكم اريد اخر طالب تم تسجيل وليس اكبر رقم وشكراً جلب اخر رقم في عمود بشرط.xls

شكرا بارك الله فيكم -ابراهيم-الحداد/ -سليم-حاصبيا/

السلام عليكم كيف يتم توزيع رقم دراسي تلقائي ومختلف بين المرحلة الاعدادية والمرحلة الثانوية بحيث يكون اول طالب قام بالتسجيل من المرحلة الاعدادي رقمة هو 19101و الثاني رقمة 19102 وا اول طالب في المرحلة الثانوية يكون رقمة19201 والثاني 19202 وهم في نفس العمود رقم دراسي.xls

السلام عليكم عند تجربة الماكرو ووضع رقم في شريط البحث لم يستج لاستدعاء البيانات

المقصود من التسريع "هو اذا اردت استدعاء الاسم الموجود في الصف رقم "65532 " يستغرق وقت طويا جدا ً لجلب بيانات هذا الاسم المطلوب ان كان يوجد كود اسرع من هذا الكود ااو تعديله بارك الله فيكم Private Sub ComboBox3_Change() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual On Error Resume Next III = 5 Do Until Sheet2.Cells(III, "c").Text = "" If Me.ComboBox3.Text = Sheet2.Cells(III, "c").Text Then Cells(III, "c").Activate Me.TextBox1.Text = ActiveCell.Offset(0, -1).Text Me.TextBox133.Text = ActiveCell.Offset(0, 0).Text Me.TextBox132.Text = ActiveCell.Offset(0, 1).Text Me.TextBox11.Text = ActiveCell.Offset(0, 2).Text Me.ComboBox2.Text = ActiveCell.Offset(0, 3).Text Me.TextBox3.Text = ActiveCell.Offset(0, 4).Text Me.TextBox4.Text = ActiveCell.Offset(0, 5).Text Me.TextBox7.Text = ActiveCell.Offset(0, 6).Text Me.TextBox130.Text = ActiveCell.Offset(0, 7).Text Me.TextBox131.Text = ActiveCell.Offset(0, 8).Text Me.TextBox22.Text = ActiveCell.Offset(0, -2).Text e.ComboBox22.Text = ActiveCell.Offset(0, -2).Text Exit Sub End If III = III + 1 Loop MsgBox ("الكود الذى ادخلته غير صحيح") 'Me.TextBox2.SetFocus Me.TextBox1.Text = "" 'Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" 'Me.TextBox5.Text = "" 'Me.TextBox6.Text = "" Me.TextBox7.Text = "" 'Me.TextBox8.Text = "" 'Me.TextBox9.Text = "" 'Me.TextBox10.Text = "" Me.TextBox11.Text = "" 'Me.TextBox12.Text = "" 'Me.TextBox13.Text = "" 'Me.TextBox14.Text = "" Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub Book1669.rar

شكرا تمام

حتى لوكان قبل هذا الصف بــ 100 صف نفس النتيجة جرب للفائد لك

السلام عليكم في الفورم عند اضافة عدد السجلات الي عدد 65536 لم يتم الاستجابة للتعديل من قبل الكود Private Sub CommandButton8_Click() Sheets("data").Select On Error Resume Next Dim i As Integer For i = 5 To 65536 If Val(Me.TextBox22) = Cells(i, 1) Then Cells(i, 2) = Me.TextBox1.Text Cells(i, 4) = Me.TextBox132.Text Cells(i, 3) = Me.TextBox133.Text Cells(i, 5) = Me.TextBox11.Text Cells(i, 6) = Me.ComboBox2.Text Cells(i, 7) = Me.TextBox3.Text Cells(i, 9) = Me.TextBox7.Text End If Next End Sub Book1669.xls

شكرا بارك الله فيك

بالنسبة لمنع الكتابة تعمل ولكن تقيد التكسيت بعدد 12 رقم لايعمل