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


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





طلب تعديل كود

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


subject icon تمت الإجابة طلب تعديل كود
12-10-2020 08:15 مساء
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
قوة السمعة : 185
 offline 

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

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

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

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



أفضل إجابة مقدمة من hassona229 وهي:

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






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



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

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

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

 



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

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

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


بالسطرين

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


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


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


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

 


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


الصفحة 1 من 2 < 1 2 > الأخيرة »


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


 










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

الساعة الآن 01:28 صباحا