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

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

شكراً استاذ ايهاب والشكر كذالك للاستاذ محمد 

لقد استفدت من المعلومات .

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

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

جمع خلاياء.xlsx

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

في 1‏/5‏/2023 at 01:06, كريم نظيم said:

وعليكم السلام ورحمه الله

جرب الكود التالي

Private Sub TextBox1_Change()
 If Me.TextBox1.Value > Me.TextBox2.Value Then
 CommandButton2.Enabled = False
 CommandButton28.Enabled = False
 End If
 CommandButton2.Enabled = True
 CommandButton28.Enabled = True
End Sub

Private Sub TextBox28_Change()
 If Me.TextBox1.Value > Me.TextBox2.Value Then
 CommandButton2.Enabled = False
 CommandButton28.Enabled = False
 End If
CommandButton2.Enabled = True
 CommandButton28.Enabled = True
End Sub

 

السلام عليكم ...

شكراً استاذ كريم   تم التوصل لحل تغيير بسيظ في الكود الاصلي  .. تم وضعة للاستفادة 

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

السلام عليكم

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

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

17 دقائق مضت, Mohamed_Fouad said:

Private Sub CommandButton8_Click()
Sheets("data").Select
On Error Resume Next
Dim i As Long
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

شكرا تمام

6 دقائق مضت, أحمد يوسف said:

لأن هذا هو اخر صف في صفحة الإكسيل

حتى لوكان قبل هذا الصف بــ  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 رقم لايعمل