الجزيرة

مشكور أخي علي بالنسبة للآله الحاسبة فـ أخونا عمر ، لم يقصر قام بتعـديل المرفق بالكامل جزاه الله خيراً . اخوي علي طيب لوحبيت أعدل الكود ــ في الرابط اللي وضعة اخي فلسطيني ــ إلى العمود (B) بدلاً من العمود النشط . . كيف ؟

اخوي عمر ما شاء الله عليك الله يحفظك بحفظه ويرزقك الذريه الصالحة . . آمين

مشكور أخوي فلسطيني وياليت تطلع ( أنت أو أي مبدع ) على الملف المرفق حيث يوجد فيه أسئلة أخررررى بالنسبة للرابط راح أجرب وأشوف :)

السلام عليكم ورحمة الله وبركاته المطلوب واضح من العنوان ومن المرفق ____.rar

بعد إذن أخي kh_mh_5 وقف على الخليه ومن قائمة تنسيق أختار تنسيق شرطي وإن شاء الله تعرف الطريقة .

مشكورين على الموضوع الجميل وشكر خاص للأخ عمران ، على الشرح الرائع

بارك الله فيك أخي هادي

تشكر يا أبو حسين أشهد الله أننا أستفدنا منك الكثير الكثير بارك الله فيك :)

جزاك الله الف خير أخي خالد نور وجعله في ميزان حسناتك " ياليت تطمأنا على بنتك / جهاد ، الله يخليها لكم "

الأخ حلمي والاستاذ علي جزاكم الله خيراً

بارك الله فيك أخي ادم

(( الله يرحم فقيدتكم ويسكنها فسيح جناته أنه غفور رحيم )) أخي ( الكريم ) عمر الحسيني تعجز الكلمات ويخون التعبير عندما أشاهد أبداعاً ( يفوق الوصف ) وهو تميزك وحبك لكل ماهو خير وحرصك على تقديم كل جديد ومفيد . برنامج فوق الخيال لما يملكه من أكواد ومعادلات يستفيد منها المحترف قبل المبتديء . فلك كل الشكر والتقدير أخي عمر ، على ما تقدمه لنا من خدمات جليله في المنتدى :)

بارك الله فيكم جميعاً الله يكثر من أمثالك أخي علي

الموضوع جداً مهم وخصوصاً للمبتدئين أمثالي للرفع :)

معلومه جديدة ومفيدة بالنسبة لي الله يكثر من أمثالك أخي عمر

بارك الله فيك أخي عمر عفواً أخي الكريم أنا كنت فاهم من الكود المرفق أنه إذا كان العمود "C" والعمود "D" يساويان صفر يتم اخفاء الصف : If .Cells(i, 3).Value = 0 And .Cells(i, 4).Value = 0 Then اذا كانت الخلية "C4" وهى (i, 3) و اذا كانت الخلية "D4" وهى (i, 4) تساويان صفر لقد جربته ووجدت أحد العملاء عندي حسابه صفر لأنه أشترى بضاعة وقيد المبلغ في العمود "C" ومن ثم قام بالتسديد وقيد المبلغ في العمود "D" وفي العمود "E" والذي يمثل الرصيد ظهر المبلغ عند الطباعة ( صفر ) عندها قمت وعدلت على الكود بحيث ينظر في العمود "E" فإذا كان الرصيد صفر يخفي السطر وجربت وضبط معي ، كما في الكود التالي : Sub MyPrint() Application.ScreenUpdating = False With Sheets("Balance") With .UsedRange For i = 4 To .Rows.Count If .Cells(i, 5).Value = 0 Then .Cells(i, 5).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub ((( صح طريقتي وإلا لا ))) لأني خايف يعمل لي مشاكل بعدين وفي النهاية أشكر لك أهتمامك وطول بالك علينا

أخي الكريم / عمر الحسيني الحمد لله ما خاب ظني فيك وتعديلك ما فيه كلام 100% ================= أيضأ عندي كود أود شرحه لو تكرمت خصوصاً أنك أنت اللي عملته ( على ما يبدو لي ) Sub MyPrint() Application.ScreenUpdating = False With Sheets("Balance") With .UsedRange For i = 4 To .Rows.Count If .Cells(i, 3).Value = 0 And .Cells(i, 4).Value = 0 Then .Cells(i, 3).EntireRow.Hidden = True .Cells(i, 4).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub وبالتحديد السطرين التاليين : With .UsedRange For i = 4 To .Rows.Count

برافو عليك بــرافـــو عـــلـيـــك بــــــرافـــــــو عـــــلــيـــــك أخي عمر الحسيني

حياك الله اخي فلسطيني والحمد لله على سلامتك المطلوب : ترحيل القيم فقط . بعد تحميلي للكود سابـقاً عدلت عليه بما يتناسب مع عملي والصيغ الموجودة فيه حالياً تخصني أنـا

هل السؤال غير مفهوم ؟ يا أخوان هذا كود سبق أن حملته من المنتدى وجربته ووجدته يرحل المطلوب ولكن المشكلة أنه يرحل المعادلات كما هي . . يوجد في الملف المرفق اوراق عمل ( البرنامج ، المدخلات ، البيانات ) في صفحة المدخلات توجد معادلات وعند ترحيلها الى ورقة البيانات توجد المعادلات أيضاً . والمطلوب هو ترحيل المعادلات الي ورقة البيانات وتكون قيم فقط .

رغم تثبيت الموضوع إلا أنني ظنته شرحاً عادي كباقي الشروحات ، ولكن وبعد تصفحي له وجدت الكثير من الفوائد والنقاط المهمه التي لم اكن أعلمها سابقاً . بارك الله فيك أخي هادي وجعله في موازين أعمالك . أخوك : أبوعبد الله

السلام عليكم ورحمة الله وبركاته ياليت أحد الاخوان يقوم بتعديل الكود بالملف المرفق بحيث يقوم بترحيل القيم فقط دون ترحيل الصيغ s123.rar

أخي المنير ، حياك الله طــّـول بالك شوي إن شاء الله الأخ علي ، ما يقـــّــصر معك :)

جزاكم الله خيراً