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

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


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





ترحيل بشرط

السلام عليكم عندي في الملف المرفق أريد لما أسجل تلميذ في ورقة WAFID و أسجل في عمود ملاحظات عبارة وافد جديد ينقل لي الس ..


موضوع مغلق


subject icon تمت الإجابة ترحيل بشرط
30-01-2022 10:25 مساء
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

السلام عليكم 



عندي في الملف المرفق أريد لما أسجل تلميذ في ورقة WAFID و أسجل في عمود ملاحظات عبارة وافد جديد ينقل لي السطر الذي به المعلومات إلى أخر سطر في ورقة DATA ELV مع الاحتفاظ بالمعلومات في تلك الورفة



و كذلك عنما أكتب عبارة مغادر في عمود الملاحظات في ورقة DATA ELVيتم قص كل السطر و نقله إلى ورقة MOGHADIR



ولكم مني جزيل الشكر

 
 
  مشروع.xlsx   تحميل xlsx مرات التحميل :(11)
الحجم :(48.487) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 24 Then
        If Target.Value = "وافد جديد" Then
            Sheets("DATA ELV").Range("A" & Sheets("DATA ELV").Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(, 24).Value = Cells(Target.Row, 1).Resize(, 24).Value
        ElseIf Target.Value = "مغادر" Then
            Sheets("MOGHADIR").Range("A" & Sheets("MOGHADIR").Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(, 24).Value = Cells(Target.Row, 1).Resize(, 24).Value
            Cells(Target.Row, 1).Resize(, 24).ClearContents
        End If
    End If
End Sub
عرض الإجابة




31-01-2022 07:41 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif ترحيل بشرط
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 24 Then
        If Target.Value = "وافد جديد" Then
            Sheets("DATA ELV").Range("A" & Sheets("DATA ELV").Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(, 24).Value = Cells(Target.Row, 1).Resize(, 24).Value
        ElseIf Target.Value = "مغادر" Then
            Sheets("MOGHADIR").Range("A" & Sheets("MOGHADIR").Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(, 24).Value = Cells(Target.Row, 1).Resize(, 24).Value
            Cells(Target.Row, 1).Resize(, 24).ClearContents
        End If
    End If
End Sub

31-01-2022 12:29 مساء
مشاهدة مشاركة منفردة [2]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif ترحيل بشرط
السلام عليكم أستاذ ياسر 
لقد جربت الكود بادراجه في الموديل و جربته بادراجه في ورقة الحدث DATA ELV و لكن عند التنفيذ تأتيتني الصورة التالية 
 
  12.png   تحميل png 12.png مرات التحميل :(1)
الحجم :(42.377) KB
 


31-01-2022 07:07 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif ترحيل بشرط
الكود يوضع في حدث ورقة العمل المسماة  WAFID 
كليك يمين على اسم ورقة العمل واختر View Code ثم قم بلصق الكود



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


 










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

الساعة الآن 01:42 مساء