علي الشيخ

عليكم السلام ورحمة الله أخي الكريم طيب فضلا إرفق الملف المراد عمل المعادلة عليه وسيتم عملها وتوضيحها على الملف يكون أفضل بمشية الله

العفو أخي الكريم والله يوفقك ويجزاك بالمثل وأكثر بالنسبة لسؤالك انت عاوز الربح الشهري يحسب القيمة لو المبلغ الختامي أكبر من 0 تقصد المبلغ الختامي لأي شهر تحديدا؟

أخي الكريم السلام عليكم يفضل إرفاق نموذج مصغر أو النموذج الحالي أيهما تفضل للعمل عليه للتوضيح أكثر وإفادتك بشكل أكبر وعامة هناك عدة طرق اسهلهم أحدى الطريقتين Vlookup أو Index & Match والروابط التالية عسى تفيدك http://www.officena.net/ib/index.php?showtopic=61516&p=397184 http://www.officena.net/ib/index.php?showtopic=61516&p=397185

السلام عليكم أخي الفاضل شوف الملف المرفق مش متأكد اذا ده اللي مطلوب متابعة الربح.rar

أستاذ ياسر شكرا جزيلا وزادك الله من علمه ونفع بك وفي انتظار المزيد ربنا يوفقك

أخي الكريم اللي فهمته من حضرتك إنك عاوز " رقم السطر يكون ترقيم " من 1 - 25 لكل صفحة بحيث لما يتغير يحط رقم أي صفحة يبدأ الترقيم من جديد للسطور ويكون أيضا من 1 - 25 لي استفسار : الترقيم اللي موجود في رقم السطر اللي هو من 1-25 هيتغير في كل مرة يتم فيها حفظ البيانات؟ ولما يوصل لرقم 25 يظهر تنبيه؟ ولا هو هيكون ترقيم يدوي لا يتجاوز 25 ؟

السلام عليكم أخي الفاضل فضلا إرفاق الملف المطلوب لانك نسيت ترفقه في المشاركة الأولى وأيضا إذا لازال هناك إمكانية تعديل عنوان الموضوع يكون أفضل تسهيلا على الأعضاء في تقديم المساعدة في أقصر وقت

السلام عليكم أخي اتفضل حضرتك شوف الملف المرفق فيه طريقتين للحل ولكنها ليست حلول جذرية لأن إظهار كل القيم من طبيعة التشارت عامة طالما انها داخل النطاق Book1_2.rar

السلام عليكم أخي ارجو توضيح المقصود بإنك تضيف قائمة منسدلة هل تقصد الاستغناء عن كل التكست بوكس الحالية وتجعل كل الإيرادات في قائمة منسدلة واحدة وتكست بوكس واحد ويتم الترحيل بناء على الاختيار من القائمة المنسدلة؟ لو كده ده اللي تقصده هل كل سجل يكون له نوع واحد فقط من الإيرادات؟ بانتظار توضيحك للمطلوب

السلام عليكم أخي الكريم اعتقد انك تقصد في كل مرة يتم تغيير قيمة في العمود E مثلا يتم ظهور وقت التغيير حضرتك شوف الملف المرفق ان شاء الله يكون في المطلوب أي قيمة تدخلها في العمود E سيتم كتابه والوقت والتاريخ في العمود Time قمت باستخدام المعادلات التالية: =IF(E3<>"",IF(D3="",NOW(),D3),"") وتم تفعيل خاصية iterative calculation في أوفيس 2007 كالتلي : من أيقونة Ribbon Excel Options Formulas وتضع علامة صح في Enable iterative calculation والصورة التالية توضح طريقة تفعيل الخاصية بشكل أوضح vault register time.rar

اتفضل أخي تم تعديل الجزئية الخاصة بحفظ كل سجل لحاله وبعتذر لأنها سقطت سهوا ما انتبهت بالخطأ في الكود لضيق الوقت اما جزئية خانة جديدة تقصد أنه يضيف سطر حتى تستطيع إضافة المزيد من السجلات؟ لو تقصد كده ممكن جعل الجدول الأساسي مثلا به 1000 سطر أو أي عدد انت عاوزه ويتم الترحيل إليه بنفس الطريقة ويمكن أيضا إضافة خاصية البحث فاذا اردت ذلك حدد القيمة التي سيتم البحث من خلالها وأيضا إمكانية التعديل يمكن إضافتها ولكن بعد تحديد القيمة التي يتم البحث من خلالها أيضا كرقم الإيصال مثلا كشف الايرادات اليومية شوال1.rar

والله أخي الفاضل أنا برضو مع رأي أستاذ ياسر في محاولة التحديث للأصدارات الأقرب لأن برمجيات كتير داخل البرنامج اتغيرت و99% من الشروحات الحالية على الإصدارات القريبة وعامة أنا عندي نسخة بورتابل من أوفيس 2003 جربت استخدم معادلة IFERROR عليها ولكنها ليست موجودة على هذا الإصدار وان شاء الله الاخوة يفيدوك اكتر

السلام عليكم أخي نيابة عن الاستاذ عبدالسلام لحين دخوله بمشية الله وإفادتنا بشكل أكبر وأدق am هي فقط اسم للمدى أو النطاق الذي يتم البجث فيه وجلب القيم المقابلة طبعا الأستاذ عبدالسلام عمل النطاق ليعمل على القيم المتواجده حاليا فقط لو أضفت قيم أخرى لن تشملها المعادله يمكن عمل نطاق جديد بمدى أكبر والذي سيتم إضافة البيانات فيه عشان لما تضيف جديد يظهر في المعادلة أو عمل نطاق ديناميكي يظهر القيم المضاعة تلقائيا واضحة أخي؟ ولا تحب أوضح على الشيت ؟

السلام عليكم مرحبا أخي انا جربت اكثر من شئ صراحة ما اشتغل على Activx Control الموجود " Spinner " ما ظبطت ولكن جربت كحل بديل اني عملت 2 ماكرو واحد لزيادة الرقم الذي يتم تغيير والأخر لنقص الرقم بأكواد بسيطة Range("I2").Value = [I2] + 1 Range("I2").Value = [I2] - 1 وتم حماية الصفحة كاملة واستخدام الكود التالي في حدث Thisworkbook > Workbook_Open حتى يتم حل مشكلة الباسورد Private Sub Workbook_Open() Dim wSheet As Worksheet For Each wSheet In Worksheets wSheet.Protect Password:="", _ UserInterFaceOnly:=True Next wSheet End Sub الباسورد طبعا انا حطيته فارغ "" وإنما لو في باسورد أخر هيكون مكانه كالتالي wSheet.Protect Password:="كلمة السر تكتب هنا ", _ المنادة 2.rar

السلام عليكم أخي الفاضل تجد في المرفق كود مبدئي للترحيل وسيتم إضافة المزيد إن شاء الله نظرا لضيق الوقت حاليا كشف الايرادات اليومية شوال1.rar

السلام عليكم ورحمة الله وبركاته أتمنى من الله أن تكونوا جميعا بخير وصحة وسلامه أثناء تصفحي لأحد المواقع وجدت يوزرفورم به خيارات متعدد لتوليد الكود الخاص بـ MsgBox ووجدته مفيد للأخوة المبتدئين في برمجة الـ VBA وأنا أولهم اليوزر فورم أنا ترجمت المحتوى الظاهر عليه للغة العربية حتى يتمكن الجميع من استخدامه بمشيئة الله أتمنى يكون الموضوع غير مكرر ويكون مفيد ومرفق الملف. MsgBox Code Generator.rar

أيضا أخي حبيت أوضحلك معادلة Index و Match التي هي أكثر مرونة من معادلة Vlookup =IFERROR(INDEX('الشيت الاصلى'!$B$2:$B$7,MATCH(A12,'الشيت الاصلى'!$A$2:$A$7,0)),"") Book1.rar

السلام عليكم مرحبا أخي بالإضافة إلى ما قدمه أخي عبدالسلام جزاه الله خيرا أيضا المعادلة المطلوبة كالتالي =IFERROR(VLOOKUP(A2,'الشيت الاصلى'!$A$2:$D$7,2,FALSE),"") وهي عبارة عن معادلتين بسيطتين الأولى معادلة IFERROR واستخدامه فقط لكي تترك الخليه فارغة في حالة عدم توفر قيمة للبحث ولا تضع N/A في الخلية أما دالة Vlookup وهي المستخدمه في إيجاد القيمة المقابلة لقيمة البحث بمعني Vlookup ابجث عن الخلية المطلوبة " التي بها الاسم " في النطاق A2:D7 وعند العثور عليها اظهر القيمة المقابلة لها في العمود الثاني 2 ولازم تطابق تام في قيمة البحث وهذا ما تعنيه كلمة False والتطبيق على الشيت الخاص بك ان شاء الله يسهل أكتر من النظري Book1.rar

السلام عليكم أخي الفاضل شوف المرفق لعله يكون قريب إلى حد ما من المطلوب Test.rar

السلام عليكم هناك طرق كثيرة أخي الفاضل أشهرهم باستخدام دالة Vlookup أو دالتي Index و Match ضع الملف أو مثال يناسبك وسيتم التطبيق عليه لسهولة التوضيح إن شاء الله

السلام عليكم شوف أخي الفيديو التالي ان شاء الله يفيدك واكيد الأخوة هنا عندهم طرق أفضل وأسهل وأكثر احترافيه

السلام عليكم مرحبا أخوي طيب انت تقصد ان البرنامج يعمل من حيث الطباعة وكده؟ ولا ترحيل بيانات المريض إلى الفورم ومن ثم طباعتها ؟

ما شاء الله تبارك الله شئ في منتهى الجمال صراحة ولي بس نقطة بسيطة إذا أمكن إضافتها إن بعد ما اجعل المستخدم اللي نسي الباسورد يدخل بدون باسورد انه بمجرد الدخول يتم إجبار المستخدم على تعيين باسورد جديد لأن لاحظت انه بقى قادر في كل مرة انه يدخل بدون باسورد تقبل تحياتي وتسلم ايدك على العمل الرائع والمجهود المتميز

السلام عليكم أخي الفاضل حضرتك تقصد ترحيل من شيت العميل إلى شيت المبيعات؟ لو الإجابة نعم عاوز تعمل إدخال البيانات عن طريق يوزرفورم ولا مجرد الشيت زي ما انت عامله والزر يرحل البيانات فقط؟

السلام عليكم مرحبا أخي الطريقة بسيطة بإذن الله ولكن عشان وحسب تصوري انك تحصل على أفضل نتيجة لازم تظبط شكل الفورم شويه بحيث إن كل قيمة في اليوزر فورم تروح لخليه معينة في فورم الطباعة وتحتها تقدر تعمل الخط Line shape مفيش مشكلة بس أهم حاجة يكون في وضوح في الخلايا اللي هيتم ترحيل البيانات إليها من أجل الطباعة وللتسهيل عليا أنا والإخوة خلي الخلايا المطلوب الترحيل إليها في فورم الطباعة بلون أصفر مثلا وأكتب فيها اسم التكست بوكس المطلوب انه يترحل منه من اليوزرفورم وان شاء الله يبقى أسهل واسرع في العمل == أخوي أنا لاحظت ان الفورم عبارة عن صورة في المقام الأول الأفضل إنك تعمل الفورم تصممه بنفسك على الإكسل بحيث يكون كله قابل للتعديل إنما الصورة هتصعب الأمور اعتقد وتصميمه بسيط الحمدلله ما فيه تعقيدات من أي نوع ولو الوقت يسمح كنت صممته لك