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

[downloadomid]

سلام دوستان من تو اکسل تازه کارم خیلی هم سرچ کردم تو اینترنت جواب سوالم رو پیدا نکردم ممنون میشم اگه کسی جواب سوالم رو میدونه راهنماییم کنه.
می خوام مقدار یک سلول رو بگیرم که مثلا عدد 1200 هست و به تعداد این عدد در یک ستون دیگر در همان شیت بصورت اتوماتیک 1200 سلول جدید ایجاد بشه و داخل همه این سلول ها هم مثلا عدد 0 نوشته بشه.
آیا امکان انجام اینکار با برنامه نویسی هست؟
ممنون

[iranweld]

با سلام

با ورود دیتا در سلولهای زرد رنگ بصورت اتوماتیک عمل کپی انجام میشود

چون نام سلول و ستون مورد نظر رو مشخص نکردید ، کدها رو مطابق خواسته خود تغییر بدید

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("B5,B6")) Is Nothing Then test

End Sub 

کدهای کپی کردن

Sub test()

Columns("E:E").ClearContents

For I = 5 To Range("B5") + 4

Range("E" & I) = Range("B6")

Next


End Sub 

[downloadomid]

آقا واقعا دمتون گرم کارم رو حسابی راه انداختین. خیلی ممنون از راهنمایی حرفه ای و سریعتون ....