ehabaf2 قام بنشر يوليو 9 مشاركة قام بنشر يوليو 9 السلام عليكم الاخوة الافاضل محتاج كود يرحل بيانات بناء على وجود قيمة فى العمود A مرفق ملف للتوضيح الف الف شكر لحضراتكم كود ترحيل الخلايه اللى فيها قيم فقط.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يوليو 9 أفضل إجابة مشاركة قام بنشر يوليو 9 Sub IFNotBlank() Dim lr&, i&, a() a = [A116:K231].Value lr = Range("AM" & Rows.Count).End(xlUp).Row Dim tmp(): ReDim tmp(1 To UBound(a)) For i = LBound(a) To UBound(a) If a(i, 1) > 0 Then n = n + 1: tmp(n) = i Next ReDim Preserve tmp(1 To n) a = Application.Index(a, Application.Transpose(tmp), _ Application.Transpose(Evaluate("Row(2:" & UBound(a, 2) & ")"))) Range("AM" & lr + 1).Resize(UBound(a), UBound(a, 2)) = a End Sub في حالة إظافة الصيغ على طول عمود (A) قم بتعديل الكود ليتم تجاهلها If a(i, 1) > 0 And _ a(i, 1) <> HasFormula Then n = n + 1: tmp(n) = i 2 رابط هذا التعليق شارك More sharing options...
ehabaf2 قام بنشر يوليو 10 الكاتب مشاركة قام بنشر يوليو 10 السلام عليكم و رحمة الله و بركاته الاستاذ الفاضل محمد هشام. ربنا يحفظك و يعزك و يبارك فيك دائما و كالعادة الكود اكتر من رائع من لا يشكر الناس لا يشكر الله الف الف شكر لحضرتك لو امكن حضرتك تشرح اسطر الكود لامكانيه التعديل عليه و فهم عمله اكون شاكر لحضرتك و لكى نتعلم كيفية كتابة الكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان