دالة if

[احمد حمور-ابوعبدالله]

السلام عليكم

ارجوا المساعده بالمرفق

اريد ان تكون الخليه h2=f2-g2

h3=f3-g3

وهكذا حتى اخر الصفحه

حاولت ان اضع المعادله في الخلايا من h12:h4000

ولكن المشلكله انه اذا اردت ان اطبع الصفحة الاولى فانها تطبع لي كل لصفحات حتى تصل الى الخليه h4000

المشكله عندي في الطباعه

حيث انني لا اريد طباعه الا في وجود الداتا

فاتمنى لو كان يوجد كود يكون افضل لي

Book123.rar

تم تعديل يونيو 27, 2010 بواسطه AHMADHAMOOR

[عادل حنفي]

السلام عليكم

اخي الفاضل

تم وضع كود لغمل المعادلة المطلوبه و في المدي المطلوب بشرط وجود قيمة في العمود f او العمود G

جرب الملف و اخبرني النتيجة

تحياتي

Book124.rar

[احمد حمور-ابوعبدالله]

شكرا لك

الحل ممتاز

ولكن

احتاج انه بمجرد وضع القيمه في خلايا العمود f ان تظهر في الخلايا الموجوده في العمود h دون الاضرار لوضع القيمه في العمود g

اما الشئ الثاني جرب يا اخي ان تعمل معاينة طباعة ستجد ان الصفحات مازال بها التالي وهذا يجعل امر الطباعة يطبع اوراق فارغة بدون داتا

[احمد حمور-ابوعبدالله]

انا اسف

بالنسبة لامر الطباعة كل شئ تمام

اما الملاحظه الاولى فانا احتاجها لانني في النهايه سوف اظهرها في listbox

[الحسامي]

السلام عليكم

بارك الله فيك اخي عادل دائما ما تكون في منتهى الروعة

ولاثراء الموضوع هنا حل اخر

Book123.rar

[عادل حنفي]

السلام عليكم

اخي جرب الملف المرفق تم اضافة زر للمسح و كود عند فتح الصفحة لاخفاء الخلايا الفارغة

جرب الملف و اخبرني النتيجة

معادله بكود.rar

[احمد حمور-ابوعبدالله]

الاخوه عادل والحسامي

كلاكما رائعان

والحلول التي اوردتموها غاية في الجمال والحرفيه

وبعد اذن الاخ عادل ساخد بالحل الذي اورده الاخ الحسامي لانه يفي بالغرض الذي اريده

[عادل حنفي]

السلام عليكم

الاخوه عادل والحسامي

كلاكما رائعان

والحلول التي اوردتموها غاية في الجمال والحرفيه

وبعد اذن الاخ عادل ساخد بالحل الذي اورده الاخ الحسامي لانه يفي بالغرض الذي اريده

لك الحق اخي فيما تختار المهم ان ماطلبته قد تحقق

اخي الحسامي

اشكرك اخي الحبيب علي كلماتك و دائما تعجبني مداخلاتك و مشاركاتك و مواضيعك

بارك الله فيك و دائما اراك في اراك في المقدمة

خالص تحياتي و تقديري

[يحيى حسين]

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

أخي أحمد

إضافة لحلول الأخوة الحسامي و عادل

و لإثراء الموضوع

جرب هذا الكود

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

=====================

دمتم في حفظ الله

[احمد حمور-ابوعبدالله]

بارك الله فيك