جلال الجمال_ابو أدهم

أبو حنــــين اخى الفاضل ما شاء الله عليك تحياتى سليم حاصبيا اخى الفاضل جزاك الله خيرا تحياتى

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

تحياتى و ايام مباركه مرفق برنامج مخازن شرح البرنامج فى صفحة التكويد قم بتكويد الحسابات حسب رؤوس الاعمده_و كابس على زر تحديث البيانات صفحة sheet2_و هى صفحة يومية المخزن ( صفحة ادخال البيانات الرئيسيه ) يتم ادخال اسماء الصنف _ الموردين _ العملاء _ عن طريق كابس دبل كليك فى يومية المخزن بنموذج بحث و اضافة لاستاذنا_ عبدالله باقشير و لا انسى لمسة استاذنا / أبو حنــــين بتعديل كود البحث لعدد من الاعمدة صفحة sheet1_و هى صفحة البحث و اظهار الحركة و نفس برنامج البحث لاستاذنا_ أ / ياسر العربى بحث متقدم - سرعة عالية ومرونة باستخدام المصفوفات صفحة للسداد للمورد صفحة للمستلم من العميل صفحات الارصدة_صنف_مورد_عميل ملحوظه لا تغير اسماء الصفحات و لا تنسونا من صالح الدعاء تحياتى برنامج مخازن_2030gadham_دبل كليك.rar

زيزو العجوز تحياتى و جزاك الله خيرا هو المطلوب

زيزو العجوز تحياتى جزاك الله خيرا و لكنه يقوم بالترحيل فى sheet1 ولكن يرجى الترحيل الى sheet2 بالعمودين A4_B4 شكرا

أبو حنــــين حبيبنا يرد انا مش هقول حاجه جزاكم الله خيرا تحياتى

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

الزباري أبو حنــــين جزاكم الله خيرا موضوع شيق و اثنين محترمين تحياتى

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

أبو حنــــين اخى الفاضل جزاك الله خيرا ما شاء الله عليك و تم التنفيذ و تم زيادة العمود J Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Union(Range("A2:A20000"), Range("F2:F20000", Range("J2:J20000")))) Is Nothing Then Cancel = True KH_T_SEARSH.Show End If End Sub و شكرا morestudy تحياتى ضعه فى حدث ورقة العمل و مرفق مثال من هنا كود مميز جاهز_كود دبل كليك لاستدعاء اى فورم ...الخ تحياتى

تحياتى مرفق كود خاص باستدعاء الفورم عن طريق دبل كليك فى النطاق من _A2 : A20000 و المطلوب تكرار استخدام نفس الفورم فى نطاق اعمده اخرى و لتكن_F2:F20000 و J2:J20000 و الكود المستخدم هو Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A2 : A20000")) Is Nothing Then Cancel = True KH_T_SEARSH.Show End If End Sub و شكرا

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة DATA --- LIST --- CREAT LIST تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف CREATE LIST.rar و لا تنسونا من صالح الدعاء تحياتى

saadeps اخى الفاضل جزاك الله خيرا

mahmoudfoxmam اخى الفاضل جزاك الله خيرا تحياتى

طلعت محمد حسن اخى الفاضل ماشاء الله عليك محمد ممتاز جزاك الله خيرا تحياتى

الزباري اخى الفاضل تحياتى

محمد الريفى اخى الفاضل تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة أريد كود تصفية وتنسيق شرطي تم ارفاق كود الحل من الفاضل ا / احمدزمان مرفق الملف Book555.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كيف اربط الصور بالقائمه المنسدله تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف بيانات الموظفين-1.rar و لا تنسونا من صالح الدعاء تحياتى

مجدى يونس اخى الفاضل ما شاء الله عليك مواضيع اكتر من رائعه

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة نسخ صف مماثل بالتنسيقات والمعادلات تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير Sub KH_FillDown() Dim Last As Long Last = Range("A" & Rows.Count).End(xlUp).Row + 1 On Error Resume Next With Rows(Last) .FillDown .SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 End Sub وهو يعتمد على اخر خلية في العمود A يضيف صف مع المعادلات فقط ويمسح القيم مرفق الملف INVOICE.rar و لو أردنا أن يضيف الكود عدد من الصفوف محدد بقيمة في خلية ما في صفحة أخرى غير التي نعمل عليها استخدم الكود التالي: Sub KH_Copy() On Error Resume Next Dim Last As Long Dim Count As Integer Count = 1 Count = Sheets("KHBOOR").Range("F9").Value With ActiveSheet Last = .Range("A" & .Rows.Count).End(xlUp).Row .Rows(Last).Copy .Rows(Last + 1).Resize(Count) .Rows(Last + 1).Resize(Count).SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 End Sub مرفق الملف KH_COPY.rar و لا تنسونا من صالح الدعاء تحياتى

محمد الريفى اخى الفاضل جزاك الله خيرا وحشتنا مشاركاتك

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برمجة الفورم 4 ازرار بحث وحفظ تم ارفاق كود الحل من الفاضل ا / أبو حنــــين مرفق الملف Form-1.rar و لا تنسونا من صالح الدعاء تحياتى

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

تحياتى يوجد موضوعات مشابهه تابع موضوعك ضمن مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ بحث _ اضافة _ ترحيل _ ادخال _ تعديل