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

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


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





ترحيل الجدول الى الشيت 2 بشرط

السلام عليكم ورحمة الله وبركاتة ترحيل الجدول من شيت الاول الى الشيت الثاني بشرط كل ما اعمل ترحيل يصير تحت الجدول الاخر و ..


موضوع مغلق


30-08-2020 01:15 مساء
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
الدعوات : 1
يتابعهم : 8
يتابعونه : 5
قوة السمعة : 250
 offline 

السلام عليكم ورحمة الله وبركاتة
ترحيل الجدول من شيت الاول الى الشيت الثاني بشرط كل ما اعمل ترحيل يصير تحت الجدول الاخر وهكذا كل ما ارسل يصبح تحت الجدول الاخر
كل الشكر والتقدير الى كل الاخوة والاساتذه
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تجربة2.rar   تحميل rar مرات التحميل :(2)
الحجم :(9.352) KB



أفضل إجابة مقدمة من ابراهيم الحداد وهي:
السلام عليكم ورحمة الله
استخدم الكود التالى
Sub TrnsData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long
Set ws = Sheets("ورقة1")
Set Sh = Sheets("ورقة2")
LR = Sh.Range("A" & Rows.Count).End(xlUp).Row
ws.Range("A2:E" & ws.Range("A" & Rows.Count).End(xlUp).Row).Copy
Sh.Range("A" & LR + 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub
عرض الإجابة




30-08-2020 02:14 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 232
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2179
عدد الإجابات: 28
 offline 
look/images/icons/i1.gif ترحيل الجدول الى الشيت 2 بشرط
السلام عليكم ورحمة الله
استخدم الكود التالى
Sub TrnsData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long
Set ws = Sheets("ورقة1")
Set Sh = Sheets("ورقة2")
LR = Sh.Range("A" & Rows.Count).End(xlUp).Row
ws.Range("A2:E" & ws.Range("A" & Rows.Count).End(xlUp).Row).Copy
Sh.Range("A" & LR + 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub

30-08-2020 02:39 مساء
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ترحيل الجدول الى الشيت 2 بشرط
جرب هذا الكود (يتم وضع سطر فارغ بين كل نسحة واخرى لمعرفة ماذا تم نسخه)

اول سطر بالكود قبل
Option Explicit واخر سطر بعد  End Sub يجب تجاهلهم   لا أعرف     كيف تم وضعهم    (سؤال برسم الاداريين)


Option Explicit

Sub From_S_To_T()
Application.ScreenUpdating = False
  Dim S As Worksheet, T As Worksheet
  Dim S_rg As Range
  Dim Lt%

  Set S = Sheets("Source")
  Set T = Sheets("Target")

If S.Range("A1").CurrentRegion. _
  Rows.Count = 1 Then GoTo BAY_BAY
Set S_rg = S.Range("A1").CurrentRegion.Offset(1). _
         Resize(S.Range("A1").CurrentRegion.Rows.Count - 1)
  Lt = T.Cells(Rows.Count, 1).End(3).Row
  Lt = IIf(Lt = 1, 2, Lt + 2)
  S_rg.Copy
  T.Cells(Lt, 1).PasteSpecial (4)
  T.Cells(Lt, 1).PasteSpecial (12)
BAY_BAY:
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub



الملف مرفق
 
 
  TAGRIBA2.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(30.253) KB


30-08-2020 04:53 مساء
مشاهدة مشاركة منفردة [3]
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
الدعوات : 1
يتابعهم : 8
يتابعونه : 5
قوة السمعة : 250
 offline 
look/images/icons/i1.gif ترحيل الجدول الى الشيت 2 بشرط
جزاك الله خير . جميل جدا والحل تمام ... لك مني اجمل تحية وتقدير81

30-08-2020 04:55 مساء
مشاهدة مشاركة منفردة [4]
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
الدعوات : 1
يتابعهم : 8
يتابعونه : 5
قوة السمعة : 250
 offline 
look/images/icons/i1.gif ترحيل الجدول الى الشيت 2 بشرط
الف صحة وسلامة استاذ salim ... تمام 100% وجميل جدا 111
 



الكلمات الدلالية
ترحيل ، الجدول ، الشيت ، بشرط ،


 










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

الساعة الآن 09:40 صباحا