محتاج كود للحذف وتعديل البيانات

[2saad]

إخواني اعضاء المنتدي الكرام الذين تعلمت منهم الكثير بارك الله فيكم وجعله في ميزان حسناتكم

مرسل لكم ملف به فورم وقد قام أحد الأخوة بعمل كود اضافة البيانات والبحث وهو الاستاذ ( محمد هشام ) بارك الله فيه وفيكم جميعا علي مجهودكم وتعبكم مع الأخوة

محتاج أحد الأخوة يكمل العمل ويضيف كود التعديل وكود الحذف للبيانات 

وشكرا لكم جميعامحمد (2).xlsm 

[حسونة حسين]

السلام عليكم وبها نبدأ

تفضل كود التعديل

Private Sub CommandButton4_Click()
    Dim SH As Worksheet, X, I As Long
    Set SH = ThisWorkbook.Worksheets("كي جي1")
    If TextBox1.Value = "" Then MsgBox "من فضلك ادخل الاسم الذي تريد البحث عنه يا عم سعد", vbCritical, "تنبيه يا عم سعد": Exit Sub
    X = Application.Match(Val(TextBox1.Value), SH.Columns("C"), 0)
    If Not IsError(X) Then
        For I = 1 To 10
            SH.Cells(X, I + 2).Value = Controls("TextBox" & I).Value
        Next I
        SH.Range("M" & X).Value = openpic
    Else
        MsgBox "الاسم غير موجود"
    End If
End Sub

 

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

اليك الملف بعد التعديل على كود الاستاد @حسونة حسين واظافة جميع الاكواد الازمة 

 

 

محمد 4.xlsm

[2saad]

والله مش عارف أقول لكم ايه

الله يبارك فيكم وفي صحتكم وجعله في ميزان حسناتكم علي مجهودكم الرائع وما تقدمونه لمساعدة الأخوة الأعضاء