كود حذف الصف الخالي

[محمد عبد الناصر]

السلام عليكم يا احلى منتدى 

عايز كود حذف اصفف اعتماداً على الخليه 

H

يعني لو مش اي حاجه  في  الخلية من 
H4 ~ H10000
يحذف من الصف كامل لحد الخلية H

لو مكتوب يسيبها زي ما هيا 

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

هذا الكود

Sub DEl_H()
Dim My_rg As Range, Lh As Long, i As Long
Lh = Cells(Rows.Count, "H").End(3).Row
If Lh < 3 Then Exit Sub
Set My_rg = Range("h2:h" & Lh)
 For i = Lh To 2 Step -1
 If Cells(i, "H") = vbNullString Then _
 Cells(i, "H").EntireRow.Delete
 Next
End Sub

 

[محمد عبد الناصر]

16 hours ago, سليم حاصبيا said:

هذا الكود

Sub DEl_H()
Dim My_rg As Range, Lh As Long, i As Long
Lh = Cells(Rows.Count, "H").End(3).Row
If Lh < 3 Then Exit Sub
Set My_rg = Range("h2:h" & Lh)
 For i = Lh To 2 Step -1
 If Cells(i, "H") = vbNullString Then _
 Cells(i, "H").EntireRow.Delete
 Next
End Sub

 

الللللله ينور اي الشغل الجامد ده 

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

25 دقائق مضت, محمد عبد الناصر said:

الللللله ينور اي الشغل الجامد ده 

 يمكن استعمال هذا الكود (بدون حلقات تكرارية)

Option Explicit

Sub DEl_H_New()
Dim Lh As Long

Lh = Cells(Rows.Count, "H").End(3).Row
    If Lh < 4 Then Exit Sub
Range("h4:h" & Lh).SpecialCells(4). _
EntireRow.Delete
End Sub