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

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


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





ضبط ترحيل

السلام عليكم ورحمة الله وبركاته اريدترحيل عمودين فقط من صفحة RSD الى صفحة SEER بحيث يتم الترحيل في الخلايا التي باللون ..



03-07-2020 08:51 مساء
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

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

اريدترحيل عمودين فقط  من صفحة RSD الى صفحة SEER بحيث يتم الترحيل في الخلايا التي باللون الاحمر ... الكود الموجود يقوم بالترحيل بالصف الذي اعلى اللون الاحمر وحاولت جاهدا لكن لم يضبط معي..
جزاكم الله خيرا

 
 
 
  TARHEEL.rar   تحميل rar مرات التحميل :(5)
الحجم :(57.173) KB


03-07-2020 08:58 مساء
مشاهدة مشاركة منفردة [1]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif ضبط ترحيل
تفضل اخى
 
 
  TARHEEL.rar   تحميل rar مرات التحميل :(5)
الحجم :(59.611) KB


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

Option Explicit
Sub tarhee_salim()

Dim Rs As Worksheet, Se As Worksheet
Dim i%, x%, p%, LrR%, LrS
Dim Find_rg As Range
 Application.ScreenUpdating = False

Set Rs = Sheets("Rsd")
Set Se = Sheets("seer")

LrR = Rs.Range("C" & Rows.Count).End(3).Row
LrS = Se.Range("A" & Rows.Count).End(3).Row
If LrR < 10 Then Exit Sub
For i = 5 To LrS Step 4
 Set Find_rg = Rs.Range("C:C").Find(Trim(Se.Range("C" & i)), lookat:=1)
  If Not Find_rg Is Nothing Then
   p = Find_rg.Row
   Se.Range("C" & i).Offset(, -2) = i - 4
   Se.Range("C" & i).Offset(, -1) = Rs.Cells(p, 2)
   Se.Range("BB" & i) = Rs.Cells(p, "BB")
   Se.Range("BD" & i) = Rs.Cells(p, "BD")
  End If
Next
Application.ScreenUpdating = True
End Sub
 
 
  TRHEL.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(91.825) KB


03-07-2020 09:55 مساء
مشاهدة مشاركة منفردة [3]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif ضبط ترحيل
جزاك الله خير  ام حمزه . . . شاكر جدا لحضرتك... لكن الكود الذي عدلتيه بإضافة 1  يقوم بمسح مايتم كتابته بالعمود الفارغ بين ماد 1   وماده 2   في صفحة SEER
-------------
جزاك الله خيرا ستاذ سليم  . . . . كود رائع ... لكن اريد نقل البيانات ولصقها ابتداءا من السطر الثاني . . .  وليس الاول

03-07-2020 10:04 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ضبط ترحيل
قومي بالتعديل كما ترينه مناسباً
مع العلم انه لا لزوم لذلك 
(الصفوف من 2 الى 4 يمكن بكل بساطة اجراء عملية  Copy & Paste)

الأفضل دائماً تجربة اي كود على عدد قليل من البيانات 5 - 10 اسماء
و عندما نراه يعمل بشكل جيد يتم تعميمه على كامل الصفوف
 

03-07-2020 11:40 مساء
مشاهدة مشاركة منفردة [5]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif ضبط ترحيل
لكن الكود استاذ سليم... لا ينقل البيانات للصفوف الملونه باللون الاحمر ...بل يتم النقل أعلاها...
فانا اريد نقل العمودين فقط ..فقط
؟؟؟؟

04-07-2020 12:27 صباحا
مشاهدة مشاركة منفردة [6]
ابونور
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 102
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 6
قوة السمعة : 649
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif ضبط ترحيل
و عليكم السلام ورحمة الله وبركاته
اجعل المتغير p=2 وليس 1 





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


 










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

الساعة الآن 11:14 صباحا