بسط فرمول بصورت خودکار در ماکرو

[hadi1358]

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



ماکرو.xlsm

[mokaram]

فایل ضمیمه موجود نیست مجدداً پیوست بفرمایید

[hadi1358]

با عرض پوزش

Download File : ماکرو.zip

[mokaram]

لطفا فایل را تو انجمن آپلود بفرمایید
(نتونستم دانلود کنم)

[khakzad]

سلام دوست عزیز
من فایلتون رو ندیدم
اما اگر می خواید با توجه به داده های موجود در یک سل، داخل سل دیگه فرمول داشته باشید
مثل فرمول زیر هم می تونید عمل کنید:

=IF(A1=1,VALUE(SUM(A2:A9)),"")

اینطوری اگر سل a1=1 میاد A2:A9 رو جمع می زنه.در غیر اینصورت خالی می ذاره
value رو قبلش می دهریم که خاصیت فرمولیش حفظ بشه و به تکست تبدیل نشه
سوال بود در خدمتم

[Ali Parsaei]

از اين کد تو ماکرو استفاده کنيد:

Dim C As Range
For Each C In Range("A2:A1000")
If C <> 0 Then
    C.Offset(0, 1).Value = "=VLOOKUP(RC[-1],Sheet2!C[-1]:C,2,FALSE)"
    End If
    Next 

البته حواستان باشد من فقط کد را براي 1000 سل نوشته ام