پرسش کمک در اصلاح کد تکرار سطر در پایان صفحه

[khasteh1]

با عرض سلام و احترام خدمت دوستان واساتید گرامی

در فایل پیوست با کلیک بر روی دکمه ،محتویات سطر اول شیت 2 در پایان صفحه ای که از اطلاعات شیت 1 می خواهیم پرینت بگیرم درج می شود تا اینجا مشکلی نیست اما اگر دوباره یا چندباره بخواهیم پرینت بگیرم همان سطر اول شیت 2 در پایان صفحه برای مرتبه های بعدی هم تکرار می شود یعنی اگر ما سه بار نیاز به پرینت داشته باشیم آن سطر سه بار تکرار می شود در حالیکه باید فقط یکبار درج شود. یکی از دوستان و اساتید محبت کنه و زحمت اصلا کد رو بکشه.

[iranweld]

اسامی فوق را در قسمت footer فایل اضافه کنید

[khasteh1]

بسیار ممنون از زحمتی که کشیدید و وقتی که گذاشتید

آیا امکان تغذیه اطلاعات Footerاز طریق یوزرفرم و کد نویسی بدون مراجعه به ورک بوک و رفتن به بخش Footer هست؟
چون اطلاعات از طریق فرم در شیت ثبت میشه و ورک بوک دیده نمیشه اگه راه حل مناسب دیگری هم برای درج مشخصات عوامل به تعداد سه نفر با ذکر نام ونام خانوادگی و سمت و امضا در پایین صفحات بدون مراجعه به ورک بوک و رفتن به بخش Footer دارید محبت کنید و راهنمایی کنید.

[iranweld]

در هنگام ثبت دیتا از طریق یوزرفرم ، کدهای ذیل را اضافه کنید.
(موارد مورد نیاز را در دو تکست باکسی که برای اینکار در نظر میگیرید اضافه کنید)

With ActiveSheet.PageSetup
        
        .CenterHeader = textbox8
        
        .CenterFooter = textbox9
        
        
    End With 

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

[khasteh1]

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