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

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


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





طلب تعديل كود

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


موضوع مغلق

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


subject icon تمت الإجابة طلب تعديل كود
12-10-2020 08:15 مساء
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 167
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 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
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif طلب تعديل كود
 
 
  فاتورة.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(159.977) KB


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

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

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

 


13-10-2020 08:13 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 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
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif طلب تعديل كود
أحسنت أيها البطل المغوار حسونة. بارك الله فيك

13-10-2020 10:21 مساء
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 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
المشاركات : 167
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 185
 offline 
look/images/icons/i1.gif طلب تعديل كود
السلام عليكم ورحمه الله وبركاته جزاكم الله خيرا اخواتي الافاضل على المساهمه في تلبياث طلبي لقد قمت باضافه السطر في المكان الذي اشار اليه محمد الدسوقي المشكله اذا قمت بالغاء الترحيل الى شيت واحد يتم الغاء حتى من شيت اثنان اريد لما اوافق على الترحيل يتم الترحيل الى شيتين  طالبي  هوا اذا قلت نعم يتم  ترحيل الى Sheet1 وSheet2  واذا قلت  , لا , يتم  الترحيل  الى Sheet2   ولكن  يتم الغاء الترحيل الى Sheet1


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


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


 










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

الساعة الآن 06:03 مساء