احمد عبدة قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 السادة المحترمين المساعدة فى كود حذف عميل بالكود تحياتى close custumer.zip رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 هلا احمد كود الحذف 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 رابط هذا التعليق شارك More sharing options...
احمد عبدة قام بنشر ديسمبر 15, 2014 الكاتب مشاركة قام بنشر ديسمبر 15, 2014 بارك الله فيك ابو تراب وذادك من علمة تقبل تحياتى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.