كود حذف الاسم مرفق البرنامج

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

بعد التحية

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

ولكم جزيل الشكر والتقديرحذف.rar

[سليم حاصبيا]

انسخ هذا الكود الى حدث الصفحة

الكود يخفي  ولا يحذف (حفاظاَ على البيانات) الماكروالاول يعيد كل شيء الى طبيعته

اذا اردت ان يحذف نهائياُ استبل ذلك من خلال الكود

Sub showall()
For i = 7 To 100
If Cells(i, 1).EntireRow.Hidden = True Then
Cells(i, 1).EntireRow.Hidden = False
End If
Next
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lr As Integer
Dim nametodel As String
On Error Resume Next
lr = Cells(Rows.Count, 1).End(xlUp).Row
If lr < 7 Then lr = 7
Set myrg = Range("a7:a" & lr)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, myrg) Is Nothing Then
 nametodel = Target.Offset(0, 1).Value
Justify = MsgBox(nametodel & " " & "åá ÇäÊ ãÊÃßÏ ãä ãÓÍ   ", vbYesNoCancel)
    If Justify = vbYes Then
    Target.EntireRow.Hidden = True

    End If

End If

End Sub

[طارق زكريا حسين جاه الرسول]

اخى العزيز اريد حذف نهائيا

[مختار حسين محمود]

السلام عليكم

بعد اذن أستاذى الفاضل سليم 

 

تفضل سيادتكم المطلوب  حذف نهائى للاسم المطلوب  وكل بياناته بعد ما تحدد الرقم أولا

 

وتأكيد الطلب بكلمة   ok   

   

 

المستخدم كود العلامه عبد الله باقشير

xxxxxxx.rar

تم تعديل يناير 12, 2015 بواسطه مختار حسين محمود

[طارق زكريا حسين جاه الرسول]

اخى العزيز

مختار حسين محمود

اولا اشكر لهتمامك بموضوعى

اريد ترقيم تلقائى بعد الحذف

[مختار حسين محمود]

تفضل

 

ضع فى عمود الأرقام  المعادلة الآتيه

 

 

                                     رقم العمو د الى فوق الخليه ديه     -  (عنوان أول  خليه فيها رقم)  ROW=

 

 

                                            زى كده  مثلا             ROW(A5) - 4=

xxxxxxx+ ترقيم.rar

تم تعديل يناير 12, 2015 بواسطه مختار حسين محمود

[سليم حاصبيا]

 تم التعديل على الملف حسب الحاجة مع الترقيم التلقائي

حذف صفوف اوتو ماتيك.rar

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

الى السادة اعضاء هذا الصرح الكبير

لااجد كلمات اعبر بها عن مدى حبى لهذا الصرح الكبير واعضاءه الكرام

ولكم جزيل الشكر والتقدير

[طارق زكريا حسين جاه الرسول]

شكر خاص للاستاذ سليم