پیش نمایش یک شیت بعد از خواندن اطلاعات از شیتی که شماره آن در یوزرفرم مشخص می شود

[علی فاطمی]

با سلام
می خواستم بدونم آیا امکان پیش نمایش یک شیت بعد از خواندن اطلاعات از شیتی که شماره آن در یوزرفرم مشخص شده وجود داره؟
فایل پیوست یک شیت جنرال داره و 5 تا شیت دیگه وجود داره که اطلاعات خودشون رو از یوزرفرم می گیرن حالا می خوام برای پیش نمایش شیت جنرال نشون بده به شرطی که اطلاعات رو از شماره شیتی که در تکست باکس 1 در یوزرفرم ثبت شده بخونه و نمایش بده یعنی عملا شیت جنرال خالیه و در زمان پیش نمایش اطلاعاتش رو از شیت مورد نظر می گیره؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[s.cheraghi]

چیز پیچیده ای نیست
شما فقط باید همون تغییرات انجام بدین بعد به وسیله دکمه اعمال تغییرات این تغییرات را ذخیره کنید در غیر اینصورت پاکشون کنین

[علی فاطمی]

با سلام
من متوجه نشدم ، اگر ممکنه روی فایل پیوست اعمال بفرمائید
ممنون.

[s.cheraghi]

نمیدونم منظورتون همین هست یا نه
فایل نگاه کنید.

[علی فاطمی]

نمیدونم منظورتون همین هست یا نه
فایل نگاه کنید.

ممنون بسیار عالی بود
1- فقط من نمی خوام فرمت سلول ها از بین بره راهی هست؟
2- اگر تعداد داده ها زیاد باشند یعنی برای ثبت از یه حلقه مثلا 100 تایی ( 100 تا ردیف در هر ردیف 10 تکست ) موقع کپی توی شیت جنرال بایستی چکار کرد؟

[s.cheraghi]

برای سوال اولتون دو راه دارید:
1) اگه فرمت شیت جنرال باید مثل فرمت بقیه شیت ها باشه (یعنی همه مثل هم باشه)، که بهتره به صورت دستی این فرمت رو در شیت جنرال تعیین کنید که تغییر نکنه.
2) با استفاده از تابع Pastespecial فرمت هر شیت را هم همراه با داده به شیت جنرال انتقال بدین
در جواب سوال دوم هم:
کافیه آدرس منطقه ای که میخواین به شیت جنرال فرستاده بشه رو در قسمت # قرار بدین:

Sheets(TextBox1.Text).Range("#").Copy Destination:=Sheet1.Range("#") 

[علی فاطمی]

برای سوال اولتون دو راه دارید:
1) اگه فرمت شیت جنرال باید مثل فرمت بقیه شیت ها باشه (یعنی همه مثل هم باشه)، که بهتره به صورت دستی این فرمت رو در شیت جنرال تعیین کنید که تغییر نکنه.
2) با استفاده از تابع Pastespecial فرمت هر شیت را هم همراه با داده به شیت جنرال انتقال بدین
در جواب سوال دوم هم:
کافیه آدرس منطقه ای که میخواین به شیت جنرال فرستاده بشه رو در قسمت # قرار بدین:

Sheets(TextBox1.Text).Range("#").Copy Destination:=Sheet1.Range("#") 

با سلام ، لطفا فایل پیوست رو بررسی بفرمائید ( البته اگر کد ها رو نگاه کردین زیاد نخندین همشون ابتدایی و با سعی و خطا بدست اومده ).من اینطوری جواب گرفتم . اگر خوبه که هیچ اگر نه راهنمایی بفرمائین.

[s.cheraghi]

خندیدن نداره دوست عزیز
این مراحل رو هر کسی طی میکنه تا بتونه به جایی برسه که خوب کد بزنه (هر چند کد زدن بنده هم تعریفی نداره)
فایل زیر رو ببین

[komeilex]

خندیدن نداره دوست عزیز
این مراحل رو هر کسی طی میکنه تا بتونه به جایی برسه که خوب کد بزنه (هر چند کد زدن بنده هم تعریفی نداره)
فایل زیر رو ببین

نزن این حرفو چراغی! شما کدکی واسه خودت
خیلی چاکریم داش سامان. هر از چندگاهی از این کارا بکنو بیا پیش ما دلمون لک زده بود واسه رفقای قدیمی تالار!

[علی فاطمی]

خندیدن نداره دوست عزیز
این مراحل رو هر کسی طی میکنه تا بتونه به جایی برسه که خوب کد بزنه (هر چند کد زدن بنده هم تعریفی نداره)
فایل زیر رو ببین

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