بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
جلال الجمال_ابو أدهم
-
Posts
1,417 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
6
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه جلال الجمال_ابو أدهم
-
-
زيزو العجوز
تحياتى و جزاك الله خيرا
هو المطلوب -
زيزو العجوز
تحياتى
جزاك الله خيرا و لكنه يقوم بالترحيل فى sheet1
ولكن يرجى الترحيل الى sheet2 بالعمودين A4_B4شكرا
-
1 ساعه مضت, الزباري said:
يسعدنا تواجدك معنا يا أبو أدهم..
بس شفت عرض أبوحنين (اشتر واحدة وباقي الكمية مجاناً).. يا بلاش.
تحياتي للجميع
أبو حنــــين
حبيبنا يرد انا مش هقول حاجه
جزاكم الله خيرا
تحياتى -
تحياتى و ايام مباركه
مرفق المطلوب مع تحديث البيانات عند ادخال تكويدات جديده
مرفق المثال
-
-
2
-
-
-
أبو حنــــين
اخى الفاضل جزاك الله خيرا
ما شاء الله عليك و تم التنفيذ
و تم زيادة العمود JPrivate 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
تحياتى
ضعه فى حدث ورقة العمل و مرفق مثال من هنا
كود مميز جاهز_كود دبل كليك لاستدعاء اى فورم ...الختحياتى
-
1
-
-
تحياتى
مرفق كود خاص باستدعاء الفورم عن طريق دبل كليك فى النطاق من _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و لا تنسونا من صالح الدعاء
تحياتى
-
1
-
-
saadeps
اخى الفاضل جزاك الله خيرا
-
1
-
-
-
-
1
-
-
الزباري
اخى الفاضل تحياتى
-
محمد الريفى
اخى الفاضل تحياتى
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة أريد كود تصفية وتنسيق شرطيتم ارفاق كود الحل من الفاضل ا / احمدزمان
مرفق الملف
و لا تنسونا من صالح الدعاء
تحياتى
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة كيف اربط الصور بالقائمه المنسدلهتم ارفاق كود الحل من الفاضل ا / أبوعبد الله
مرفق الملف
و لا تنسونا من صالح الدعاء
تحياتى
-
مجدى يونس
اخى الفاضل ما شاء الله عليك
مواضيع اكتر من رائعه -
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة نسخ صف مماثل بالتنسيقات والمعادلاتتم ارفاق كود الحل من الفاضل ا / عبدالله باقشير
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
يضيف صف مع المعادلات فقط ويمسح القيم
مرفق الملف
و لو أردنا أن يضيف الكود عدد من الصفوف محدد بقيمة في خلية ما في صفحة أخرى غير التي نعمل عليها
استخدم الكود التالي:
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مرفق الملف
و لا تنسونا من صالح الدعاء
تحياتى
-
محمد الريفى
اخى الفاضل جزاك الله خيرا
وحشتنا مشاركاتك -
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة برمجة الفورم 4 ازرار بحث وحفظتم ارفاق كود الحل من الفاضل ا / أبو حنــــين
مرفق الملف
و لا تنسونا من صالح الدعاء
تحياتى
-
طارق محمود
تحياتنا يا بشمهندس و جزاك الله خيرا
و نرجو وجودك باستمرار -
تحياتى
يوجد موضوعات مشابهه
تابع موضوعك ضمن
مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ بحث _ اضافة _ ترحيل _ ادخال _ تعديل -
مجدى يونس
اخى الفاضل جزاك الله خيرا
تحياتى-
1
-
-
المصباحي
اخى الفاضل جزاك الله خيرا
هديتى_برنامج مخازن_2030gadham_دبل كليك بالارصدة_صنف_مورد_عميل
في منتدى الاكسيل Excel
قام بنشر · تم تعديل بواسطه جلال الجمال_ابو أدهم
تحياتى و ايام مباركه
مرفق برنامج مخازن
شرح البرنامج
فى صفحة التكويد
قم بتكويد الحسابات حسب رؤوس الاعمده_و كابس على زر تحديث البيانات
صفحة sheet2_و هى صفحة يومية المخزن ( صفحة ادخال البيانات الرئيسيه )
يتم ادخال اسماء الصنف _ الموردين _ العملاء _ عن طريق كابس دبل كليك فى يومية المخزن بنموذج بحث و اضافة لاستاذنا_ عبدالله باقشير
و لا انسى لمسة استاذنا / أبو حنــــين بتعديل كود البحث لعدد من الاعمدة
صفحة sheet1_و هى صفحة البحث و اظهار الحركة
و نفس برنامج البحث لاستاذنا_ أ / ياسر العربى بحث متقدم - سرعة عالية ومرونة باستخدام المصفوفات
صفحة للسداد للمورد
صفحة للمستلم من العميل
صفحات الارصدة_صنف_مورد_عميل
ملحوظه
لا تغير اسماء الصفحات
و لا تنسونا من صالح الدعاء
تحياتى
برنامج مخازن_2030gadham_دبل كليك.rar