طلب تعديل كود حذف الشيت و السطر الموجود به اسم الشيت

[منير الاسد]

السلام عليكم و رحمة الله و بركاته 

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

المطلوب هو تعديل الكود بحيث كلما قمت بحذف شيت ان يتم حذف السطر الموجود به اسم الشيت اوتوماتيكيا 

Class.zip

[الـعيدروس]

تفضل

Class_1.rar

تم تعديل نوفمبر 11, 2015 بواسطه الـعيدروس

[منير الاسد]

الكود لا يعمل اخي العيدروس

 

[منير الاسد]

ممكن ان تجدوا لي الحل بارك الله فيكم

[ياسر خليل أبو البراء]

أنا جربت الملف الذي أرفقه الأخ الحبيب أبو نصار ويعمل بشكل جيد ..

ما المشكلة التي تحدث معك ؟؟وضح بشيء من التفصيل؟

الفورم عليه كومبوبوكس تختار الورقة المطلوب حذفها وتضغط زر الأمر ..فيتم الحذف ..ما المشكلة فيما يخص الملف.؟؟؟

[الـعيدروس]

شاهد الشرح فالمرفق

هكذا عمل الكود

توضيح.rar

[منير الاسد]

اخي ياسر الخليل لما اضغط على حدف الشيت يتم بالفعل حذف السطر المراد حذفه و لكن المشكل ان اسماء الشيتات تختفي و لا تضهر الا عندما اضغط على ENTER في احد الخلايا الموجوده في العمود B 

[الـعيدروس]

انت قلت

اقتباس

الكود لا يعمل اخي العيدروس

اضف هذا السطر

  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

 

[منير الاسد]

بارك الله فيك اخي العيدروس الان الكود يعمل 100%