Ahmed Saad 2017

برجاء المساعدة في تشغيل الكود على الخلايا في الجدول التي يتطابق مع التاريخ في الخلية (C2) في العمود (C) ولا يتم تشغيل الكود على باقي الخلايا التي لا تتوافق مع التاريخ تنفيذ المايكرو بشرط توافق التاريخ.xlsm

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

برجاء المساعده في تشغيل كود فصل الكلمات عن الحروف Split Text.xlsm

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

بالفعل يوجد لدى اكواد طويلة المدة قد تصل الي 4 او 5 دقائق وقد اعتقد ان الشيت به مشكلة احيانا فالرسالة تفيد بأنتظار انتهاء الكود

الاستاذ سليم المحترم تحية طيبة وبعد تم تجربة الكود ويعمل بشكل جيد ولكن دون تحقيق الشرط حيث تم تلوين الخلايا بطريقة عشوائية دون تحقيق الشروط المرسلة برجاء المراجعة وشكرا لسيادتك

المطلوب عمل كود لتغير ايقونة الانتظار في الويندز والتي هي عبارة عن دائرة سماوي اللون في ويندز 7 الي رسالة "جاري تفعيل الكود برجاء الانتظار " وشكرا لسيادتكم

الاستاذ سليم تم تعديل الكود ويعمل بشكل ممتاز جزاك الله كل خير

الاستاذ سليم المحترم تحية طيبة وبعد تم تجربة الكود ويعمل بشكل جيد ولكن دون تحقيق الشرط حيث تم تلوين الخلايا بطريقة عشوائية دون تحقيق الشروط المرسلة برجاء المراجعة وشكرا لسيادتك

الاستاذ علي المحترم شكرا لسيادتك علي المساعدة ولكن المطلوب كود VBA وليس تنسيق شرطي كما مرسل من حضرتك في انتظار الحل اذا امكن

المطلوب عمل كود تنسيق شرطي بحيث يتم تلوين الخلية في العمود Y الاصغر من صفر بلون احمر و الاكبر من صفر بلون اخضر والتي تساوي صفر بلون بني فاتح كما موضح بالمثال Test VBA Color.xlsxوشكرا لسيادتكم

اريد ان تكون التصفيه علي نفس الشيت من خلال لست بوكس به اسماء الشهور

هل هناك حل من الاخوه الاعضاء

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

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

برجاء من الاخوة الاعضاء المساعده في عمل كود فلتر علي عمود Date في جميع اوراق العمل بحيث يتم عمل فورم علي شكل نتيجة يتم تحديد التاريخ المطلوب عمل فلتر له و البحث و الفرز في جميع اوراق العمل علي اسم العمود و اختيار التاريخ الذي تم تحديده وشكرا لسيادتكم test.xlsx

شكرااااا جزيلا الكود شغال زي الفل بارك الله فيك

استاذ سليم شكرا جزيلا انا جربت الكود للاسف بياخد وقت كبير لانه بينفز كل امر (الفلتر - و السيريال ) والشيت الاساسي فوق ال 10000 صف اعتقد هيحتاج وقت كبير جدااااا فهل ممكن نعملها بطريقة المصفوفات

شكرا للاخوه الكرام انا محتاج كود vba لان ممكن اضيف صفوف جديده او احذف

برجاء من الاخوة الاعضاء المساعده في عمل كود محدد لعمل سيريال لملف في عمود السيريال بناء علي شرط محدد مرسل الملف وصورة للمطلوب وشكرا لسيادتكم ادخال بيانات8465.xlsm

برجء الافادة في كيقية عمل هيدر لليست بوكس و كيف يمكن ان اجعل الهيدر عبارة عن صف معين في شيت الداتا ويكون عرض العمود في الليست بوكس مرن بحيث يتسع اكير كلمة في العمود وطريقة زيادة عدد العواميد المراد اضافتها علي القائمة حيث يحدث خطا بعد زيادة العواميد عن 10 اعمده لو امكن ارسال ملف به كود افضل من المستخدم وشكرا جزيلا مرسل الملفالبحث والفلترة.xlsm

الاستاذ علي المحترم تم تعديل الشيت وتم تشغيل اليست بوكس بنجاح هل من الممكن التعامل مع شيت الاكسيل من تعديل او اضافة في حالة ان اليوزر فورم مفتوحه

استاذ علي المحترم تم العمل بنجاح علي الملف الخاص بي شكرا جزيلا هل يوجد حل ان يتم العمل علي الملف في حالة ان اليوزر فورم مفتوحه

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

برجاء من السادة الاعضاء التعديل علي الكود بحيث يتم تفعيل خصية البحث قي الكومبو بوكس بكتابة اول حرف من اسماء الشيت المدرجة بورقة العمل مع امكانية البحث عن اسماء الشيتات المخفيه من ورقة العمل وعند الضغط عليها يتم الذهاب اليها دون اظهارها في شريط اسماء ورقات العمل مرسل لسيادتكم الكود Private Sub ComboBox1_Change() 'Updateby Extendoffice If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select End Sub Private Sub ComboBox1_DropButtonClick() Dim xSheet As Worksheet On Error Resume Next Application.ScreenUpdating = False Application.EnableEvents = False If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then ComboBox1.Clear For Each xSheet In ThisWorkbook.Sheets ComboBox1.AddItem xSheet.Name Next xSheet End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub Private Sub ComboBox1_GotFocus() ComboBox1.Clear If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown End Sub