[حل شده] راهنمایی جهت حذف یک سطر !!

[vahid_1368]

سلام خدمت همه دوستان
من یک لیست حساب دارم که شامل 3000 سطر و 10 ستون است
برای برسی حسابها احتیاج دارم کلیه سطرهایی که یک کلمه بخصوص (مثلا : برداشت از کارت)در ان موجود است حذف شود.
با ctrl+f همه انها را پیدا میکند اما نمیدونم چطوری کل سطری که این کلمات در ان هست را یکجا پاک کنم.
چون تعدادش زیاد هست نمیتونم یکی یکی حذف کنم.



خواهشا کمک کنید
ممنون

[generalsamad]

با سلام
دوست عزیز با چندین روش میتونید به جواب برسید
با استفاده از توابع
با استفاده از کد نویسی
و روشهای دیگری که دوستان سراغ دارند

با استفاده از توابع میتونید اینطور عمل کنید
با استفاده از توابع شرطی و توابع متنی هر سطری که متن مورد نظرتون رو داشته باشه او سطر رو با استفاده از یک ستون کمکی شماره گذاری کرده یا یک عبارت خاص ( عدد یا متن) مشخص کرده و در نهایت این ستون کمکی رو فیلتر کرده و میتونید اون سطرهائی که فیلتر هستند رو مرتب و در نهایت حذف کنید

[vahid_1368]

سلام
بابت راهنمایی ممنون اما راستش من هیچی نفهمیدم
میشه ساده تر به من بگید.
خیلی مبتدی هستم
چون حساب های بانکیم هست نمیتونمم بدم بیرون واسم انجام بدن.
باز هم ممنون

[generalsamad]

3 روش دیگه هم هست میتونید از اونا نیز استفاده کنید
از طریق Conditional Formatting سپس مرتب سازی بر حسب رنگ سلولها
از طریق فرمول نویسی و سپس مرتب سازی بر حسب رنگ سلولها
بر اساس Replace و سپس مرتب سازی بر حسب رنگ سلولها

از طریق Conditional Formatting بدین صورت عمل کنید
در قسمت فرمول نویسی این فرمول رو قرار دهید

=COUNTIF($A1:$J1;"*برداشت از کارت*"  )>0 

سپس یک فرمت خاص انتخاب کنید
با این کار سطرهائی که کلمه برداشت از کارت دارند همه رنگی خواهند شد
بعد از این کار از فلیتر میتونید استفاده کنید و در تنظیمات فیلتر مرتب سازی رو از نوع by color انتخاب کنید و رنگ قالبی که اتخاذ کرده بودید رو انتخاب تا تمام سطرهایی که حاوی کلمه برداشت از کارت هستند به سطرهای نخستین انتقا پیدا کنند
در نهایت تمام سطرهای رنگی رو انتخاب و سپس delete کنید

روش بعد میتونید همین فرمول رو در سطر اول و یک ستون خاص وارد کرده و به پائین بسط دهید

=COUNTIF($A1:$J1;"*برداشت از کارت*"  )>0 

و سپس ستون مربوطه رو فیلتر و مرتب سازی رو بر حسب True قرار داده و بعد سطرهای دارای کلمه برداشت از کارت به سطرهای نخستین انتقال پیدا میکنند و در پایان این سطرها را حذف میکنیم

روش استفاده از Replace هم اگه خواستید توضیح خواهم داد

فایل ضمیمه گردید

[iranweld]

با سلام

در فایل پیوست هر کلمه ای که در شیت دوم سلول A1 تایپ شده باشد در شیت یک جستجو شده و کل آن سطر حذف میگردد

Sub test()

Range("a1").Select


On Error Resume Next

    Cells.Find(What:=Sheet2.Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
      x = ActiveCell.Row
      
      y = ActiveCell.column
      
       Rows(x).Delete
       
       If x = 1 And y = 1 Then
              Exit Sub
              End If
       
test

End Sub 

[vahid_1368]

با سلام

در فایل پیوست هر کلمه ای که در شیت دوم سلول A1 تایپ شده باشد در شیت یک جستجو شده و کل آن سطر حذف میگردد

Sub test()

Range("a1").Select


On Error Resume Next

    Cells.Find(What:=Sheet2.Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
      x = ActiveCell.Row
      
      y = ActiveCell.Row
      
       Rows(x).Delete
       
       If x = 1 And y = 1 Then
              Exit Sub
              End If
       
test

End Sub 

ممنون بابت وقت و راهنمایی شما و همه دوستان
فایلی که زحمت کشیده بودید را دان کردم ولی کار نکرد قطعا مشکل در عملکرد من هست
واسه همین یه قسمتی از فایل خودم را اپ میکنم که راهنماییم کنید

[iranweld]

با سلام

فایل پیوست را تست بفرمایید

کلمه مورد نظر برای حذف در شیت دوم سلول a1 تایپ شود

[vahid_1368]

با سلام

فایل پیوست را تست بفرمایید

کلمه مورد نظر برای حذف در شیت دوم سلول a1 تایپ شود

دلم نیومد فقط تشکر را بزنم
نــــــــــــــــــــــاز شستت
ممنون

[حسام بحرانی]

دلم نیومد فقط تشکر را بزنم
نــــــــــــــــــــــاز شستت
ممنون

سلام،
دوست عزیز درصورتی که پاسخ خود را دریافت نمودید، تاپیک را حل شده کنید.
موفق باشید...

[vahid_1368]

با سلام

فایل پیوست را تست بفرمایید

کلمه مورد نظر برای حذف در شیت دوم سلول a1 تایپ شود

سلام
دوستان چطوری میتونم بقیه فایلهای اکسل (صورتهای حساب ) را در این فایل وارد کنم ؟؟؟؟

[ehsan2111]

باسلام و خسته نباشید به مدیریت و اعضای فعال انجمن
میخواستم کدی بنویسم که با کلیک بر روی دکمه کل محتویات \اک شوند .
متشکر