اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by محمد هشام.,

الردود الموصى بها

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

محتاج كود يرحل بيانات بناء على وجود قيمة  فى العمود 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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information