دستور حلقه جهت پاک کردن سلول

[khorasan66]

با سلام خدمت اساتید گرامی
دو ستون A و B دارای اطلاعات می باشند .
احتیاج به دستور VB دارم که در هر ردیف اگر سلول B=1 باشد اطلاعات سلول A آن ردیف را پاک نماید . این دستور تا آخرین ردیف حاوی اطلاعات ادامه یابد

[s.cheraghi]

RE: دستور حلقه جهت پاک کردن سلول

فایل ضمیمه رو بررسی کنید

[khorasan66]

RE: دستور حلقه جهت پاک کردن سلول

تشکر عالی بود

[ali65e]

سلام.
دوست عزیز من بیشتر فایلهای مثالی که توو این سایت گذاشته شده (از جمله فایلی که شما گذاشتید)رو وقتی میگیرم و بعد میخوام بازشون کنم،با این ارور مواجه میشم.چکار باید بکنم؟لطفا راهنماییم کنید چکار باید بکنم

[Amir Ghasemiyan]

سلام.
دوست عزیز من بیشتر فایلهای مثالی که توو این سایت گذاشته شده (از جمله فایلی که شما گذاشتید)رو وقتی میگیرم و بعد میخوام بازشون کنم،با این ارور مواجه میشم.چکار باید بکنم؟لطفا راهنماییم کنید چکار باید بکنم

سلام دوست عزيز
متاسفانه با تغيير سرور اين مشكل به وجود آمده و تعدادي از فايل هاي ضميمه به مشكل برخوردن. من به دوستمون پيام ميدم. هر وقت آن شدن در صورتي كه هنوز فايلشون رو داشته باشن براتون آپ ميكنن.
با تشكر از توجه شما

[hs208]

با سلام
ممنون میشم اگه مجدد فایل رو آپ کنید. فایل فعلی طبق گفته دوستمون (ali65e) باز نمیشه. با تشکر

[امين اسماعيلي]

با درود
اگر منظورتون اینه که اگر تو ستون b هر سلی برابر 1 بود اون موقع سل متناضرش توی ستون A پاک بشه از کد زیر میتونین استفاده کنین

For Each c In ActiveSheet.Range("B1:B10")
If c.Value = 1 Then
c.Offset(0, -1) = ""
End If
Next c

اینو واسه یه باتن یا تو ایونت فعال شدن اون شیت بنویس
در ضمن این تا B10 رو در بر میگیره . پویا کردنش. یعنی چطور بفهمی که تا کجای ستون B پره رو میزارم بر عهده خودت. تنبلی نکنیا. تو سایت نمونه زیاد هست. راه حل این موردم زیاده......

[Ali Parsaei]

سلام.
دوست عزیز من بیشتر فایلهای مثالی که توو این سایت گذاشته شده (از جمله فایلی که شما گذاشتید)رو وقتی میگیرم و بعد میخوام بازشون کنم،با این ارور مواجه میشم.چکار باید بکنم؟لطفا راهنماییم کنید چکار باید بکنم

فعلا" علي الحساب مي توانيد فايل مورد نظر در اين بحث (يعني Remove.xlsm ) را SAVE کرده و به صورت دستي M آخر پسوندش را پاک کنيد و آن را باز کنيد، البته احتمال زياد يک چيزهاييش از کار خواهد افتاد ولي شايد فعلا" همان هم به دردتان بخورد.

[ali65e]

سلام دوست عزيز
متاسفانه با تغيير سرور اين مشكل به وجود آمده و تعدادي از فايل هاي ضميمه به مشكل برخوردن. من به دوستمون پيام ميدم. هر وقت آن شدن در صورتي كه هنوز فايلشون رو داشته باشن براتون آپ ميكنن.
با تشكر از توجه شما

ممنون دوست عزیز

[ali65e]

ممنون دوست عزیز