محتاج كود ترحيل بيانات بناء على شرط فى العمود A

[ehabaf2]

السلام عليكم الاخوة الافاضل

محتاج كود يرحل بيانات بناء على وجود قيمة  فى العمود A

مرفق ملف للتوضيح

الف الف شكر لحضراتكم

كود ترحيل الخلايه اللى فيها قيم فقط.xlsx

[محمد هشام.]

 

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

 

[ehabaf2]

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

ربنا يحفظك و يعزك و يبارك فيك

دائما و كالعادة الكود اكتر من رائع

من لا يشكر الناس لا يشكر الله الف الف شكر لحضرتك

 

لو امكن حضرتك تشرح اسطر الكود لامكانيه التعديل عليه و فهم عمله اكون شاكر لحضرتك و لكى نتعلم كيفية كتابة الكود