منير الاسد قام بنشر ديسمبر 10, 2015 مشاركة قام بنشر ديسمبر 10, 2015 (معدل) السلام عليكم و رحمة الله و بركاته في الملف اسفله لدي شيت به كود يقوم باضافة شيت تدريجيا كل شهر وحذف التكرار الموجود في العمود A اريد تعديله لكي لا يقوم بحذف الاسطر التي تكون بها خلايا فارغة في العمود A بارك الله فيكم Suivi beton.zip تم تعديل ديسمبر 10, 2015 بواسطه marfipo رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر ديسمبر 10, 2015 مشاركة قام بنشر ديسمبر 10, 2015 السلام عليكم ورحمة الله يا اخي حتى في مسمىات الشيتات باللغة الفرنسية فعند تنشيط الفورم يتم إسناد الشيتات إلي الكمبو ماعدا الـ 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 رابط هذا التعليق شارك More sharing options...
منير الاسد قام بنشر ديسمبر 11, 2015 الكاتب مشاركة قام بنشر ديسمبر 11, 2015 (معدل) اخي KHMB ما اريده هو تعديل في الكود المسمى newmonthsheet بحيث كلما ضغطت على زر ADDSHEET الموجود في الشيت المسمى février-2015 ان يتم اضافة شيت mars-2015 وان يتم حذف الاسطر التي بها التواريخ المكررة في العمود A وان لا يتم حدف الاسطر التي بها الخلايا الفارغة في العمود A تم تعديل ديسمبر 11, 2015 بواسطه marfipo رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان