[حل شده] فعال سازی شیت خاص

[kazem1359]

با سلام
طی فایل ارسالی ابتدا در محیط vba برروی form prin را باز کرده و مقادیر ازماه 98/04/01 تا 98/04/30 را بر اساس شماره حساب بانک واگذاری مثلا 223000 ) را سرچ کنید و سپس با کلیک برروی دکمه چاپ فرمها userfoem2 باز میشه که با کلیک برروی چاپ فرم بعدی اطلاعات 5 ردیف به شیت انتخابی بانک واگذاری منتقل میشه وبا این کار یک فایل pdf هم باز میشه که این فایل pdf از شیت print3 گرقته میشه حالا مشکل من اینه که من نمی خواهم از شیت print3 خروجی pdf بگیرمبلکه میخوام فایل pdf از شیتی گرفته شود که اسمش در سلول N1 شیت print3 قرارداره همین.



مثلا اگر در سلول n1 اسم اقتصاد نوین هست از شیت اقتصاد نوین خروجی pdf گرفته شود یا اگر در همین سلول اسم انصار بود از شیت انصار خروحی pdf گرفته شود و ......





توجه : (اگر با اجرا یوزر فرم prin اطلاعات کادر شماره حساب واگذاری نیامد یوزر فرم را بسته دوباره اجرا کنید چون این فایل قسمتی از یک فایل هست این مشکل پیش اومده ولی در فایل اصلی درسته)
فایل

http://s8.picofile.com/file/8366672768/mozaffari.zip.html

ممنون میشم یکی از دوستان کمک کنه .....
سپاس

[kazem1359]

سلام لطفا یکی از دوستان گل جواب بده ممنون میشم؟

[Amir Ghasemiyan]

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

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=file_name, OpenAfterPublish:=True

قبل از این خط کد، این کد رو اضافه کنید:

Sheets(Sheet4.Range("n1").Value).Activate

البته من تست نکردم خودم. لطفا این مورد رو تست کنید اگر مشکلی داشت در خدمتم

[kazem1359]

سلام
استاد ارجمند آقای قاسمیان دستت درد نکنه خیلی عالی بود سپاس فراوان انشااله خیر دنیا و اخرت را داشته باشی و دعا می کنم همیشه در زندگی موفق و پیروز باشی از اینکه در رفع مشکلات کاربران بدون هیچ چشم داشتی فعالیت می کنید سپاسگذارم . ممنون