طلب ترحيل أسماء ذات شرط محدد من شيت إلى آخر دون فراغات

[أبو عبدالإله]

السلام عليكم ورحمة الله وبركاته :

أسعد الله أوقاتكم بكل خير أحبتي وأساتذتي الكرام .

 

أريد معادلة أو كود أو أي شيء مناسب لجلب الأسماء ( المشروطة )  دون أسطر فارغة في كامل الجدول بعد استدعائها من شيت آخر 

 

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

 

ولكم خالص الشكر والتقدير 

 

 نموذج.rar

 

 

نموذج.rar

[ياسر خليل أبو البراء]

أخي الحبيب التاج

أما آن لك أن تغير اسم الظهور للغة العربية

إليك الكود التالي عله يكون المطلوب

Sub Test()
    Dim WS As Worksheet, SH As Worksheet
    Dim Cel As Range
    Dim lRow As Long
    Set WS = Sheets("أداة بناء الخطط"): Set SH = Sheets("ورقة1")
    
    Application.ScreenUpdating = False
        For Each Cel In WS.Range("H3:H43")
            If Cel.Value >= 0.9 Then
                lRow = SH.Cells(Rows.Count, "B").End(xlUp).Row + 1
                SH.Cells(lRow, "B").Value = Cel.Offset(, 1)
            ElseIf Cel.Value <= 0.5 Then
                lRow = SH.Cells(Rows.Count, "H").End(xlUp).Row + 1
                SH.Cells(lRow, "H").Value = Cel.Offset(, 1)
            End If
        Next Cel
    Application.ScreenUpdating = True
End Sub

 

ALTAG.rar

[أبو عبدالإله]

فتح الله أبواب رحمته ورزقك من حيث لا تحتسب أستاذي الفاضل أبو البراء .

عمل أكثر رائع ويؤدي المطلوب بكل دقة .

أسأل الله أن يثيبك ويسخر لك من يخدمك كما تخدم إخوتك .

 

بالنسبة للاسم أخي الحبيب حاولت سابقا ولم أجد خيارا لتحويل الاسم إلى اللغة العربية .

 

كل الحب والتقدير لك

[ياسر خليل أبو البراء]

أخي الحبيب

الحمد لله أن تم المطلوب على خير

بالنسبة لتغيير اسم الظهور قم بالإطلاع على رابط التوجيهات في الموضوعات المثبتة ستجد طريقة تغيير الاسم

من هنا

راجع التوجيه العاشر

 

تقبل تحياتي

[أبو عبدالإله]

تم تعديل الاسم .

 

ولكم خالص الحب والود ..