[حل شده] مشابه تابع indricet در vba

[yogishiip]

سلام دو تا سوال :
من توی کد ویژوال میخام یه ادرس بدم با این کد از سلول a1 تا a21 رو برام انتخاب میکنه
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$21
حالا میخام یه count برای تعداد ردیف ها توی یه سلول داخل شیت بنویسم و میخام بگم از a1 تا g(x) بر اساس تعداد عدد توی اون سلول داخل شیت رو انتخاب کن
چجوری باید ادرس بدم ؟
سوال دوم

اگر بخام بدون درج تابع کانت توی شیت، کدی بنویسم که اول بیاد تعداد ردیف رو بشماره و بعد pring area رو تنظیم کنه باید چی بنویسم ؟

[iranweld]

با سلام

جواب سوال اول

ActiveSheet.PageSetup.PrintArea = Range("A1:G21") 

جواب سوال دوم

lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = ""   
   ActiveSheet.PageSetup.PrintArea = Range("A1:G" & lastRow) 

اگر ارورر داد

   Application.DisplayAlerts = False

   lastRow = Cells(Rows.Count, "A").End(xlUp).Row


       Range("A1:G" & lastRow).Select

      ActiveSheet.PageSetup.PrintArea = Range("A1:G" & lastRow)

        Application.DisplayAlerts = True 

[yogishiip]

با سلام

جواب سوال اول

ActiveSheet.PageSetup.PrintArea = Range("A1:G21") 

جواب سوال دوم

lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = ""   
   ActiveSheet.PageSetup.PrintArea = Range("A1:G" & lastRow) 

اگر ارورر داد

   Application.DisplayAlerts = False

   lastRow = Cells(Rows.Count, "A").End(xlUp).Row


       Range("A1:G" & lastRow).Select

      ActiveSheet.PageSetup.PrintArea = Range("A1:G" & lastRow)

        Application.DisplayAlerts = True 

سلام
من میخام print area رو از a تا g بر اساس تعداد ردیف ها بذاره
یعنی هر بار کاربر جدول رو فیلتر میکنه بر اساس تعداد ردیف ها بتونه پرینت بگیره و صفحه خالی بهش نشون نده
هر کار میکنم محدوده پرینت از a تا k که توش دیتا دارم قرار میگیره و من میخام فقط تا g بره نه جلو تر و از طرفی ردیف های خالی رو هم کماکان پرینت میکنه

https://exceliran.com/dynamic-print-area/

این مقاله هم نتونست مشکل رو حل کنه

[yogishiip]

سلام با راهنمایی استاد حسن پور (iranweld) فایل پیوست رو برام ارسال فرمودند درست شد .
خیلی ممنونم از ایشون.
بسیار حرفه ای و با اخلاق هستند.