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

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


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





كود الترحيل من شيت لشيت اخر

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


موضوع مغلق


25-06-2022 10:33 مساء
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 

السلام عليكم و رحمة الله و بركاته
عندي ملف مرفق و المطلوب موجود داخل الملف
حيث اطلب كود الترحيل من شيت لشيت اخر بحيث لا يأخذ الا الخلايا التي بها قيم فقط
و جزاكم الله خيرا
 
 
  كود الترحيل.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(26.154) KB



أفضل إجابة مقدمة من osama barawy وهي:
السلام عليكم 

اتفضل الملف مع مراعاة ان اول طلب وهو  ( كلما أغير قيمة الخلية B3 يقوم بمسح البيانات في العمود D4 : D500) بيتحل بإضافه كود للحدث Worksheet_change ولكن ده ممكن يبطيء العمل عند فتح هذا التبويب

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row = 3 Then
        Sheets("Saisi").Range("D4:D500") = ""
    End If
End Sub
 
والباقى موجود فى الملف مع زرار بديل للمسح لانه من وجهة نظري الافضل تلغى الكود السابق وتستعمل الكود البسيط اللى مع الزرار
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
عرض الإجابة




27-06-2022 07:28 مساء
مشاهدة مشاركة منفردة [1]
osama barawy
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-10-2017
رقم العضوية : 1307
المشاركات : 24
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 27-5-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 450
عدد الإجابات: 13
 offline 
look/images/icons/i1.gif كود الترحيل من شيت لشيت اخر
السلام عليكم 

اتفضل الملف مع مراعاة ان اول طلب وهو  ( كلما أغير قيمة الخلية B3 يقوم بمسح البيانات في العمود D4 : D500) بيتحل بإضافه كود للحدث Worksheet_change ولكن ده ممكن يبطيء العمل عند فتح هذا التبويب

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row = 3 Then
        Sheets("Saisi").Range("D4:D500") = ""
    End If
End Sub
 
والباقى موجود فى الملف مع زرار بديل للمسح لانه من وجهة نظري الافضل تلغى الكود السابق وتستعمل الكود البسيط اللى مع الزرار
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  كود الترحيل.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(41.372) KB


28-06-2022 12:35 صباحا
مشاهدة مشاركة منفردة [2]
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 
look/images/icons/i1.gif كود الترحيل من شيت لشيت اخر
و عليكم السلام و رحمة الله و بركاته
جزاك الله خيرا الكود شغال 100/100
أنا كنت عامل كود في حدث Worksheet_change و لكن كان يحدث لي مشكلة فينغلق ملف الاكسل فجأة
فقمت بإضافة كومبوبكس مساعدة مرتبطة بالخلية B3 و أخفيتها حتى يعمل الكود معي
بارك الله فيك و زادك علما و فضلا
و السلام عليكم و رحمة الله و بركاته
 



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


 










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

الساعة الآن 03:29 صباحا