سلام
من زیاد وارد نیستم
یه فایل درست کردم که با زدن یه دکمه یه سری از اصلاعات شیت اول رو توی شیت دوم کپی کنه
مشکلاتی که وجود داره اینه که
1- بعد از بستن فایل و باز کردن مجددش دیگه کدهای ماکرو وجود نداره و کلید کار نمی کنه! (با تشکر از iranweld حل شد)
2- کد بجای اینکه اطلاعات A2 توی شیت اول رو بذاره توی A2 در شیت دوم میذاره توی A3 در شیت دوم! (حل شد)
3- نمی دونستم چطور بگم همه ی ردیف های شیت اول رو کپی کن، گفتم تا خونه ی 200 (که کار درستی نیست)
4- یه دور هم اومدم اول کد همه ی اطلاعات شیت دوم رو پاک کردم چون پاک نمی کردم خراب می شد (نمی دونم روش درست چیه)
این کدمه:
اینم فایلم
ممنون می شم راهنمایی کنید
من زیاد وارد نیستم
یه فایل درست کردم که با زدن یه دکمه یه سری از اصلاعات شیت اول رو توی شیت دوم کپی کنه
مشکلاتی که وجود داره اینه که
1- بعد از بستن فایل و باز کردن مجددش دیگه کدهای ماکرو وجود نداره و کلید کار نمی کنه! (با تشکر از iranweld حل شد)
2- کد بجای اینکه اطلاعات A2 توی شیت اول رو بذاره توی A2 در شیت دوم میذاره توی A3 در شیت دوم! (حل شد)
3- نمی دونستم چطور بگم همه ی ردیف های شیت اول رو کپی کن، گفتم تا خونه ی 200 (که کار درستی نیست)
4- یه دور هم اومدم اول کد همه ی اطلاعات شیت دوم رو پاک کردم چون پاک نمی کردم خراب می شد (نمی دونم روش درست چیه)
این کدمه:
کد PHP:
Sub copy()
Sheet2.Range("A2:D200").Clear
Sheet1.Range("A2:A200").copy
Sheet2.Range("A2").Rows("2:2").Insert
Sheet1.Range("B2:B200").copy
Sheet2.Range("B2").Rows("2:2").Insert
Sheet1.Range("C2:C200").copy
Sheet2.Range("C2").Rows("2:2").Insert
Sheet1.Range("E2:E200").copy
Sheet2.Range("D2").Rows("2:2").Insert
End Sub
ممنون می شم راهنمایی کنید
کامنت