[حل شده] حذف اطلاعات یک محدوده مشخص در تعدادی از شیت ها

[het_pet]

سلام

یه فایل دارم با حدود 40 شیت
میخوام یه محدوده مشخص مثلا c5:j10,m5:r10 تو شیت های دهم تا بیستم پاک بشن
اگه بشه براش شرط گذاشت که وقتی عدد 10 تو خونه a1 از شیت اول نوشته شد این اتفاق بیفته، خیلی بهتر میشه
شدنیه؟

[BKN]

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

[saed.rasa]

سلام
شیت دهم را انتخاب کنید بعد Shift را پایین نگه داشته شیت بیستم را انتخاب کنید الان شیت های مورد نظر در حالت انتخاب قرار دارند
در یکی از شیت های مثلا شیت دهم، محدوده مورد نظر را( پیوسته را با Shift و ناپیوسته را با Contrl ) انتخاب کنید و Delete را بزنید

اما برای شرطی: به نظر میاد فقط با Vb امکان پذیر است که من بلد نیستم

[het_pet]

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


بیشتر vb مد نظرم هست

[iranweld]

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


بیشتر vb مد نظرم هست

با سلام

از کد ذیل استفاده کنید

نام شیت های مورد نظر را در کد اصلاح کنید

Sub Macro1()

    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
  
    Range("c5:j10,m5:r10").ClearContents
    
End Sub 

[het_pet]

با سلام

از کد ذیل استفاده کنید

نام شیت های مورد نظر را در کد اصلاح کنید

Sub Macro1()

    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
  
    Range("c5:j10,m5:r10").ClearContents
    
End Sub 

سلام
من کد رو به این شکل ؛ برابر نیازم تغییر دادم

Sub Clearsheets()

    Sheets(Array("1", "2", "3")).Select
  
    Range("C5:J104,M5:M104").ClearContents
    
End Sub 

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

[iranweld]

سلام
من کد رو به این شکل ؛ برابر نیازم تغییر دادم

Sub Clearsheets()

    Sheets(Array("1", "2", "3")).Select
  
    Range("C5:J104,M5:M104").ClearContents
    
End Sub 

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

این کد را تست کنید

Sub Macro1()

    Sheets(Array("1", "2", "3")).Select
    Sheets("1").Activate
    Range("C5:J22").Select
    Application.CutCopyMode = False
    Selection.ClearContents
   
End Sub 

[het_pet]

این کد را تست کنید

Sub Macro1()

    Sheets(Array("1", "2", "3")).Select
    Sheets("1").Activate
    Range("C5:J22").Select
    Application.CutCopyMode = False
    Selection.ClearContents
   
End Sub 

سلام
خیلی خوب بود
جواب داد
تشکر

اگه بشه براش شرط گذاشت که وقتی عدد 10 تو خونه a1 از شیت اول نوشته شد این اتفاق بیفته، خیلی بهتر میشه
شدنیه؟

این امکانش هست که بشه؟

[mokaram]

شما کافیه کدها را بین این کدها قرار بدی
If Sheet1.Range("a1").Value = 10 Then
End If