hussinabdo1111@hotmail.com قام بنشر أكتوبر 11, 2015 مشاركة قام بنشر أكتوبر 11, 2015 اريد الترحيل كقيم اي لصق خاص لاني كلما وضعت هذا السطر تظهر رسالة cl.Offset(0, -6).Resize(1, 6).Copy Sheets("ÞæÇÆã").Range("d" & Sheets("ÞæÇÆã").[d1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues الترحيل كقيم.rar رابط هذا التعليق شارك More sharing options...
hussinabdo1111@hotmail.com قام بنشر أكتوبر 11, 2015 الكاتب مشاركة قام بنشر أكتوبر 11, 2015 اريد الترحيل كقيم اي لصق خاص لاني كلما وضعت هذا السطر تظهر رسالة cl.Offset(0, -6).Resize(1, 6).Copy Sheets("ÞæÇÆã").Range("d" & Sheets("ÞæÇÆã").[d1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues الترحيل كقيم.rar الكود للاستاذ عبدالله المجرب رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 11, 2015 مشاركة قام بنشر أكتوبر 11, 2015 جرب هذا التعديل 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 2 رابط هذا التعليق شارك More sharing options...
hussinabdo1111@hotmail.com قام بنشر أكتوبر 11, 2015 الكاتب مشاركة قام بنشر أكتوبر 11, 2015 رائع استاذ ياسر تسلم والله رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 11, 2015 مشاركة قام بنشر أكتوبر 11, 2015 الحمد لله الذي بنعمته تتم الصالحات أخي الكريم يرجى تغيير اسم الظهور للغة العربية تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.