آموزشی auto fill خودکار

[ali.b]

با سلام و خسته نباشید خدمت دوستان عزیز
با توجه به سوالی که برام پیش اومده بود هرچی گشتم کدی ندیدم تا بعد از انجام فرایند کپی سلول مورد نظر رو خودکار پر کنه با اینکه با کپی میشه این کار ور کرد اما برای رنج هایی که دایم محدوده آنها عوض میشه کمی اوضاع تغییر می کنه

Range("E9").AutoFill Destination:=Range("E9:E" & Range("D" & Rows.Count).End(xlUp).Row)

Range("f9").AutoFill Destination:=Range("f9:f" & Range("D" & Rows.Count).End(xlUp).Row), Type:=xlFillCopy

با این کد ها میتونین این کار رو برای هر سلول و رنجی انجام بدین و اگه برای Fill کردن تاریخ که نمیخئواین خودکار تغییر کنه انتهاش این کد رو اضافه کنید
Type:=xlFillCopy