محتاج كود جمع الخلايا

[2saad]

غخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

لدي ملف به فورم

الفورم به بوتن اوبشن باسم ( محمد - احمد - عمر )

عايز لما اضغط علي اي بوتن اوبشن ( محمد او احمد او عمر ) يوجد بالفورم ( تكست بوكس رقم 50 ) عندما اكتب به رقم من العمود الملون باللون الأصفر واضغط علي زر ( استعلام عن مجموع ) يعطيني مجموع الخلايا التي بها هذا الرقم  ويعطيني مجموع الخلايا التي بها ارقام في ( التكست بوكس رقم 51 )

مني 2.xlsm

ولكم جزيل الشكر ووافر الاحترام

[محمد هشام.]

العمود باللون الاصفر به قيم نصية ماهي الارقام المطلوب جمع قيمتها 

[2saad]

شكرا لرد حضرتك يا استاذ محمد

وانا اسف فعلا العمود به نصوص وليست ارقام

وانا ارفقت ملف به في العمود  ارقام ونصوص

هل ينفع يعد النصوص مثلا كلمة ( الزهور ) وكمان ارقام مثل ( 1 أو 2 )

مني 2.xlsm

[محمد هشام.]

Private Sub CommandButton14_Click()
Dim ColNum As Long, MyValue As String, Col As Range
MyValue = Me.TextBox50
ColNum = 15
 
If Me.TextBox50 = "" Then: Exit Sub
Set Col = ActiveSheet.Columns(ColNum).Find(what:=MyValue, LookIn:=xlValues, lookat:=xlWhole)
If Not Col Is Nothing Then
Me.TextBox51 = WorksheetFunction.CountIf(Columns(ColNum), MyValue)

     Else
     
   MsgBox "غير موجود"
   Me.TextBox50 = Empty
  End If
    
End Sub

 

مني 2 (2).xlsm

[2saad]

شكرا جزيلا وبارك الله فيك وجعله في ميزان حسناتك

معلش لي سؤال

لو انا حبيت اعمل تكست بوكس آخر في الفورم بحيث اول ما اضغط علي الاوبشن بوتن يظهر لي مجموع الخلايا التي بها ارقام ونصوص

 

ازود ايه علي الكود السابق

معلش انا بتعبك معاي

[محمد هشام.]

Me.TextBox52.Value = Evaluate("SUM(0+(O10:O" & Cells(Rows.Count, "O").End(xlUp).row & "<>""""))")

 

مني 3.xlsm

[2saad]

شكرا جزيلا وبارك الله فيك وفي أمثالك وكل اعضاء المنتدي الكرام