محمد صبحى عبدالنعيم قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 السلام عليكم ورحمة الله تحية اعزاز وتقدير لكل اعضاء المنتدى الرائع لقد حاولت كثير لتحديد اخر صف للطباعة بعد استدعاء البيانات وكل مرة اجد عدد الصفحات الفارغة من البيانات موجودة بالطباعة الرجاء المساعدة . هل من الممكن تنفيذ استدعاء البيانات بناء على السن من: الى الملف المرفق به ما اقول اخوكم محمد صبحى PER befor.rar
ياسر خليل أبو البراء قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 (معدل) الأخ الكريم محمد صبحي إليك الكود التالي ..تعديل بسيط لينفذ طلبك الأول Sub Ahmd() Dim LR As Long Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("order"), CopyToRange:=Range("output"), Unique:=False On Error Resume Next With Sheets("البحث") .Rows("1:2").Hidden = True LR = .Cells(Rows.Count, 10).End(xlUp).Row .PageSetup.PrintArea = "$A$3:$J$" & LR .PrintPreview .Rows("1:2").Hidden = False .Range("A1").Select End With End Sub تم تعديل فبراير 21, 2015 بواسطه YasserKhalil
محمد صبحى عبدالنعيم قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 (معدل) اشكرك اخى الفاضل YasserKhalil لمد يد المساعده وجدت مشكلة بسيطة و تم ايجاد الحل فى رقم العمود وتغييرة من 10 الى 3 تقبل تحياتى untitled.rar تم تعديل فبراير 21, 2015 بواسطه anywaysa
ياسر خليل أبو البراء قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 أخي الفاضل لم تكن المشكلة في تلك النقطة إنما في استخدام كلمة Range عند تحديد نطاق الطباعة ! راجع الكود الأصلي والكود الذي قمت بمشاركتك إياه
محمد صبحى عبدالنعيم قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 لم اقصد شيء اخي الكريم. أنا عدلت على الكرد الذى قدمته الى بجعل رقم العمود بدلا من ١٠ الى ٣ لانه عند رقم ١٠ وتغيير قيمه البحث مثلا وسط القاهره ٣ او ٤ كان يتبقى صفوف لايتم طباعتها ولتكن مع تغيير الى ٣ يتم أضافه كل الصفوف ...... اشكر لك مساعدتي اخي العزيز وأتمنى من الله ان تساعدنى فى حل لشرط السن من ..... الى
ياسر خليل أبو البراء قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 أخي الحبيب محمد ممكن توضيح بشكل مفصل للطلب الثاني . ولو بمثال يكون أفضل
محمد صبحى عبدالنعيم قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 الطلب الثاني هو اذا طلب منى طباعة تقرير للمتقدمين الذين أعمارهم من ٢٠ الى ٣٠ عاما فقط فهل يمكن وضع شرط السن فى نطاق الشروط لاستدعاء البيانات للأسف لم استطع عمل المثال
تمت الإجابة ياسر خليل أبو البراء قام بنشر فبراير 21, 2015 تمت الإجابة قام بنشر فبراير 21, 2015 جرب الملف التالي أخي الحبيب PER befor.rar
محمد صبحى عبدالنعيم قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 الف الف شكر اخى الغالى YasserKhalil وفيت وكفيت زادك الله من علمة وجعلة فى ميزان حسناتك تقبل تقديرى واحترامى اخوك محمد صبحى 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.