ياسر خليل أبو البراء

إليك الملف المرفق كنموذج لشكل المعادلة .. التي يجب أن تكون عليها =SUM('عميل رقم(1):عميل رقم(4)'!A1) لاحظ وجود علامة Apostrophe قبل أول اسم لورقة العمل الأولى وبعد اسم آخر ورقة عمل .. هذا مع المسميات باللغة العربية يليها علامة تعجب ثم مرجع الخلية المطلوب جمعها أرجو أن يفي بالغرض total.rar

أخي الكريم محمود في ورقة عمل الأصناف لا يوجد أية بيانات ..يفضل إرفاق ملف به بعض البيانات كنموذج وحدد الخلايا المراد عمل قائمة منسدله بها .. يسر على إخوانك حتى يتسنى لهم تقديم المساعدة .. عموماً حتى لا تخرج خالي الوفاض ، إليك ملفين قد تفيدك الأفكار التي فيها لحل المشكلة تقبل تحياتي Create Sorted Unique Validation List.rar

أخي الكريم أحمد إليك ملف للأخ الحبيب محمد الريفي لعله يفيدك في طلبك SUMIF In Multiple Sheets.rar أين المرفق الذي تريد تطبيق المعادلة في مشاركتك السابقة فيه؟

استبدل الفاصلة العادية بفاصلة منقوطة ..بدلاً من الفاصلة العادية الموجودة في المعادلة , قم بتغييرها إلى ; أرجو أن تحل مشكلتك

ممكن تاخد نسخة من الملف وتبدل البيانات بأي بيانات وهمية لنتمكن من الإطلاع على الملف ... وسؤال للمرة الثانية هل جربت الملف على نسخة أوفيس أخرى غير 2010؟

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

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

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

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

استبدل في كل المصنف ..

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

ضع المعادلة التالية في الخلية F15 ="( "&'333'!$N$1&"/"&VLOOKUP(S2,'333'!A7:K379,2)&" )" تقبل تحياتي

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

طيب ما كدا يكون الموضوع بسيط جداً ليه مش بتستخدم خاصية الاستبدال ..يعني من لوحة المفاتيح اضغط Ctrl + H وضع النص التالي في أول مستطيل (الحقل الأول) [المنسوخ منه.xls] وفي الحقل الثاني اتركه فارغاً جرب وشوف النتائج

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

أخي الغالي صلاح حل مشكلتك بسيط للغاية ..خلي حرف الـ s المكتوب بالـ Small خليه Capital حرف كبير بمعنى آخر يكون الكود بهذا الشكل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$S$1" Then ActiveWindow.Zoom = 120 ElseIf Target.Address = "$S$2" Then ActiveWindow.Zoom = 120 ElseIf Target.Address = "$S$3" Then ActiveWindow.Zoom = 120 Else ActiveWindow.Zoom = 80 End If End Sub تقبل تحياتي

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

أخي الكريم البرنس (ابن الملك) بالنسبة للكومنت ..كل الحكاية إني مشغول شوية وبحاول أرد بسرعة على الموضوعات اللي عندي بيها علم ..فدا بياخد وقت مني ، لكن طالما طلبت يبقا على عيني وراسي بالنسبة للسؤال الآخر إنت عارف النظام ..روح للموضوع واطرحه وإن شاء الله تجد إجابات مني أو من غيري

وعليكم السلام أخي الغالي أبا الحسن والحسين إضافة لما تفضلت به في الملف المرفق من الكود ..إضافة بسيطة جداً لكي يعمل الكود على كلا النظامين 32 بت و64 بت (حيث أن الملف المرفق في المشاركة الخاصة بك سيعمل على 64 بت فقط) استبدال أسطر الإعلانات العامة في الموديول بهذه الأسطر #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long #End If ليصبح الكود النهائي بهذا الشكل (الكود يوضع في حدث الفورم ) #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long #End If Sub RemoveCaption(objForm As Object) Dim lStyle As Long Dim hMenu As Long Dim mhWndForm As Long If Val(Application.Version) < 9 Then mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97 Else mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+ End If lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Initialize() Call RemoveCaption(Me) End Sub ونقطة أخيرة للاستفادة الكاملة من الكود يمكنك وضع الإعلانات العامة والإجراء المسمى RemoveCaption في موديول عادي ..بينما يوضع حدث زر الأمر وحدث بدء تشغيل الفورم في حدث الفورم أي يمكن الفصل بينهما تقبل تحياتي

وعليكم السلام أخي الكريم حليم بالنسبة لملفك المرفق بعد الإطلاع عليه .. وجدت أن هناك علامة " قبل وبعد المعادلة الموجودة في Name Manager .... روح للتبويب Formulas ثم Name Manager ثم قم بمسح العلامة التي في أول المعادلة وآخرها ="OFFSET(Feuil1!$C$8,0,0,COUNTA(Feuil1!$C:$C)-1,1)" لاحظ وجود علامات التنصيص قبل وبعد المعادلة اجعل المعادلة بهذا الشكل =OFFSET(Feuil1!$C$8,0,0,COUNTA(Feuil1!$C:$C)-1,1) ثم انقر علامة الصح التي ستظهر بعد التعديل لتأكيد التعديل ********** هذا كان مجرد احتمال ..احتمال آخر أن النسخة التي لديك فرنسية فلابد من استخدام المسميات الفرنسية للدوال فمثلاً إذا لم تفلح في حل المشكلة بعد إزالة علامات التنصيص جرب المعادلة بهذا الشكل بعد ترجمة أسماء الدوال للغة الفرنسية =decaler(Feuil1!$C$8,0,0,nbval(Feuil1!$C$1:$C$65536)-1,1) أرجو أن تكون المشكلة قد تم حلها بعد توضيح الأمر بالتفصيل تقبل تحياتي

أخي الكريم أحمد محمد حاول أن تتناول نقطة نقطة حتى لا يتوه الأعضاء منك لبندأ بمرفق آخر غير الأول حيث أنني لا أرى أن المرفق معبر عن الطلب في مشاركتك الأخيرة تطلب جمع نطاق في عدد 50 صفحة في نطاق محدد .. لما لا ترفق ملف به 5 صفحات فقط كنموذج ليحاول الأعضاء على أساسه وتكون الأمور أكثر وضوحاً وصدقني كلما كان الموضوع واضح حتى لو كان صعب ستجد استجابة .. تقبل وافر تقديري واحترامي

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

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

أخي الكريم ابن الملك استبدال الأسطر التي في أول الموديول في قسم الإعلانات العامة بهذه الأسطر بحيث يعمل الملف على كلا النظامين 32 بت و64 بت #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #End If وإليك الملف المرفق بعد التعديل Convert Numbers to Letters By Excel Ver. 3.rar

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