logo

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



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




موضوع مغلق


  • تمت الإجابة
subject icon تمت الإجابة طلب تعديل كود
12-10-2020 08:15 مساءً

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


طلبي هو عن كود يقوم بترحيل اسم العميل/ تاريخ الفاتورة /نوع الفاتورة الى Sheet1


<colgroup>
<col style="width:347pt;" width="463" />
<col style="width:164pt;" width="218" />
<col style="width:197pt;" width="262" />
</colgroup>


وأريد تعديل الكود ليقوم بترحيل الى شيتين Sheet1 و Sheet2

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  back.zip   تحميل zip مرات التحميل :(15)
الحجم :(1339.893) KB





look/images/icons/i1.gif طلب تعديل كود
  13-10-2020 03:47 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 794
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3874
الاعجاب : 7
 
 
  فاتورة.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(159.977) KB


أثارت هذه المشاركة إعجاب: محمدعبدالسلام، YasserKhalil، محمد الدسوقى،



look/images/icons/i1.gif طلب تعديل كود
  13-10-2020 08:01 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس :
تاريخ الميلاد : 19-6-1981
قوة السمعة : 185
الاعجاب : 0

عمل رئع اخي hassona هذا هوالمطلوب جزاك الله خيراً
لكن لوسمحت اخي اريد عمل نسخة احطياطيةللملف في هذا المسار ="D:backBackup"


جزاك الله خيراً اخي الكريم نسأل الله لك العفو والعافية في الدنيا والآخرة



أثارت هذه المشاركة إعجاب: hassona229، محمد الدسوقى،



look/images/icons/i1.gif طلب تعديل كود
  13-10-2020 08:13 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 794
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3874
الاعجاب : 7
جزاكم الله خيرا على دعائك الطيب
آمين ولك بالمثل

استبدل السطرين
CODE

            MakeSureDirectoryPathExists ThisWorkbook.Path & "\backup\"
            ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\backup\" & Nam & ".xlsm"



بالسطرين
CODE

            MakeSureDirectoryPathExists "d:\backup\"
            ThisWorkbook.SaveCopyAs Filename:="d:\backup\" & Nam & ".xlsm"


أثارت هذه المشاركة إعجاب: محمدعبدالسلام، YasserKhalil، محمد الدسوقى، abouelhassan،



look/images/icons/i1.gif طلب تعديل كود
  13-10-2020 08:27 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
أحسنت أيها البطل المغوار حسونة. بارك الله فيك

أثارت هذه المشاركة إعجاب: hassona229، محمدعبدالسلام، محمد الدسوقى،



look/images/icons/i1.gif طلب تعديل كود
  13-10-2020 10:21 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 818
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8453
الاعجاب : 6
بارك الله فيك أخى الغالى / حســـونه
ما شاء الله شعلة نار سرعة الاجابة و روعة أداء
جزاك الله خيرا
-----------
وبعد اذنك تلبية لأخونا محمد عبد السلام ـ
الجزء الأخير من الطلب للسؤال بوضع رسالة تنبيه بالاختيار من الترحيل من عدمه
أستاذ / محمد
قبل هذا السطر الموجود بالكود
CODE
lr = wss.Range("a" & Rows.Count).End(xlUp).row + 1


قم بإضافة هذه الأسطر لرسالة التنبيه
CODE
MD = MsgBox(" هل تريد الترحيل الى Sheet1  ؟", vbYesNo + vbQuestion + vbDefaultImage30 + vbApplicationModal, "أكاديمية الصقر للتدريب")
  If MD = vbNo Then
    Exit Sub
       End If

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



look/images/icons/i1.gif طلب تعديل كود
  14-10-2020 04:13 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس :
تاريخ الميلاد : 19-6-1981
قوة السمعة : 185
الاعجاب : 0
السلام عليكم ورحمه الله وبركاته جزاكم الله خيرا اخواتي الافاضل على المساهمه في تلبياث طلبي لقد قمت باضافه السطر في المكان الذي اشار اليه محمد الدسوقي المشكله اذا قمت بالغاء الترحيل الى شيت واحد يتم الغاء حتى من شيت اثنان اريد لما اوافق على الترحيل يتم الترحيل الى شيتين طالبي هوا اذا قلت نعم يتم ترحيل الى Sheet1 وSheet2 واذا قلت , لا , يتم الترحيل الى Sheet2 ولكن يتم الغاء الترحيل الى Sheet1




look/images/icons/i1.gif طلب تعديل كود
  14-10-2020 07:28 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 818
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8453
الاعجاب : 6
اتفضل أخى الكريم
الملف المرفق به المطوب الذى أشرتم به و معذرة طلبكم لم يكن واضحا فى المشاركة الأخيرة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  فاتورة M_D.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(155.556) KB


أثارت هذه المشاركة إعجاب: محمدعبدالسلام، abouelhassan،



look/images/icons/i1.gif طلب تعديل كود
  14-10-2020 09:07 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس :
تاريخ الميلاد : 19-6-1981
قوة السمعة : 185
الاعجاب : 0
عمل رائع اخي محمد الدسوقى هذا هوالمطلوب جزاك الله خيراً
اعتذر اخي محمد الدسوقى على طلبي كان غير وضح
لوسمحت اخي الكريم اريد عمل نسخة احطياطيةللملف في هذا المسار /="D:backBackup"/

ولقد وجهتني مشكله اخرى

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





look/images/icons/i1.gif طلب تعديل كود
  15-10-2020 01:15 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 818
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8453
الاعجاب : 6
اتفضل يا أستاذ محمد عبد السلام
لك ما طلبت ... وملحوظة هامة لابد أن يكون اسم المجلد الذى ستجعله فى المكان المخصص D: هو نفسه الموجود فى الكود ( تأكد من تطابق الاسمين)
فى هذا الجزء من الكود
CODE
</strong>ActiveWorkbook.SaveCopyAs Filename:=&quot;D:Backup&quot;<strong>


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  فاتورة M_D.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(158.56) KB


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



look/images/icons/i1.gif طلب تعديل كود
  15-10-2020 06:42 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 794
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3874
الاعجاب : 7
بارك الله فيك استاذنا محمد الدسوقى
وبعد اذن سماحتكم
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  فاتورة.xlsm   تحميل xlsm مرات التحميل :(17)
الحجم :(158.213) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، محمدعبدالسلام، محمد الدسوقى، abouelhassan،



look/images/icons/i1.gif طلب تعديل كود
  15-10-2020 08:17 صباحاً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس :
تاريخ الميلاد : 19-6-1981
قوة السمعة : 185
الاعجاب : 0
جزآكم الله خير على المجهود في الموضوع
وأسأل الله لي ولك التوفيق والسداد
ما شاء الله
لكم خالص تقديري واحترامي

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،



look/images/icons/i1.gif طلب تعديل كود
  15-10-2020 04:08 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
بارك الله فيكما أخي محمد الدسوقي وحسونة وجزيتما خير الجزاء.

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

أثارت هذه المشاركة إعجاب: abouelhassan، محمدعبدالسلام، محمد الدسوقى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب كود VBA لتحويل المعادلة في خلية ما الى قيمة ثابتة بشرط ادخال بيانات في خلية اخرى منير 75
1 135 منير 75
برنامج كنوز ـ للكنترول المدرسى وشئون الطلبة ـ الاصدار الخامس 2020 محمد الدسوقى
292 49054 حسبو العراقى
عمل بطاقات انذار للطلبة oilman852
24 433 YasserKhalil
طلب مساعدة في تعديل كود ahmed89
0 101 ahmed89
طلب اضافة كود ترحيل ahmed89
0 121 ahmed89

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









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

الساعة الآن 08:38 AM