کپی کردن سلول در فایل اکسل دیگر

[panahi88]

سلام
دوستان من اکسلی دارم که username کسی که از فایل استفاده میکنه را توی سلول A1 مینویسه
دنبال کدی هستم که سلول A1 را توی آخرین سلول خالی ستون A فایل اکسل دیگه ای کپی کنه.
ممنون

[mohamadali110]

با اين كد مقدار سلول A1 رو در متغير meghdar ذخيره ميكنيد

 

sub mohasebe
dim meghdar
meghdar = sheet1.cells(1,1).value

سپس اون مقدار رو بياد بره تو اخرين ستون ستون A مثلا شيت دو جايگزاري كنه با كد زير

sheet2.cells(1000,1).end(xldown).offset(0,1)=meghdar
end sub

در هر صورت اگه فايلي بووود بهتر مكيشد راهنمايي كرد در اينجا من شيت ها رو فرضي در نظر گرفتم

[panahi88]

با اين كد مقدار سلول A1 رو در متغير meghdar ذخيره ميكنيد

 

sub mohasebe
dim meghdar
meghdar = sheet1.cells(1,1).value

سپس اون مقدار رو بياد بره تو اخرين ستون ستون A مثلا شيت دو جايگزاري كنه با كد زير

sheet2.cells(1000,1).end(xldown).offset(0,1)=meghdar
end sub

در هر صورت اگه فايلي بووود بهتر مكيشد راهنمايي كرد در اينجا من شيت ها رو فرضي در نظر گرفتم

من فایل رو براتون میزارم
سعی کردم اجرا کنم کد ها رو اما نشد.

[mokaram]

خط اول کدتون را به شکل زیر تغییر بدید

Sheet1.Activate 

[panahi88]

خط اول کدتون را به شکل زیر تغییر بدید

Sheet1.Activate 

ممنون
میتونید روی فایل توضیح بدین؟

[mokaram]

مطلب خاصی نیست این خط کد شیت را به حالت آماده باش در میاره و باقی کدها را روش اجرا میکنه

[mohamadali110]

ممنون
میتونید روی فایل توضیح بدین؟

فايل خدمتتان ارسال شد

[panahi88]

فايل خدمتتان ارسال شد

خیلی ممنون
موضوع برای من حل شد
فقط یه ستون تاریخ درست کردین برای یوزرنیم ها که توی این فایل کار نمیکنه

[mohamadali110]

اره داشتم براي خودم درستش مي كردم

وقتي قراره اطلاعات كساني كه فايلو باز ميكنن ارشيو بشه بهتره يه تاريخ و ساعتم كنارش بزنه تا معلوم بشه چه كسي و در چه تاريخي بازش كرده

فقط يه ايده بووود تو ذهنم كه گذشت شايد بدرد شما نخوره و بكارتون نياد

[panahi88]

اره داشتم براي خودم درستش مي كردم

وقتي قراره اطلاعات كساني كه فايلو باز ميكنن ارشيو بشه بهتره يه تاريخ و ساعتم كنارش بزنه تا معلوم بشه چه كسي و در چه تاريخي بازش كرده

فقط يه ايده بووود تو ذهنم كه گذشت شايد بدرد شما نخوره و بكارتون نياد

ایده خوبی بود
منم برای خودم درست کردم