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

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


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





كود ترحيل بشرط

إخواني الأعزاء بعد سلام الله عليكم محتاج كود ترحيل من شيت (4 ) الي شيت ( sheet1 )بحيث يضع البيانات ابتداء من الصف 14 ل ..


موضوع مغلق


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

إخواني الأعزاء بعد سلام الله عليكم
محتاج
كود ترحيل من شيت (4 ) الي شيت

( sheet1  )بحيث يضع البيانات ابتداء من الصف 14 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
  ملف.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(199.648) KB



أفضل إجابة مقدمة من ابراهيم الحداد وهي:
السلام عليكم ورحمة الله
استدم هذا الكود
Sub CopyDdata()
Sheets("4").Range("A3:O" & Sheets("4").Range("B" & Rows.Count).End(3).Row).Copy
Sheets("sheet1").Range("A14").PasteSpecial xlPasteValues
Sheets("sheet1").Range("A14").PasteSpecial xlPasteFormats
End Sub
عرض الإجابة




26-12-2021 06:01 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 232
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2289
عدد الإجابات: 28
 offline 
look/images/icons/i1.gif كود ترحيل بشرط
السلام عليكم ورحمة الله
استدم هذا الكود
Sub CopyDdata()
Sheets("4").Range("A3:O" & Sheets("4").Range("B" & Rows.Count).End(3).Row).Copy
Sheets("sheet1").Range("A14").PasteSpecial xlPasteValues
Sheets("sheet1").Range("A14").PasteSpecial xlPasteFormats
End Sub

26-12-2021 06:47 مساء
مشاهدة مشاركة منفردة [2]
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 76
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 
look/images/icons/i1.gif كود ترحيل بشرط
شكرا يا أستاذ ابراهيم علي مجهودك الرائع
انا لي طلب عند حضرتك
لو اناعايز ارحل اعمدة معينة بس مثل i  e   c

أغير ايه في الكود ؟

26-12-2021 10:55 مساء
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 232
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2289
عدد الإجابات: 28
 offline 
look/images/icons/i1.gif كود ترحيل بشرط
السلام عليكم و رحمة الله
استخدم الكود التالى
Sub CopSomDdata()
Range("A14:O1000").ClearContents
Dim C As Range, E As Range, I As Range
Dim LR As Long
LR = Sheets("4").Range("B" & Rows.Count).End(3).Row
Set C = Sheets("4").Range("C3:C" & LR)
Set E = Sheets("4").Range("E3:E" & LR)
Set I = Sheets("4").Range("I3:I" & LR)
Sheets("sheet1").Range("C14").Resize(LR - 2) = C.Value
Sheets("sheet1").Range("E14").Resize(LR - 2) = E.Value
Sheets("sheet1").Range("I14").Resize(LR - 2) = I.Value

End Sub


27-12-2021 07:33 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود ترحيل بشرط
بارك الله فيك أخي العزيز ابراهيم الحداد وجزيت خير الجزاء.



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


 










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

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