اذهب الي المحتوي
أوفيسنا

برجاء المساعدة في ترحيل البيانات


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

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

تم اضافة كود منقول عن الأستاذ الفاضل ابو اسامة الموقر

Range("A2", Range("A65536").End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA2"), Unique:=True

wael.rar

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information