كود حذف عميل لاكمال المشروع

[احمد عبدة]

السادة المحترمين 

المساعدة فى كود  حذف عميل بالكود

 

تحياتى

close custumer.zip

[ابو تراب]

هلا احمد

 

 

كود الحذف

 

Dim iRow As Long
Dim ws As Worksheet
Dim i As Long


Set ws = Worksheets("data")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row


Application.ScreenUpdating = False


For i = 4 To iRow


    If Me.TextBox1.Text = ws.Cells(i, 1).Value Then
        If MsgBox("ÓíÊã ÍÐÝ ÇáÚãíá ÑÞã " & Me.TextBox1.Text & vbCrLf & "åá ÊÑÛÈ ÈÇáãÊÇÈÚÉ¿", vbYesNo + vbMsgBoxRtlReading + vbMsgBoxRight, "ÍÐÝ") = vbYes Then
            ws.Range("A" & i & ":H" & i).Delete
            UserForm_Activate
            MsgBox "Êã ÇáÍÐÝ ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ"
            Exit For
        End If
    End If
Next


Application.ScreenUpdating = True
Me.TextBox1.SetFocus

جرب المرفق

 

 

 

 

close custumer.zip

[احمد عبدة]

• بارك الله فيك ابو تراب وذادك من علمة
• تقبل تحياتى