حواديت قام بنشر فبراير 27, 2021 مشاركة قام بنشر فبراير 27, 2021 لو سمحتم ممكن حد يقولى فى كود يخفيلى او يفلتر الصفوف الفاضيه فى اليست بوكس اللى فى الصورة تــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك رابط هذا التعليق شارك More sharing options...
أفضل إجابة هانى محمد قام بنشر فبراير 27, 2021 أفضل إجابة مشاركة قام بنشر فبراير 27, 2021 لعدم اهدار واضاعة وقت الأساتذة دون جدوى أو أهمية ... فلا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب , فلايمكن العمل على التخمين ... فاذا تخيلت ما تريد هل ينفع معك هذا الكود , وان لم يصلح معك فكما اخبرتك أدى هذا بدوره الى اضاعة الوقت دون جدوى Private Sub UserForm_Initialize() Dim MyData As Range Dim r As Long With Me.ListBox1 .RowSource = "" Set MyData = Worksheets("Sheet1").Range("A2:j100") .List = MyData.Cells.Value For r = .ListCount - 1 To 0 Step -1 If .List(r, 3) = "" Then .RemoveItem r End If Next r End With End Sub 2 رابط هذا التعليق شارك More sharing options...
حواديت قام بنشر مارس 13, 2021 الكاتب مشاركة قام بنشر مارس 13, 2021 متشكر لحضرتك جدا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.