حذف صفوف

[خالد الشاعر]

السادة الخبراء

اريد كود يحذف صفوف بالكامل من الخلايا التى معمول لها select

وشكرا

[إبراهيم ابوليله]

الاخوه الافاضل هذا الموضوع مهم جدا ونرجو من المشاركات ان تكون خاصه بكل ما يتعلق بحزف الصفوف سواء كانت بها بيانات او الصفوف الفارغه من البيانات وعمل الاكواد بزر او بدون زر‎ ‎

[إبراهيم ابوليله]

الاخوه الافاضل هذا الموضوع مهم جدا ونرجو من المشاركات ان تكون خاصه بكل ما يتعلق بحزف الصفوف سواء كانت بها بيانات او الصفوف الفارغه من البيانات وعمل الاكواد بزر او بدون زر‎ ‎

[أبو حنــــين]

السلام عليكم

هذه هو الكود

Private Sub CommandButton1_Click()

Selection.Delete Shift:=xlUp

End Sub

[إبراهيم ابوليله]

الاخ ابو حنين بارك الله فيك

ولكن ماذا لو اردنا ظهور رساله تحزيزريه مع امكانيه التراجع عن الامر

[خالد الشاعر]

استاذ ابو حنين

شكراً على سرعة الرد

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

Selection.EntireRow.Delete

و الكود الخاص بك Shift:=xlUp

تسلم ايدك جزاك الله كل خير

تم تعديل يوليو 4, 2012 بواسطه khhanna

[أبو حنــــين]

تفضل اخي

Private Sub CommandButton1_Click()

On Error GoTo 1

Dim ms As String

RP = MsgBox("  [font=arial,helvetica,sans-serif]ÃäÊ Úáì æÔß ÍÐÝ ÕÝ ßÇãá[/font]   ", vbCritical + vbMsgBoxRight + vbYesNo, "ÊÍÐíÑ")

If RP = vbNo Then

Exit Sub

Else

Selection.Delete Shift:=xlUp

End If

1 End Sub

[أبو حنــــين]

حسب علمي و الله اعلم ان :

Selection.EntireRow.Delete Shift:=xlUp

Selection.EntireRow.Delete

Selection.Delete

كلها تقوم بحذف الصف المحدد

و الله اعلم

[إبراهيم ابوليله]

الاخ ابو حنين بارك الله فيك

وكنى استطعت ان اففعل ذلك

Sub CommandButton1_Click()

If MsgBox("åá ÊÑíÏ ÍÒÝ åÐÇ ÇáÓØÑ", vbQuestion + vbYesNo, "RONG INTRY") = vbNo Then

Exit Sub

Else

Selection.Delete shift:=xlUp

End If

End Sub