ارجوا المساعده حذف السطر كامل بشرط

[faresksa]

السلام عليكم ..

 

ارجوا المساعده حذف السطر كامل بشرط

 

 

45453261

2016.10.06 11:52:53

balance

agent '447' - #45452985

0.10

45453260

2016.10.06 11:52:53

balance

agent '447' - #45452023

0.10

45453308

2016.10.06 12:00:28

balance

agent '450' - #45451629

3.00

45453613

2016.10.06 12:43:46

balance

agent '450' - #45452512

2.90

45453920

2016.10.06 13:15:40

balance

agent '450' - #45450275

0.97

45453922

2016.10.06 13:15:47

balance

agent '450' - #45453315

10.03

45453923

2016.10.06 13:15:52

balance

agent '450' - #45451604

4.83

45453924

2016.10.06 13:15:57

balance

agent '450' - #45450276

0.97

45453962

2016.10.06 13:21:53

balance

agent '448' - #45451841

20.01

45454196

2016.10.06 13:49:59

balance

agent '450' - #45451646

3.00

كمثال اعطيه امر  agent '450'  اذا يختلف

يحذف السطر كامل

 

هل يمكن ذلك ؟

[طلعت محمد حسن]

اخي الكريم لو سمحت ارفاق ورقة تبين المثال بشكل اوضح حتى يتسنى للاعضاء محاولة ايجاد الحل بشكل اوضح وشكرا

[ياسر خليل أبو البراء]

Sub Test()
    Dim cell As Range, rng As Range, oRange As Range

    Application.ScreenUpdating = False
        Set rng = Range("B1:B100")
    
        For Each cell In rng
            If cell.Value <> "agent '450'" Then
                If oRange Is Nothing Then Set oRange = cell Else Set oRange = Union(oRange, cell)
            End If
        Next cell
    
        If Not oRange Is Nothing Then oRange.EntireRow.Delete
    Application.ScreenUpdating = True
End Sub