logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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




موضوع مغلق

الصفحة 2 من 2 < 1 2 >


  • تمت الإجابة
01-02-2022 03:56 مساءً
السلام عليكم
إلى الأستاذ ياسر بخصوص موضوع مغلق ( ترحيل بشرط) أرجو من الجميع و خاصة الأستاذ ياسر طلب المعذرة لعدم تركيزي بالموضوع لاني مررت في هذه الأيام بمصيبة وفاة أختي الكبيرة .
لقد جربت الكود و النتيجة :
يعمل في حالة وافد جديد و لكن عند إضافة سطر ثاني أوثالث....... يرحله إلى شيت DATA ELV و يكتبه في نفس السطر السابق (يمحو الوافدين السايقين)
أما بالنسبة ل مغادر فالكود لا يعمل
أطلب منكم السماح مرة أخرى
 
 
  تجربة.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(55.821) KB





look/images/icons/i1.gif الكود لا يعمل كاملا
  01-02-2022 04:25 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وعليكم السلام أخي الكريم
البقاء لله والدوام لله وحده ، اللهم اغفر لها وارحمها رحمةً واسعة وارزقها الفردوس الأعلى من الجنة

الكود يعمل بشكل صحيح ولكن لضبط المخرجات يجب أن يكون هناك بيانات في عمود الرقم (العمود الأول) في ورقة العمل WAFID




look/images/icons/i1.gif الكود لا يعمل كاملا
  01-02-2022 05:07 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس :
تاريخ الميلاد : 23-12-1970
قوة السمعة : 111
الاعجاب : 1
ألف شكر لك أستاذ ياسر , الف تحية
بالفعل تم تصحيح ذلك بقي المشكل في المغادرون فالكود لا ينفذ قمت بتجربة كتابة الكود في حدث الورقة DATA ELV فتم تنفيذ الكود مغادر و لكن الكود وافد لا يعمل بهذه الطريقة
فما العمل




look/images/icons/i1.gif الكود لا يعمل كاملا
  01-02-2022 05:43 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
بالنسبة للوافد يتم نسخه أما المغادر يتم النسخ ثم مسح المحتويات أي ما يشبه عملية القص.




look/images/icons/i1.gif الكود لا يعمل كاملا
  01-02-2022 06:36 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس :
تاريخ الميلاد : 23-12-1970
قوة السمعة : 111
الاعجاب : 1
و هو كذلك أستاذ ياسر

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif الكود لا يعمل كاملا
  01-02-2022 06:40 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
إذا كانت المشكلة ما زالت قائمة ارفق الملف الذي به المشكلة مع توضيح الخطوات بالضبط التي تقوم بها لنعرف المشكلة التي تواجهك بالفعل أثناء التعامل مع الملف.




look/images/icons/i1.gif الكود لا يعمل كاملا
  01-02-2022 07:36 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس :
تاريخ الميلاد : 23-12-1970
قوة السمعة : 111
الاعجاب : 1
بالنسبة للوافد تم تصحيح الخلل
عند كتابة مغادر في عمود الملاحظات يتم أولا نسخ السطر كاملا و لصقه في شيت MOGHADIR ثم يقص أو يمحى كامل السطر في شيت DATA ELV
 
 
  تجربة.xlsm   تحميل xlsm مرات التحميل :(9)
الحجم :(59.261) KB





look/images/icons/i1.gif الكود لا يعمل كاملا
  01-02-2022 09:53 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
نعم من المفترض أن الكود يفعل ذلك .. هل هناك مشكلة في الملف المرفق عند التعامل مع الملف؟ حاول توضيح المشكلة بشرح الخطوات التي تقوم بها بالضبط لمحاولة مساعدتك




look/images/icons/i1.gif الكود لا يعمل كاملا
  01-02-2022 10:22 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس :
تاريخ الميلاد : 23-12-1970
قوة السمعة : 111
الاعجاب : 1
كود مغادر لا يعمل :
1- إختيار التلميذ المراد شطبه
2- في نفس السطر و في عمود الملاحظات نكتب " مغادر"
3- بعد الانتقال من تلك الخلية مباشرة ينسخ السطر كاملا في ورقة MOGHADIR و يمحى السطر من ورقة DATA ELV

هذه هي الخطوات المتبعة




look/images/icons/i1.gif الكود لا يعمل كاملا
  02-02-2022 03:59 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وهذا ما يفعله الكود بالضبط أخي الكريم

أثارت هذه المشاركة إعجاب: hassona229، ayoub2007، علي بطيخ سالم،



look/images/icons/i1.gif الكود لا يعمل كاملا
  02-02-2022 04:12 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 802
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3941
الاعجاب : 23
السلام عليكم ورحمة الله وبركاته
اللهم اغفر لها وارحمها وعافها واعف عنها وأكرم نزلها ووسع مدخلها واغسلها بالماء والثلج والبرد ونقها من الذنوب والخطايا كما ينقى الثوب الأبيض من الدنس اللهم أدخلها فسيح جناتك مع النبيين والصديقين والشهداء والصالحين وحسن أولئك رفيقا

أثارت هذه المشاركة إعجاب: YasserKhalil، ayoub2007، علي بطيخ سالم، Yasser Elaraby،



look/images/icons/i1.gif الكود لا يعمل كاملا
  02-02-2022 08:11 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس :
تاريخ الميلاد : 23-12-1970
قوة السمعة : 111
الاعجاب : 1
إذا كان ممكن استاذ ياسر تجريب الكود على الملف المرفق فكما قلت سابقا الكود يعمل مع الوافد اما مغادر فلا يعمل




look/images/icons/i1.gif الكود لا يعمل كاملا
  12-02-2022 12:27 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-07-2018
رقم العضوية : 7354
المشاركات : 29
الجنس :
تاريخ الميلاد : 1-1-1980
قوة السمعة : 170
الاعجاب : 0

للمغادره :

في الورقة DATA ELV في الحدث Change تكتب الكود التالي :

CODE

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("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).Delete
        End If
    End If

End Sub

أثارت هذه المشاركة إعجاب: Alialazab، ayoub2007،



الصفحة 2 من 2 < 1 2 >



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
خطأ برمجي والماكرو لا يعمل run time error 438 بكار للأبد
1 12 بكار للأبد
كود ترقيم vba لايعمل AMIN FAID
10 2517 YasserKhalil
كود ربط الملف بسريال اللوحة الأم لا يعمل على ملفات امتداد xlsb أبو يوسف النجار
1 842 أبو يوسف النجار
مشكلة في زر التعديل لايعمل محمدعبدالسلام
1 911 محمدعبدالسلام
كود الترحيل لا يعمل بطريقه صحيحه mahmoud ayad
3 896 hassona229

الكلمات الدلالية
الكود ، يعمل ، كاملا ،









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

الساعة الآن 07:26 AM