أبو العاصم

الى ماذا تشير المعادلات التى فى نطاق المعادلات فى الصور المرفقة

يا سيد طارق لك منى جزيل الشكر أظن الأخ يطلب الملف المرفق وهو من إعداد الأخ هشام شلبى windows-1256__PAYROLL_AMENDED_2.rar

طب ممكن شرح لهذه الصور

يسر الله لكم وأعانكم

يسر الله لكم وأعانكم

يسر الله لكم وأعانكم

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

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

أعان الله الإخوة

السلام عليكم ورحمة الله وبركاته الملف المرفق عبارة عن دليل للحسابات ومرفق معه نموذج قيد يومية وهذا النموذج به كود لجلب البيانات من الدليل حسب الرمز الموجود فى الدليل ولى عليه عدة طلبات إن إتسع وقت المساعدين المتطوعين فى هذا الصرح وهى 1- فى العامود F أطلب كود يقوم بعمل ترقيم تسلسلى كلما قمت بعمل فلتر حسب رقم القيد لترتيب الحركات دخل القيد كود يحل محل المعادلة الموجودة فى العامود 2- فىالعامود E عامود الرمز لا يستجيب إلا عند كتابة الرمز أما عند النسخ بـ (paste values ) أو ( ctrl +d) لا يقوم بالبحث عن الحساب إلا بعد عمل F2+enter للخلية والمطلوب تعديل ذلك بحيث يقرأ بمجرد لصق الاختصار وهناك بعض الأسئلة بعد إنجاز المطلوب بارك الله فيكم كلمة سر الـ VBA 123 والسلام عليكم ورحمة الله وبركاته نموذج قيد يومية.rar

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

أولا السلام عليكم ورحمة الله لى طلب بشرح هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Dim Rng As Range Static Cell As Range Static TheFormula As String Set Rng = Range("myrange") If Not Application.Intersect(Target, Rng) Is Nothing Then If Not Cell Is Nothing Then Cell.Formula = TheFormula End If Set Cell = ActiveCell With Cell TheFormula = .Formula .Value = .Value End With Else With Cell .Formula = TheFormula End With End If End Sub باعتبار أن النطاق myrange نطاق محدد ما هو المراد بـ If Me.[T1] Then Exit Sub

طب ممكن كود لمنع نسخ الملف يعنى يمنع عمل كوبى وبست لو هناك شرط فى الملف وهو مغلق

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

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

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

جزاك الله خيرا هذا ما أريد ولو زدت عليه من اليسار لكان خيرا إختصار الأرقام .rar

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

فمثلا PM-W151020 الداله الأولى تختزل من اليمين من البداية أو بعد خانات محددة الداله الأولى تختزل من اليسار من البداية أو بعد خانات محددة

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

والله أخى العزيز كيماس بارك الله فيك

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

أخى العزيز كيماس بارك الله فيك الملف هو المطلوب ولكن بارك الله فيك لى عليه طلبان مهمان شرحهما بالمرفق وجزاك الله خيرا طلب أخر.rar

السلام عليكم ورحمة الله وبركاته الكود كان معى ولكن الفلاش ميمورى تلفت وحاولت البحث عنه فلم أهتد إليه الرجاء المساعدة باك الله فيكم

للرفع