ترحيل كقيم

[hussinabdo1111@hotmail.com]

اريد الترحيل كقيم اي لصق خاص لاني كلما وضعت هذا السطر تظهر رسالة

cl.Offset(0, -6).Resize(1, 6).Copy Sheets("ÞæÇÆã").Range("d" & Sheets("ÞæÇÆã").[d1000].End(xlUp).Row + 1).PasteSpecial  xlPasteValues

الترحيل كقيم.rar

[hussinabdo1111@hotmail.com]

اريد الترحيل كقيم اي لصق خاص لاني كلما وضعت هذا السطر تظهر رسالة

cl.Offset(0, -6).Resize(1, 6).Copy Sheets("ÞæÇÆã").Range("d" & Sheets("ÞæÇÆã").[d1000].End(xlUp).Row + 1).PasteSpecial  xlPasteValues

الترحيل كقيم.rar

الكود للاستاذ عبدالله المجرب

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

جرب هذا التعديل

Sub Macro3()
    Dim AA As Range
    
    For Each AA In Range("L10:L" & [L1000].End(xlUp).Row)
        If AA <> Empty Then
            AA.Offset(1, -6).Resize(1, 6).Copy
            Sheets("قوائم").Range("C" & Sheets("قوائم").[C1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues
        End If
    Next
    
    Application.CutCopyMode = False
End Sub

 

[hussinabdo1111@hotmail.com]

رائع استاذ ياسر تسلم والله

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

الحمد لله الذي بنعمته تتم الصالحات

أخي الكريم يرجى تغيير اسم الظهور للغة العربية

تقبل تحياتي