تحويل معادلة الى كود

[عصام2008]

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

الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته

وأخص بالذكر الباشمهندس محمود الذي ساعدني كثيرا في مثل هذا العمل من قبل

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

=IF(ROW()-6>MAX($O$7:$O$50000);"";INDEX($Q$7:$Q$50000;MATCH(ROW()-6;$O$7:$O$50000;0)))

يوجد مرفق به ورقة العمل التي بها المعادلة

[قطان]

أخي لا يوجد مرفق

[عصام2008]

معذرة أخى الفاضل لقد سقط سهواً واشكرك على المرور والرد

المعادلة في ورقة Sales

نسخة من المبيعات.rar

تم تعديل يونيو 5, 2012 بواسطه عصام2008

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

الأخ الحبيب عصام

تعذر عليا إرفاق الملف

قم بالتالي

أولا قم بتسمية النطاق O7:O5000 باسم rngmax ، والنطاق Q7:Q5000 باسم rngindex

ثم قم بتنفيذ الكود التالي

Sub ConvertToVBA()

Dim rng As Range

Set rng = Sheets("Sales").Range("K7:K5000")


'=IF(ROW()-6>MAX($O$7:$O$50000);"";INDEX($Q$7:$Q$50000;MATCH(ROW()-6;$O$7:$O$50000;0)))

With rng

    .Formula = "=IF(ROW()-6>MAX(rngmax),"""",INDEX(rngindex,MATCH(ROW()-6,rngmax,0)))"

    .Value = .Value

End With

End Sub

[عصام2008]

جزاك الله أخي الكريم / ياسر على الرد وجاري محاولة التنفيذ انشاء الله

[عصام2008]

جزاك الله ألف ألف خير أخي الكريم / ياسر

الحمدلله تم تنفيذ الكود ويعمل بشكل جيد ومرفق الملف بعد عمل التعديل عليه

ولكن لي طلب أخير لو تفضلت

اريد تحويل هذه المعادلة أيضاً في نفس ورقة Sales ولن أثقل عليك مرة أخري انشاء الله

=IF(COUNTIF($Q$7:Q8;Q8)=1;COUNT($O$7:O7)+1;"")

نسخة من المبيعات.rar

تم تعديل يونيو 6, 2012 بواسطه عصام2008

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

تفضل أخي الحبيب المرفق التالي (الكود منقول بتصرف .... قمت فقط بالتعديل عليه ليتناسب مع طلبك)

Sales.rar

[عصام2008]

مشكور أخي الفاضل على هذا الجهد الطيب

ولكن الكود لم يغير سوي خليتين فقط في العمود O وهما O8 ,O9 وقام بتغيير الخلية O7 أيضا ولم يقم بتغيير باقي معادلات العمود O

أرجو الاطلاع والتأكد وجزاك الله خيرا

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

عذرا أخي الغالي كان هناك خطأ بسيط في الكود

إليك الكود بعد التصحيح

	Dim clnMyUniqueArray As New Collection

	Dim rngCell As Range

	Dim lngMyCounter As Long

	Application.ScreenUpdating = False

	Application.Calculation = xlCalculationManual

		For Each rngCell In Range("Q7:Q" & Range("Q" & Rows.Count).End(xlUp).Row)

			On Error Resume Next

				clnMyUniqueArray.Add Item:=rngCell.Value, Key:=CStr(rngCell)

				If Err.Number = 0 Then

					lngMyCounter = lngMyCounter + 1

					rngCell.Offset(0, -2).Value = lngMyCounter

				End If

			On Error GoTo 0

		Next rngCell

		Set clnMyUniqueArray = Nothing

	Application.ScreenUpdating = True

	Application.Calculation = xlCalculationAutomatic

[عصام2008]

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

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

أخي الغالي لا تكتب (أخبرك انشاء الله) بل اكتب ( إن شاء الله)

[عصام2008]

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

أخي العزيز ياسر شكرا لك على النصيحة هذه وانشاء الله أعمل بها

ولكن هناك طلب صغير أرجو مساعدتي فيه

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

[عصام2008]

_للرفع

[عصام2008]

للرفع

[رجب جاويش]

أخى الفاضل

تم عمل ما تريد

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

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

Sales.rar

[عصام2008]

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

شكراً جزيلاً أخي الفاضل / رجب جاويش

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

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

أرجو الاطلاع وابداء الرأي

شاكر لك حسن تعاونك معي وجزاك الله خير الجزاء

تم تعديل يونيو 17, 2012 بواسطه عصام2008

[عصام2008]

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

[رجب جاويش]

أخى الفاضل

جرب هذا التعديل

يمكنك اختيار الصنف عن طريق كتابة اسمه فيتم تظليله في القائمة

ثم بعد ذلك تقوم بالتعديل عليه

ولكن فى هذا الفورم يمكنك البحث باسم الصنف فقط

وان شاء الله سوف أحاول فى أقرب وقت عمل البحث بالاسم أو الرقم

أرجو أن يكون هذا التعديل يفى بالغرض مؤقتا

Sales.rar

[عصام2008]

جزاك الله خيراً أخي العزيز / رجب

وجعل الله مساعدتك لي هذه في ميزان حسناتك انشاء الله

الأخ العزيز / رجب جاويش

لاحظت أن الكود فعال فقط في ورقة Stor ولكن في ورقة Buys يحدث مشكلة وهي اضافة الصنف المعدل مرة أخري بكامل بياناته ولا يتم تعدل الصنف الموجود بالفعل أرجو الاطلاع والتجربة حيث أنه سيتبين معك سريعا أن الصنف الذي يتكرر يتم تظليل رقم الكود الخاص به باللون الأحمر

تم تعديل يونيو 19, 2012 بواسطه عصام2008

[رجب جاويش]

أخى الفاضل

تفضل الحل الكامل

وأرجو أن يكون كما تريد

Sales1.rar

[عصام2008]

الأخ العزيز / رجب جاويش

لاحظت أن الكود فعال فقط في ورقة Stor ولكن في ورقة Buys يحدث مشكلة وهي اضافة الصنف المعدل مرة أخري بكامل بياناته ولا يتم تعدل الصنف الموجود بالفعل أرجو الاطلاع والتجربة حيث أنه سيتبين معك سريعا أن الصنف الذي يتكرر يتم تظليل رقم الكود الخاص به باللون الأحمر

[رجب جاويش]

أخى الفاضل / أرجو التوضيح أكثر

الكود يعمل معى تمام

حيث أنه عند التعديل فى اسم صنف مثلا يعدل الاسم فى الصفحتين معا

[عصام2008]

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

أرجو المعذرة عن هذا التسرع

ولكن هناك ملاحظة على التعديل في ورقة Buys حيث أنه يقوم بالتعديل على أول صنف مسجل وتجاهل بقية تسجيلات الصنف بمعني أن الصنف يتم شراؤة أكثر من مرة

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

[عصام2008]

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

أرجو المعذرة عن هذا التسرع

ولكن هناك ملاحظة على التعديل في ورقة Buys حيث أنه يقوم بالتعديل على أول صنف مسجل وتجاهل بقية تسجيلات الصنف بمعني أن الصنف يتم شراؤة أكثر من مرة

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

[رجب جاويش]

هل تقصد أن اسم الصنف مكرر أكثر من مرة