احمد حمور-ابوعبدالله قام بنشر يونيو 27, 2010 قام بنشر يونيو 27, 2010 (معدل) السلام عليكم ارجوا المساعده بالمرفق اريد ان تكون الخليه h2=f2-g2 h3=f3-g3 وهكذا حتى اخر الصفحه حاولت ان اضع المعادله في الخلايا من h12:h4000 ولكن المشلكله انه اذا اردت ان اطبع الصفحة الاولى فانها تطبع لي كل لصفحات حتى تصل الى الخليه h4000 المشكله عندي في الطباعه حيث انني لا اريد طباعه الا في وجود الداتا فاتمنى لو كان يوجد كود يكون افضل لي Book123.rar تم تعديل يونيو 27, 2010 بواسطه AHMADHAMOOR
عادل حنفي قام بنشر يونيو 27, 2010 قام بنشر يونيو 27, 2010 السلام عليكم اخي الفاضل تم وضع كود لغمل المعادلة المطلوبه و في المدي المطلوب بشرط وجود قيمة في العمود f او العمود G جرب الملف و اخبرني النتيجة تحياتي Book124.rar
احمد حمور-ابوعبدالله قام بنشر يونيو 27, 2010 الكاتب قام بنشر يونيو 27, 2010 شكرا لك الحل ممتاز ولكن احتاج انه بمجرد وضع القيمه في خلايا العمود f ان تظهر في الخلايا الموجوده في العمود h دون الاضرار لوضع القيمه في العمود g اما الشئ الثاني جرب يا اخي ان تعمل معاينة طباعة ستجد ان الصفحات مازال بها التالي وهذا يجعل امر الطباعة يطبع اوراق فارغة بدون داتا
احمد حمور-ابوعبدالله قام بنشر يونيو 27, 2010 الكاتب قام بنشر يونيو 27, 2010 انا اسف بالنسبة لامر الطباعة كل شئ تمام اما الملاحظه الاولى فانا احتاجها لانني في النهايه سوف اظهرها في listbox
الحسامي قام بنشر يونيو 27, 2010 قام بنشر يونيو 27, 2010 السلام عليكم بارك الله فيك اخي عادل دائما ما تكون في منتهى الروعة ولاثراء الموضوع هنا حل اخر Book123.rar
عادل حنفي قام بنشر يونيو 27, 2010 قام بنشر يونيو 27, 2010 السلام عليكم اخي جرب الملف المرفق تم اضافة زر للمسح و كود عند فتح الصفحة لاخفاء الخلايا الفارغة جرب الملف و اخبرني النتيجة معادله بكود.rar
احمد حمور-ابوعبدالله قام بنشر يونيو 27, 2010 الكاتب قام بنشر يونيو 27, 2010 الاخوه عادل والحسامي كلاكما رائعان والحلول التي اوردتموها غاية في الجمال والحرفيه وبعد اذن الاخ عادل ساخد بالحل الذي اورده الاخ الحسامي لانه يفي بالغرض الذي اريده
عادل حنفي قام بنشر يونيو 27, 2010 قام بنشر يونيو 27, 2010 السلام عليكم الاخوه عادل والحسامي كلاكما رائعان والحلول التي اوردتموها غاية في الجمال والحرفيه وبعد اذن الاخ عادل ساخد بالحل الذي اورده الاخ الحسامي لانه يفي بالغرض الذي اريده لك الحق اخي فيما تختار المهم ان ماطلبته قد تحقق اخي الحسامي اشكرك اخي الحبيب علي كلماتك و دائما تعجبني مداخلاتك و مشاركاتك و مواضيعك بارك الله فيك و دائما اراك في اراك في المقدمة خالص تحياتي و تقديري
يحيى حسين قام بنشر يونيو 28, 2010 قام بنشر يونيو 28, 2010 السلام عليكم و رحمة الله أخي أحمد إضافة لحلول الأخوة الحسامي و عادل و لإثراء الموضوع جرب هذا الكود Sub Excel4Us() Dim LastR As Long LastR = Columns(8).Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row With ActiveSheet .PageSetup.PrintArea = "a1:L" & LastR .PrintOut End With End Sub ===================== دمتم في حفظ الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.