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

مساعدة من الخبراء


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

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

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

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

بارك الله فيكم

Suivi beton.zip

تم تعديل بواسطه marfipo
رابط هذا التعليق
شارك

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

يا اخي حتى في مسمىات الشيتات باللغة الفرنسية فعند تنشيط الفورم يتم إسناد الشيتات إلي الكمبو ماعدا الـ Total General  وكنت اريد إضافة الشيت المخفي  Donnees  لكي لايتم حذفها بالخطأ لكن ماقبل الاسم معي بسبب اللغة هذا أولا .

Private Sub UserForm_Initialize()
    ComboBox1.Clear
    For Each x In Sheets
        If x.Name <> "Total Général" And x.Name <> "Donnees" Then ComboBox1.AddItem x.Name
    Next
End Sub

 

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

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(4)
    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

 

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

اخي KHMB ما اريده هو  تعديل في الكود المسمى newmonthsheet بحيث كلما ضغطت على زر ADDSHEET الموجود في الشيت المسمى février-2015 ان يتم اضافة شيت mars-2015 وان يتم حذف  الاسطر التي بها التواريخ المكررة في العمود A وان لا يتم حدف الاسطر التي بها الخلايا الفارغة في العمود A

 

تم تعديل بواسطه marfipo
رابط هذا التعليق
شارك

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

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



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

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

Important Information