(تمت الاجابة) مسح الصفوف بشرط بسيط

[moktashef]

السلام عليكم ورحمة الله وبركاتة

استفسار ارجوا ان يكون بسيطً وهو مسح الصفوف اذا كانت بة خلية بلانك

[عبدالله المجرب]

حدد ما تريد بالضبط

هل الصفوف افقية ام راسية

وما حدود المدى

[يحيى حسين]

السلام عليكم و رحمة الله

أخي طلبك غير واضح

و لكن جرب الكود التالي

Sub Excel4us()

Dim c As Range, LR As Long, lc As Integer

LR = Range("A" & Rows.Count).End(xlUp).Row

lc = Cells(1, Columns.Count).End(xlToLeft).Column

For Each c In Range(Cells(1, 1), Cells(LR, lc))

If c.Value = "" Then c.EntireRow.Delete

Next c

End Sub

[يحيى حسين]

السلام عليكم

هذا كود اخر بكرة اخرى

Sub Excel4us()

Dim c As Range, LR As Long, lc As Integer

LR = Range("A" & Rows.Count).End(xlUp).Row

lc = Cells(1, Columns.Count).End(xlToLeft).Column

For i = 1 To LR

    If WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, lc))) <> lc Then Cells(i, 1).EntireRow.Delete

Next i

End Sub

[moktashef]

شكرا جزيلا وهو دة المطلوب وسأجعل دعائى لكم غيبا وليس فى كلماتى الان لعل الله يستجيب لى

شكرا لكم جميعا