أبو العاصم

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

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

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

If Me.[T1] Then Exit Sub

طب ممكن كود لمنع نسخ الملف

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

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

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

يا سلام تسلم الأيادى أخى عبد الله وأخى محمود

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

وسلامى لكم جميعا

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

عامود يستخلص الرقمين الأخيرين

وعامود يستخلص الرقمين اللى بعد الرقمين الأخيرين

مع مراعاة أن الكلمتين المذكورين موجودين فى عامود واحد

جزاك الله خيرا هذا ما أريد

ولو زدت عليه من اليسار لكان خيرا

إختصار الأرقام .rar

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

لكنى لا أعلم كيف الرجاء المساعدة إن أمكن

فمثلا PM-W151020

الداله الأولى تختزل من اليمين من البداية أو بعد خانات محددة

الداله الأولى تختزل من اليسار من البداية أو بعد خانات محددة

السلام عليكم ورحمة الله

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

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

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

جزاك الله خيرا بس لى طلب أخر

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

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

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

طلب أخر.rar

السلام عليكم ورحمة الله وبركاته

الكود كان معى ولكن الفلاش ميمورى تلفت

وحاولت البحث عنه فلم أهتد إليه

الرجاء المساعدة

باك الله فيكم

للرفع