تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

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

اكسل : طريقة سهلة جدا حذف الصفوف المحددة داخل الجدول فقط 

اهلا بكم متابعى موقع ومدونة عالم الاوفيس

درس جديد من دروس اكسل vba وفى هذا الدرس سنتاول بالشرح اجابة سؤال احد الاصدقاء 

حول كيفية حذف صف معين داخل الجدول فقط وليس الصف بالكامل entire row وعمل ازاحة الى الاعلى فى نفس نطاق الجدول من خلال اليوزرفورم  Userform 

1- لنفرض ان لدينا جدول مكون من عدد من الصفوف والاعمدة كما بالشكل التالى

ونريد ان نحذف صف معين من خلال هذا الجدول الموضح بالاعلى من خلال الفورم

اول خطوة سنقوم بها هى عمل كود للبحث داخل الجدول لتحديد البيانات التى سيتم حذفها من خلال زر الحذف
كما يلى 

Option Explicit

Private Sub CommandButton1_Click()

Dim i As Byte

Dim ws As Worksheet

Dim lr As Long

If Me.TextBox1.Value = "" Then Exit Sub

Set ws = Sheet1

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = 4 To lr

  If LCase(CStr(Cells(i, 1).Value)) = LCase(CStr(TextBox1.Value)) Then

    Me.TextBox2.Value = Cells(i, 2).Value

    Me.TextBox3.Value = Cells(i, 3).Value

    Me.TextBox4.Value = Cells(i, 4).Value

    Me.rownumber.Caption = Cells(i, 4).Row

    End If

Next i

وبعد تنفيذ كود البحث يتم تحديد رقم الصف المراد حذفة 

وبعد ذلك نقوم بعمل كود الحذف داخل الجدول فقط وعمل ازاحة الى الاعلى

والان ناتى الى كود الحذف 

Private Sub CommandButton2_Click()

Range("A" & Val(Me.rownumber.Caption) & ":D" & Val(Me.rownumber.Caption)).Delete Shift:=xlUp

End Sub

لتحميل ملف العمل من هنا