Ahmed Saad 2017

استاذ سليم شكرا جزيلا انا جربت الكود للاسف بياخد وقت كبير لانه بينفز كل امر (الفلتر - و السيريال ) والشيت الاساسي فوق ال 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

و الرجاء من الاخوة الكرام المساعدة في عمل ليست بوكس او قائمة بحث حيث ان لدي شيت تكلفة مطعم يحتوي علي 5000 سطر و عندي صعوبة شديدة في البحث و اضافة بيانات جديدةوشكرا لسيادتكم New Microsoft Office Excel Worksheet (2).rar