Ali Mohamed Ali

يعمل الكود معى بكل كفاءة يمكن المشكلة من عندك اخى الكريك بارك الله فيك استاذ سليم كود رائع احسنت

اهلا بك اخ كريم فى المنتدى تفضل Cars.xlsx

تفضل اخى الكريم تم ضبط المعادلة المصنف2.xlsm

وعليكم السلام لك ما طلبت فاتورة (1).xlsm

ممتاز استاذ سليم معادلات رائعة جعله الله فى ميزان حسناتك

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

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

بارك الله فيك

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

تم التعديل على المعادلة لتناسب المطلوب فالعملية سهلة ولا تحتاج الى كود-تفضل المصنف1.xlsm

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

وعليكم السلام يمكنك حفظ الملف بهذه الصيغة كما بالصورة

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

وهذا كود اخر ايضا للإنتقال الى اصناف12.xlsm

اخى الكريم يمكن لديك مشكلة فالكود يعمل معى بكل كفاءة كما ترى بالصور اصناف11.xlsm

وعليكم السلام نورت المنتدى اخى الكريم لابد من رفع ملف الإكسيل وشرح عليه ما تريد بالتفصيل فلا يمكن العمل على التخمين او بدون ملف تجنبا لعدم اهدار الوقت بارك الله فيك

يوضع فى موديول جديد كما بالصورة وكان من البداية والأفضل دائما ان تضع وترفع فى المشاركة ملف تجنبا لسهولة المساعدة وعدم اهدار الوقت

بارك الله فيك اخى شكرى تفضل الحل بطريقتين داخل الملف اصناف11.xlsm

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

طالما انك لم تقم برفع ملف وتوضيح المطلوب فيمكنك استخدام هذا الكود Sub MyFooter() Dim xTxt As String Dim xAddress As String Dim xRg As Range Dim xCell As Range On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8) If xRg Is Nothing Then Exit Sub For Each xCell In xRg xTxt = xTxt & xCell.Value & " " Next ActiveSheet.PageSetup.LeftFooter = xTxt End Sub

يمكنك الإستعانة بهذا الملف كود بحث فى جدول الحصص.xlsm

تفضل المخازن.xls

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

تفضل لك ما طلبت المطلوب.xlsm

وعليكم السلام يجب عليك استخدام خاصية البحث بالمنتدى https://www.officena.net/ib/topic/42212-تمت-الاجابة-إخفاء-أوراق-العمل-والتنقل-بينها-من-الشيت-الرئيسي/