ali.b
2015/01/05, 07:44
با سلام و خسته نباشید خدمت دوستان عزیز
با توجه به سوالی که برام پیش اومده بود هرچی گشتم کدی ندیدم تا بعد از انجام فرایند کپی سلول مورد نظر رو خودکار پر کنه با اینکه با کپی میشه این کار ور کرد اما برای رنج هایی که دایم محدوده آنها عوض میشه کمی اوضاع تغییر می کنه
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
با توجه به سوالی که برام پیش اومده بود هرچی گشتم کدی ندیدم تا بعد از انجام فرایند کپی سلول مورد نظر رو خودکار پر کنه با اینکه با کپی میشه این کار ور کرد اما برای رنج هایی که دایم محدوده آنها عوض میشه کمی اوضاع تغییر می کنه
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