اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

Class.zip

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

اخي ياسر الخليل لما اضغط على حدف الشيت يتم بالفعل حذف السطر المراد حذفه و لكن المشكل ان اسماء الشيتات تختفي و لا تضهر الا عندما اضغط على 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

 

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information