faresksa قام بنشر نوفمبر 20, 2016 قام بنشر نوفمبر 20, 2016 السلام عليكم .. ارجوا المساعده حذف السطر كامل بشرط 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' اذا يختلف يحذف السطر كامل هل يمكن ذلك ؟
طلعت محمد حسن قام بنشر نوفمبر 20, 2016 قام بنشر نوفمبر 20, 2016 اخي الكريم لو سمحت ارفاق ورقة تبين المثال بشكل اوضح حتى يتسنى للاعضاء محاولة ايجاد الحل بشكل اوضح وشكرا
ياسر خليل أبو البراء قام بنشر ديسمبر 16, 2016 قام بنشر ديسمبر 16, 2016 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 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.