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

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




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

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :محمد الدسوقى
عدد النتائج (748) نتيجة
21-10-2020 09:18 مساء
icon برنامج كنوز ـ للكنترول المدرسى وشئون الطلبة ـ الاصدار الخامس 2020 | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 
مشكور جدا أستاذى الفاضل على هذه الملحوظة
ولحل هذه المشكلة مؤقتا سريعا لحين التعديلات عليها
قم بالوقوف فى الخلية التى بها كلمة ( أم المؤمنين ) ومن أدوات الأوفيس أعلى من قائمة Home
اجعل لون الخط أبيض فلا تظهر فى الطباعة
19-10-2020 11:14 مساء
icon مبارك استاذ حسونة الترقية | الكاتب :محمد الدسوقى |المنتدى: المنتدى العام
 
مبروك أستاذ / حسونة
وسدد الله خطاكم بالنجاح دائما ونتمنى لكم مزيد من العطاء ونفع بكم هذا المنتدى
تقبل تحياتى
15-10-2020 01:15 صباحا
icon طلب تعديل كود | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
اتفضل يا أستاذ محمد عبد السلام
لك ما طلبت ... وملحوظة هامة لابد أن يكون اسم المجلد الذى ستجعله فى المكان المخصص  D:  هو نفسه الموجود فى الكود ( تأكد من تطابق الاسمين)
فى هذا الجزء من الكود
ActiveWorkbook.SaveCopyAs Filename:="D:Backup"


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
14-10-2020 07:28 مساء
icon طلب تعديل كود | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 اتفضل أخى الكريم
الملف المرفق به المطوب الذى أشرتم به  و معذرة طلبكم لم يكن واضحا فى المشاركة الأخيرة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
13-10-2020 10:50 مساء
icon طلب تعديل الكود الدى يقوم بعمل نسخة احتياطية | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
أستاذ / محمد عبد السلام
الرجاء جعل الموضوع واحد وعدم إفراد طلب منفصل لكل جزئيه من المشروع لكى يمكن تتبعه من السادة الأعضاء بسهولة
واتفضل بعد إذن الأستاذ / حسنونه
الكود كامل بطلب جزئية ( رسالة التنبيه بالترحيل من عدمه )  ....... ده طلب كان موضوع  +  جزئية ( فصل الاسم عن التاريخ فى عمودين منفصلين ) و ....... ده كان طلب موضوع آخر ( بالرغم من أن المشروع واحد .. لعلك فهمت ما أقصد
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean

Private Sub CommandButton1_Click()

    Dim wx As Workbook, ws As Worksheet, wss As Worksheet, wss2 As Worksheet, Nam, lr As Long
    Set wx = ThisWorkbook
    Set ws = wx.Sheets("invoice")
    Set wss = wx.Sheets("sheet1")
    Set wss2 = wx.Sheets("sheet2")
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
'-------------------------------------------------
 MD = MsgBox(" هل تريد الترحيل الى Sheet1  ؟" _
      , vbYesNo + vbQuestion + vbDefaultImage30 + vbApplicationModal, "أكاديمية الصقر للتدريب")
  If MD = vbNo Then
    Exit Sub
       End If
'-------------------------------------------------
    lr = wss.Range("a" & Rows.Count).End(xlUp).row + 1
        With ws
        
            Nam = .Range("e5")
            Da = Format(Now(), "dd-mm-yyyy hh.mm.ss")
            MakeSureDirectoryPathExists ThisWorkbook.Path & "\backup\"
            ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\backup\" & Nam & ".xlsm"
            '=========================================
            If ws.[f5].Text = "اجل" Then
                wss.Range("a" & lr).Value = Nam
                wss.Range("a" & lr).Font.Color = 255
                wss.Range("B" & lr).Value = Da
                wss.Range("C" & lr).Value = "اجل"
                
          Else: wss.Range("a" & lr).Value = Nam
                wss.Range("B" & lr).Value = Da
                wss.Range("C" & lr).Value = "نقدي"
          End If
            If ws.[f5].Text = "اجل" Then
                wss2.Range("a" & lr).Value = Nam
                wss2.Range("a" & lr).Font.Color = 255
                wss2.Range("B" & lr).Value = Da
                wss2.Range("C" & lr).Value = "اجل"
          Else: wss.Range("a" & lr).Value = Nam
                wss2.Range("B" & lr).Value = Da
                wss2.Range("C" & lr).Value = "نقدي"
            End If
            '========================================
            '                 ActiveWorkbook.Close False
        End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.EnableEvents = True
        MsgBox "تم حفظ نسخة باسم " & Nam & " ", vbInformation
End Sub


 
13-10-2020 10:21 مساء
icon طلب تعديل كود | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
بارك الله فيك أخى الغالى / حســـونه
ما شاء الله شعلة نار سرعة الاجابة و روعة أداء
جزاك الله خيرا
-----------
وبعد اذنك تلبية لأخونا  محمد عبد السلام  ـ
الجزء الأخير من الطلب للسؤال بوضع رسالة تنبيه بالاختيار من الترحيل من عدمه
أستاذ / محمد 
قبل هذا السطر الموجود بالكود
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

 
08-10-2020 09:54 مساء
icon اكتشاف الأسماء العربية المكررة Find Duplicate Arabic Names | الكاتب :محمد الدسوقى |المنتدى: موضوعات ياسر خليل أبو البراء
 جزاكم الله خيرا استاذ ياسر
على هذه الروائع
 
08-10-2020 09:50 مساء
icon كومبوبوكس لمجموعة نطاقات | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 مشكور جدا أستذانا الكبير / سليم
على اثراء الموضوع بحلول رائعة دائما نستفيد منها
جزاكم الله خيرا
06-10-2020 01:49 صباحا
icon جلب قائمة التلاميذ | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
أستاذ / أيوب
حاول دراسة الكود جيدا فلابد من توافق أسماء الشيتات المستخدمة فى الكود مع أسماء شيتات الملف الجديد وأيضا
أرقام الأعمدة الموجودة فى المصفوفة ومعيار الترحيل كل هذه الأمور لابد ان تضعها فى الاعتبار
وفوق كل هذا ـ لا تنسى وضع الكود التالى فى حدث ورقة العمل Liste

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("O2").Address Then
         Calling_Data
    End If
End Sub
05-10-2020 07:31 مساء
icon كومبوبوكس لمجموعة نطاقات | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 وبارك الله فيكم أخى الحبيب / ياسر ومشكور دائما على مروركم العطر علينا
الأستاذ / أحمد شريف
الحمد لله الذى أتم علينا نعمه بحل المشكلة
04-10-2020 10:22 مساء
icon كومبوبوكس لمجموعة نطاقات | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
اتفضل استاذى الكريم
الملف المرفق تم عمل يوزرفوم ادخال البيانات فى النطاق المطلوب بعد اختياره من القائمة الموجودة بالفورم
لعله هو المطلوب حسبما فهمت من طلبكم
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
03-10-2020 08:44 مساء
icon عمل قائمة بالملفات في مسار محدد بطريقة سهلة List File Names In Specific Directory | الكاتب :محمد الدسوقى |المنتدى: موضوعات ياسر خليل أبو البراء
 
جزاكم الله خيرا أستاذ / ياسر
على كل ما تقدمه لنا
ونسأل الله العلى القدير أن ينعم عليكم بصلاح الحال وراحة البال

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





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

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