[حل شده] حذف ردیف ها در یک شیت بر اساس مقادیر سلول شیت دیگر

[ZAMEN58]

با سلام و عرض ادب خدمت دوستان
اگر بخواهیم یک ردیف از یک شیت ۱ ، بشرطی حذف شود که مقدار آن در سلول A1 تا A... شیت ۲ نباشد بایستی از چه روشی استفاده کنیم ؟
من روش vlookup را امتحان کردم ولی جواب نگرفتم
ممنون میشم راهنمایی کنید

[kazamie]

با سلام و عرض ادب خدمت دوستان
اگر بخواهیم یک ردیف از یک شیت ۱ ، بشرطی حذف شود که مقدار آن در سلول A1 تا A... شیت ۲ نباشد بایستی از چه روشی استفاده کنیم ؟
من روش vlookup را امتحان کردم ولی جواب نگرفتم
ممنون میشم راهنمایی کنید

با استفاده از تابع if و vlookup می توانید اگر شرط برقرار نبود در یکی از سلول های همان ردیف مثلاً کلمه حذف را بنویسد و بعد به صورت دستی آن را حذف کنید ولی با تابع نویسی نمی توانید ردیفی را حذف کنید برای حذف اتوماتیک باید از ماکرونویسی کمک بگیرید، برای راهنمایی بیشتر فایل نمونه بگذارید

[ZAMEN58]

بله پیوست می کنم ولی من همین روش را با کد نویسی امتحان کردم و جواب نگرفتم البته مسلما من نتونستم. و الا بصورت منطقی باید جواب می داد

[ZAMEN58]

san.xlsx

[kazamie]

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

[ZAMEN58]

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

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

Sub Delete()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim a, b, c
a = WorksheetFunction.CountA(Sheets("Sheet1").Range("A:A"))
b = WorksheetFunction.CountA(Sheets("Sheet2").Range("A:A"))
Sheets("Sheet1").Range("A1:B" & a).Select
Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Sheet2").Range("A1:A" & b), Unique:=False
For c = a To 1 Step -1
If Rows(c).Hidden = True Then Rows(c).EntireRow.Delete
Next
ActiveSheet.ShowAllData
Sheets("Sheet1").Range("A1").Select
End Sub 

Delete.rar