رجب جاويش

بسم الله ما شاء الله عمل مميز بارك الله فيك

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

تفضل أخى كود آخر لأحد عباقرة المنتدى يحقق لك ما تريد Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub حماية الخلايا المحتوية على معادلات.rar

أخى الفاضل بالنسبة للتحرك لأعلى أو لاسفل فان الملف يعمل عندى تمام ولا توجد مشكلة اما بالنسبة للتعديل داخل Listbox مباشرة ( حسب معلوماتى ) لا يمكن ذلك والله أعلم

شكرا جزيلا أخى الحبيب / محمود

جرب هذه الفكرة Listbox.rar

أخى ابراهيم هذا كود فكرته بسيطة لكنه رائع فى التنفيذ وهو للأستاذ الكبير / هشام شلبى Private Sub Worksheet_selectionchange(ByVal target As Range) If target.HasFormula Then ActiveSheet.Protect Else ActiveSheet.Unprotect End If End Sub حماية الخلايا المحتوية على معادلات.rar

تفضل Private Sub UserForm_Initialize() ListBox1.AddItem ActiveCell.Value End Sub Listbox.rar

بعد اذن أخى الحبيب / محمود تفضل أخى ما طلبت ترتيب حسب المجموع كشف تنسيق _2013.rar

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

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

بعد اذن أخى الحبيب / محمود تفضل أخى ما تريد تخطيط مشاريع1.rar

تسلم ايديك وتسلم أفكارك أخى محمود

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

هل تقصد هكذا Private Sub UserForm_Initialize() ComboBox1.Value = ActiveCell.Value End Sub combobox.rar

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

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

لاشكر على واجب أخى الفاضل وكل عام وأنتم بخير

لاشكر على واجب أخى الفاضل وكل عام وأنتم بخير

الاخ الفاضل والاستاذ القدير / الخالدى بارك الله فيك ونفعنا بعلمك دائما بعد الاستفادة من خبراتكم الرائعة تم عمل المطلوب Private Sub CommandButton1_Click() If TextBox1.Value = "" Or TextBox2.Value = "" Or _ TextBox3.Value = "" Or TextBox4.Value = "" Then MsgBox "اكمل البيانات": Exit Sub End If col = TextBox1.Text F1 = TextBox2.Value F2 = TextBox3.Value For i = F1 To F2 Range(col & i).FormulaArray = Application.Substitute(TextBox4.Value, ";", ",") Range(col & i).FormulaArray = Application.ConvertFormula(Range(col & i).FormulaArray, _ xlA1, xlR1C1, , Cells(F1, col)) Next End Sub ادخال معادلة صفيف من خلال يوزرفورم.rar

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

هل تقصد هكذا اولى ملابس1.rar

لا شكر على واجب أخى الفاضل وكل عام وأنتم بخير

تفضل أخى بحث1.rar

اختر أحد الخيارات الآتية لفتح الفورم 1- عند فتح الملف يفتح فورم البحث تلقائيا 2- عند الضغط مرتين Doubleclick على عمود تختاره 3- عند تنشيط Activate للصفحة 4- عند الضغط على أى خلية فارغة 5- عند الضغط كليك يمين على أى خليه