سوال سخت!

[mostafa1202]

سلام دوستان

یه چک باکس دارم که وقتی تیک میخوره اطلاعات موجود در ستون a (متناسب با اینکه کدوم چک باکس تیک خورده) به ستون b منتقل میشه تا اینجای کار درسته کار ولی میخوام وقتی تیکش رو برداشتم اطلاعات مربوط به همون چک باکس در ستون b حذف بشه، مشکل اینجاست که با فرمول
Selection.Delete Shift:=xlUp

آدرس دهی فرمول قبلیش به هم میریزه و فرمول اجرا نمیشه، فرمول پایین قبل از فرمول بالا اجرا میشه

Sheet2.Cells(e, 24).Formula = "=VLOOKUP(r7,TBl.steel,5,false)"

r7 توی تابع vlookup بعد از اجرای فرمول اولی پیدا نمیشه راه حل چیه؟

[generalsamad]

با سلام
بهتره برای سوالتون یه فایل نمونه قرار دهید
اینطور زودتر به جواب میرسید

[mostafa1202]

دوستان سوالم رو جور دیگه ای میپرسم فایل ضمیمه رو مشاهده کنید لطفاً با فعال شدن چک باس و زدن دکمه تهیه گزارش، گزارش تهیه میشه سوال اینه من باید یه کد اضافه کنم که وقتی یکی از آیتم هارو تیکش رو برداشتم نیاز نباشه دوباره حذف گزارش رو بزنم و مجدداً اجرای گزارش، میخوام وقتی تیک یکی از آیتم ها برداشته شد با کلیک مجدد روی تهیه گزارش، اون آیتم از توی گزارش حذف بشه بدون اینکه جاش خالی بمونه یعنی پشت هم بمونن بقیه

[generalsamad]

با سلام
این تکه کد رو به انتهای کد گزارش گیرتون اضافه کنید

Dim emp As Integer
emp = Application.WorksheetFunction.CountIf(Range("H7:H39"), "=False") + Application.WorksheetFunction.CountIf(Range("P7:P36"), "=False")
Sheet2.Range("R" & 63 - emp + 7 & ":W75").ClearContents 

[mostafa1202]

واقعا متشکرم !

فقط اگر امکانش هست یه توضیحی در رابطه با خط دوم میدید (Sheet2.Range("R" & 63 - emp + 7 & ":W75").ClearContents) درست کار میکنه ولی منطقش رو متوجه نمیشم چیکار کردید