محمد عبد الناصر قام بنشر فبراير 2, 2018 مشاركة قام بنشر فبراير 2, 2018 السلام عليكم يا احلى منتدى عايز كود حذف اصفف اعتماداً على الخليه H يعني لو مش اي حاجه في الخلية من H4 ~ H10000 يحذف من الصف كامل لحد الخلية H لو مكتوب يسيبها زي ما هيا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 2, 2018 مشاركة قام بنشر فبراير 2, 2018 هذا الكود Sub DEl_H() Dim My_rg As Range, Lh As Long, i As Long Lh = Cells(Rows.Count, "H").End(3).Row If Lh < 3 Then Exit Sub Set My_rg = Range("h2:h" & Lh) For i = Lh To 2 Step -1 If Cells(i, "H") = vbNullString Then _ Cells(i, "H").EntireRow.Delete Next End Sub 2 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر فبراير 2, 2018 الكاتب مشاركة قام بنشر فبراير 2, 2018 16 hours ago, سليم حاصبيا said: هذا الكود Sub DEl_H() Dim My_rg As Range, Lh As Long, i As Long Lh = Cells(Rows.Count, "H").End(3).Row If Lh < 3 Then Exit Sub Set My_rg = Range("h2:h" & Lh) For i = Lh To 2 Step -1 If Cells(i, "H") = vbNullString Then _ Cells(i, "H").EntireRow.Delete Next End Sub الللللله ينور اي الشغل الجامد ده 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 2, 2018 مشاركة قام بنشر فبراير 2, 2018 25 دقائق مضت, محمد عبد الناصر said: الللللله ينور اي الشغل الجامد ده يمكن استعمال هذا الكود (بدون حلقات تكرارية) Option Explicit Sub DEl_H_New() Dim Lh As Long Lh = Cells(Rows.Count, "H").End(3).Row If Lh < 4 Then Exit Sub Range("h4:h" & Lh).SpecialCells(4). _ EntireRow.Delete End Sub 1 رابط هذا التعليق شارك 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.