منير الاسد قام بنشر نوفمبر 11, 2015 مشاركة قام بنشر نوفمبر 11, 2015 السلام عليكم و رحمة الله و بركاته في الملف اسفله لدي شيت به كود يقوم بحذف الورقة التي نختار حذفها من المربع و لدي كذالك العمود B الموجودة به اسماء الشيتات المطلوب هو تعديل الكود بحيث كلما قمت بحذف شيت ان يتم حذف السطر الموجود به اسم الشيت اوتوماتيكيا Class.zip رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 11, 2015 مشاركة قام بنشر نوفمبر 11, 2015 (معدل) تفضل Class_1.rar تم تعديل نوفمبر 11, 2015 بواسطه الـعيدروس رابط هذا التعليق شارك More sharing options...
منير الاسد قام بنشر نوفمبر 11, 2015 الكاتب مشاركة قام بنشر نوفمبر 11, 2015 الكود لا يعمل اخي العيدروس رابط هذا التعليق شارك More sharing options...
منير الاسد قام بنشر نوفمبر 12, 2015 الكاتب مشاركة قام بنشر نوفمبر 12, 2015 ممكن ان تجدوا لي الحل بارك الله فيكم رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 12, 2015 مشاركة قام بنشر نوفمبر 12, 2015 أنا جربت الملف الذي أرفقه الأخ الحبيب أبو نصار ويعمل بشكل جيد .. ما المشكلة التي تحدث معك ؟؟وضح بشيء من التفصيل؟ الفورم عليه كومبوبوكس تختار الورقة المطلوب حذفها وتضغط زر الأمر ..فيتم الحذف ..ما المشكلة فيما يخص الملف.؟؟؟ رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 12, 2015 مشاركة قام بنشر نوفمبر 12, 2015 شاهد الشرح فالمرفق هكذا عمل الكود توضيح.rar رابط هذا التعليق شارك More sharing options...
منير الاسد قام بنشر نوفمبر 12, 2015 الكاتب مشاركة قام بنشر نوفمبر 12, 2015 اخي ياسر الخليل لما اضغط على حدف الشيت يتم بالفعل حذف السطر المراد حذفه و لكن المشكل ان اسماء الشيتات تختفي و لا تضهر الا عندما اضغط على ENTER في احد الخلايا الموجوده في العمود B رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 12, 2015 مشاركة قام بنشر نوفمبر 12, 2015 انت قلت اقتباس الكود لا يعمل اخي العيدروس اضف هذا السطر Application.Calculate بعد السطر Sheets(ComboBox1.Value).Delete ليكون كود ال CommandButton1_Click كالتالي بعد الاضافه Private Sub CommandButton1_Click() Dim C As Range Dim Fir Application.DisplayAlerts = False If Sheets.Count > 1 And ComboBox1.Value <> "" Then On Error Resume Next With ActiveSheet.Columns(2) Set C = .Find(ComboBox1, LookIn:=xlValues) If Not C Is Nothing Then Fir = C.Address Do C.EntireRow.Delete Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> Fir End If End With Sheets(ComboBox1.Value).Delete Application.Calculate End If Application.DisplayAlerts = True UserForm_Initialize End Sub 2 رابط هذا التعليق شارك More sharing options...
منير الاسد قام بنشر نوفمبر 12, 2015 الكاتب مشاركة قام بنشر نوفمبر 12, 2015 بارك الله فيك اخي العيدروس الان الكود يعمل 100% رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان