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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





طلب مساعدة في كود يقوم بعمل نسخة احتياطية

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



15-10-2019 11:06 صباحا
محمدعبدالسلام
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 111
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 2
قوة السمعة : 120
الاعجاب : 5
 offline 

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

ارجوا المساعدة من الاساتذة الافاضل

 لكود للاستاد حسين مامون

في هذا الملف كود يقوم  بنسخ تاريخ الفاتورة واسم العامل في شيت1 وايضان يقوم بعمل نسخة احتياطية في الفولدر d

اريد عندما تكون  الخانة  f5 اجل يقوم بنسخ اسم العامل وتاريخ بي الون الاحمر في شيت 1 وعمدما تكون الخانة f5 نقدي ينسخ اسم العامل بي الون الاسود

ويقوم بعمل نسخة احتياطية في فولدرd

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


MTISW_199



 
 
  back.rar   تحميل rar مرات التحميل :(3)
الحجم :(729.479) KB







15-10-2019 05:56 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1287
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 221
قوة السمعة : 4273
الاعجاب : 557
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif طلب مساعدة في كود يقوم بعمل نسخة احتياطية
اين الكود المسؤل عن استدعاء البيانات من شيت BAckUp حتى نقول بالتعديل عليك لك فالملف المرفق به كود الاترحيل ولكن ليس به كود الاستدعاء 

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


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

تحياتى وتقدير للجميع  محمود ابوالدهب


15-10-2019 07:03 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1387
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6288
الاعجاب : 944
 Online 
look/images/icons/i1.gif طلب مساعدة في كود يقوم بعمل نسخة احتياطية
تم عمل الكود من قبل استاذنا حسين مأمون

Private Sub CommandButton1_Click()
' saveas_facture()
Dim wx As Workbook
Set wx = Workbooks("ÝÇÊæÑÉ")

Dim ws As Worksheet
Set ws = wx.Sheets("invoice")
Dim wss As Worksheet
Set wss = wx.Sheets("sheet1")
Dim DT
Dim Nam
Dim lr As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
             lr = wss.Range("a" & Rows.Count).End(xlUp).Row + 1
             DT = ws.Range("e5") & Format(Now(), "dd-mm-yyyy hh mm ss")
             With ws
'                .Copy
'                .UsedRange = .UsedRange.Value
                    Application.DisplayAlerts = False
'                        Nam = "d:\back\backup\ÝÇÊæÑÉ" & DT & ".xlsx"
                          Nam = .Range("e5") & " " & Format(Now(), "dd mm yyyy  hh mm ss")
                               ThisWorkbook.SaveCopyAs Filename:="D:\back\Backup\" & Nam & ".xlsm"
'                        ActiveWorkbook.SaveAs Nam, FileFormat:=xlOpenXMLWorkbook
 '=========================================
                    If ws.[f5].Text = "اجل" Then
                    wss.Range("a" & lr).Value = Nam
                    wss.Range("a" & lr).Font.Color = 255
                   Else: wss.Range("a" & lr).Value = Nam
                    End If
   '========================================
'                 ActiveWorkbook.Close False
              End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
                                        MsgBox "Êã ÍÝÙ äÓÎÉ ÈÇÓã " & DT & " ", vbInformation
End Sub


 

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


15-10-2019 11:40 مساء
مشاهدة مشاركة منفردة [3]
محمدعبدالسلام
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 111
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 2
قوة السمعة : 120
الاعجاب : 5
 offline 
look/images/icons/i1.gif طلب مساعدة في كود يقوم بعمل نسخة احتياطية
   السلام عليكم ورحمة الله وبركاته
  بارك الله فيكم و جزاكم الله عنا كل خير نسأل الله تعالى أن يبارك في عملكم و يجعله في ميزان حسناتكم

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ارجو المساعدة في تحويل المعادلات الي vba محمدحسني احمد
1 7 محمدحسني احمد
طلب مساعدة بالبحث وادراج قيمة azzeddine
3 18 YasserKhalil
مساعدة في كود للدالة vlookup المبتدأ
5 53 المبتدأ
المساعدة فى العمليات الحسابية داخل اليوزر فورم ayman_2000
2 60 ayman_2000
مساعدة في تعديل كود لدالة counta المبتدأ
2 68 المبتدأ

الكلمات الدلالية
مساعدة ، يقوم ، بعمل ، نسخة ، احتياطية ،


 







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



الساعة الآن 05:14 مساء

أعلن هنا
أعلن هنا
أعلن هنا