أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود ترحيل

من فضلكم اريد ترحيل اعمد معين من شيت ( للنسخ من النت ) الي شيت( الصف الأول ) مع الاحتفاظ بالشيتات الأخري يعني عايز ارحل ..



subject icon غير مجابة كود ترحيل
02-09-2021 03:19 مساء
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 

من فضلكم اريد ترحيل اعمد معين من شيت ( للنسخ من النت ) الي شيت( الصف الأول ) مع الاحتفاظ بالشيتات الأخري
يعني عايز ارحل عمود ( كود التلميذ ) و ( الاسم ) و ( الفصل ) و (العام الاكاديمي ) و ( نوعية الطالب ) .
وشكرا  لكم .
 
 
  سعد.xlsx   تحميل xlsx مرات التحميل :(9)
الحجم :(26.489) KB


02-09-2021 03:53 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود ترحيل
السلام عليكم بها نبدأ أي موضوع
في ورقة العمل المسماة "الصف الأول" قم بحذف الأعمدة الغير مطلوبة وأبقي على الأعمدة التي قمت بالإشارة إليها في سؤالك ثم جرب الكود التالي
Sub Test()
    Dim a
    With Sheets("للنسخ من النت")
        a = .Range("A1").CurrentRegion.Offset(2, 1).Value
        a = Application.Index(a, Evaluate("ROW(1:" & UBound(a, 1) & ")"), [{1,2,4,6,7}])
        Sheets("الصف الأول").Range("A3").Resize(UBound(a, 1), UBound(a, 2)).Value = a
    End With
End Sub




الكلمات الدلالية
ترحيل ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:37 مساء