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



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






موضوع مغلق


  • تمت الإجابة
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
 
 
  back.zip   تحميل zip مرات التحميل :(15)
الحجم :(1339.893) KB





look/images/icons/i1.gif طلب تعديل كود
  13-10-2020 03:47 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
وعليكم السلام ورحمه الله وبركاته
جرب هذا التعديل
 
 
  فاتورة.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
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
جزاكم الله خيرا على دعائك الطيب
آمين ولك بالمثل

استبدل السطرين
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
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
أحسنت أيها البطل المغوار حسونة. بارك الله فيك

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



look/images/icons/i1.gif طلب تعديل كود
  13-10-2020 10:21 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 819
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8466
الاعجاب : 11
بارك الله فيك أخى الغالى / حســـونه
ما شاء الله شعلة نار سرعة الاجابة و روعة أداء
جزاك الله خيرا
-----------
وبعد اذنك تلبية لأخونا محمد عبد السلام ـ
الجزء الأخير من الطلب للسؤال بوضع رسالة تنبيه بالاختيار من الترحيل من عدمه
أستاذ / محمد
قبل هذا السطر الموجود بالكود
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
المشاركات : 819
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8466
الاعجاب : 11
اتفضل أخى الكريم
الملف المرفق به المطوب الذى أشرتم به و معذرة طلبكم لم يكن واضحا فى المشاركة الأخيرة
فاتورة M_D.xlsm
 
 
  فاتورة 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
المشاركات : 819
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8466
الاعجاب : 11
اتفضل يا أستاذ محمد عبد السلام
لك ما طلبت ... وملحوظة هامة لابد أن يكون اسم المجلد الذى ستجعله فى المكان المخصص D: هو نفسه الموجود فى الكود ( تأكد من تطابق الاسمين)
فى هذا الجزء من الكود
CODE
</strong>ActiveWorkbook.SaveCopyAs Filename:=&quot;D:Backup&quot;<strong>


فاتورة M_D.xlsm
 
 
  فاتورة M_D.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(158.56) KB


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



look/images/icons/i1.gif طلب تعديل كود
  15-10-2020 06:42 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
بارك الله فيك استاذنا محمد الدسوقى
وبعد اذن سماحتكم
جرب هذا التعديل
 
 
  فاتورة.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
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
بارك الله فيكما أخي محمد الدسوقي وحسونة وجزيتما خير الجزاء.

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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في ترحيل بيانات بشروط خاصة في الترحيل بكار للأبد
0 2 بكار للأبد
طلب استخراج بيانات متخصصة لصفحة مستقلة اكسل وpdfمن جدول فعاليات بكار للأبد
0 8 بكار للأبد
طلب ملف اكسل لمحل عبايات abrawi
2 137 abrawi
طلب توليد أرقام عشوائية بكار للأبد
3 141 YasserKhalil
طلب كود VBA لتحويل المعادلة في خلية ما الى قيمة ثابتة بشرط ادخال بيانات في خلية اخرى منير 75
1 209 منير 75

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








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

الساعة الآن 04:01 PM.