Ali Mohamed Ali

أحسنت استاذ مجدى وجزاك الله كل خير

لأن هذه معادلة مصفوفة فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات

وعليكم السلام ,كان لزاما عليك رفع ملف لتوضيح المطلوب بكل دقة كما انه لابد رفع مشاركتك منفصلة بعيداُ عن المشاركات القديمة حتى تكون محل اهتمام من الأساتذة فقد قمت برفع ثلاثة ملفات لك بثلاثة أمثلة مختلفة للتنقل بين الصفحات ومنها :-الكمبوبوكس والقائمة المنسدلة واخيرا بالقائمة التنقل لإسم الصفحة من القائمة المنسدلة.xlsm الذهاب الى الشيت من خلال الكمبوبوكس.xlsm كود التنقل الى اي صفحة في ملف اكسيل.xls

من فضلك عليك برفع الملف بعد تعديل الإعدادات ويجب ان تلاحظ انك لو رفعت من البداية الملف الصحيح لكان وفر علينا كثيرا من الوقت

أحسنت استاذ عبد اللطيف بارك الله فيك وجزاك الله خير الثواب

بارك الله فيك ورحم الله والديك

وعليكم السلام-تفضل لك كل ما طلبت بصمة-1 5.xlsm

=C5-C7+(C5+C6) يمكنك استخدام هذه المعادلة بالخلية C8

أحسنت استاذ مجدى جزاك الله كل خير

بارك الله فيك وجزاك الله خير الثواب

تفضل ترحيل المطالبات 2الشهرية.xlsm

أحسنت استاذ مجدى جزاك الله كل خير

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

أحسنت استاذ مجدى بارك الله فيك

بعد اذن استاذنا الكبير سليم ولإثراء الموضوع يمكنك تجربة هذا اكثر من شخص1.xlsx

جرب الكود الموجود بهذا الرابط من أعمال أستاذنا الكبير ياسر خليل ابو البراء https://pastebin.com/DdEr76jc

اهلا بك فى المنتدى-تفضل 1التسويات.xlsx

بارك الله فيك واحسن الله اليك ووسع الله فى رزقك

جزاك الله كل خير وزادك الله من فضله

أحسنت استاذ مجدى كلها موضوعات قيمة جعله الله فى ميزان حسناتك

جرب كده نسخة_من_تطبيق_فرق_السعر_هيئة.xlsm

يمكنك استخدام هذا الكود فسوف يتم عمل ملف منفصل برقم الفاتورة عند الضغط على ترحيل فبذلك يمكنك طباعة اى فاتورة تريدها Sub Splitbook() Dim xPath As String ActiveSheet.Name = ActiveSheet.Range("AP2") & " NO" & Range("E6") xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True Range("E6") = ([E6]) + 1 End Sub Invoice.xlsm

تفضل لأنك لم تطبق المعادلة بطريقة صحيحة تقاطع العمود مع السطر OK.xlsx

أحسنت استاذ أنس عمل رائع جعله الله فى ميزان حسناتك وبالتوفيق ان شاء الله

بارك الله فيك