(تمت الإجابة) طلب تحويل تعريف مدى ديناميكي الى كود - تحديد نطاق الطباعة

[الـعيدروس]

السلام عليكم

الاساتذه الافاضل

لدي تعريف مدى ديناميكي

اريد تحويله الى كود

او صياغته عن طريق كود

=OFFSET(ورقة3!$A$2:$AZ$2;0;0;COUNTA(ورقة3!$B:$B)+1;52)

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

اخي العيدروس

حسب معرفتي البسيطة بـ الأكواد

= = = = = =

اذا افترضنا انك تريد تسمية النطاق Ali

Sub ali()

Dim ali As Range

Set ali = Sheets("sheet3").Range("A2:AZ" & Sheets("sheet3").UsedRange.Rows.Count)

End Sub

مع ملاحظة ان هذا الكود سوف يستخدم عدد الصفوف المستخدمة في الورقة حتى لو مافيها بيانات

مع التحية

[الـعيدروس]

السلام عليكم

استاذي القدير احمد زمان

قبل لااجرب الكود

انا استخدم الكود لتحديد الصفوف التي فيها بيانات

لكي تتم طباعتها

هل يفي بهالغرض

[الـعيدروس]

هذا الكود الذي كنت استخدمه للمدى الدنياميكي

Application.EnableEvents = False

Sheets("ورقة3").PageSetup.PrintArea = "Print_Area"

Range("Print_Area").PrintPreview

Application.EnableEvents = True

ولاكن فوجئت ان المدى يغير المسار لحاله فيصبح تحديد خلايا عاديه والديناميك يتلغي

فألتمست بالاكواد خيراً وأضن ذلك

ارجو من سيادتكم دمج كود المدى مع هذا الكود علماً ان Print_Area هو المدى

الذي كان معرف كأسم

[احمدزمان]

و عليكم السلام

اخي الحبيب

لا اظن ان هذا ينفع لتحديد ناحية الطباعة

ولكن ممكن اعرف منك

تعمل الكود

يحدد ناحية الطباعة ثم يطبع

او

يطبع المجال المحدد

ارفق جزء الطباعة للكود

[احمدزمان]

اخي الحبيب

شوف ياعم

هذا الكود يطبع المنطقة المطلوبة مباشرة دون تغيير ناحية الطباعة

يعني

تحدد بالماوس المكان الي تبغة تطبعة

وبعدين تاخذ طباعة التحديد

نفس الفكرة في هذا الكود

Sub Prnt_Slct()

ER = WorksheetFunction.CountA(Range("A:A"))

RN = "A2:A" & ER

Sheets("sheet3").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub

مع التحية

[الـعيدروس]

استاذي العزيز يعني نفس المجال

الذي ارفقته انا في الرد السابق

سوف اجربه واوافيك النتيجه

[احمدزمان]

في غلطة بسيطة

غير السطر

RN = "A2:A" & ER

الى

RN = "A2:AZ" & ER

[الـعيدروس]

هكذا زبط 100%

مااريده من عمود a الى az

Application.EnableEvents = False

ER = WorksheetFunction.CountA(Range("A:A"))

RN = "A2:az" & ER

Sheets("ورقة3").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True

Application.EnableEvents = True

جزاك الله الف الف خير

وتقول معرفه بسيطه بالأكواد أنت كذا مروض الأكواد

زادك الله من علمه وفضله