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

[منير الاسد]

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

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

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

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

Suivi beton.zip

تم تعديل ديسمبر 10, 2015 بواسطه marfipo

[KHMB]

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

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

 

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