ياسر خليل أبو البراء

ممكن ترفق آخر ملف بعد التعديل للإطلاع عليه ...

وعليكم السلام أخي الكريم جرب الملف التالي (لم أجربه من قبل ...) Excel To vCard.rar

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

أخي الكريم جرب الرابط التالي

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

قد تكون قد نفذت الكود في نفس اللحظة مرتين مما أدى إلى وجود نفس اسم المصنف .. مجرد احتمال !! تأكد من المسار الصحيح لمسار الحفظ للنسخ الاحتياطي على الديسك D

أخي العزيز سليم القيم في كلتا الخليتين مختلفتين جرب السطر التالي Sub Test() MsgBox Range("B2").Value & vbNewLine & Range("B3").Value End Sub

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

وحزيت خيراً بمثل ما دعوت لي أخي العزيز محمد عبد السلام الحمد لله أن تم المطلوب على خير وإن كنت أتمنى أن تستطيع التعديل بعد الشروحات التي قدمتها لك عموماً إن شاء الله في تقدم إلى الأمام تقبل تحياتي

جرب الكود النهائي بهذا الشكل Sub Auto_Save() Dim saveDate As Date Dim saveTime As Variant Dim formatTime As String Dim formatDate As String Dim backupFolder As String saveDate = CDate(Range("E3").Value) saveTime = Time formatTime = Format(saveTime, "hh.MM.ss") formatDate = Format(saveDate, "DD - MM - YYYY") Application.DisplayAlerts = False backupFolder = "D\فاتورة\" ActiveWorkbook.SaveCopyAs Filename:=backupFolder & "فاتورة " & Range("E5").Value & " " & formatDate & " " & formatTime & ".xlsm" Application.DisplayAlerts = True MsgBox "Backup Successfully In The Path " & backupFolder End Sub

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

وعليكم السلام أخي الكريم عامر حاول أن تضع شرح للمطلوب داخل الموضوع قبل الملف المرفق لتتضح الصورة لمن أراد تقديم المساعدة قبل الإطلاع على الملف ..بلاش كسل يا عامر يا عسل ضع الكود التالي في موديول عادي (اذهب لمحرر الأكواد Alt + F11 ثم من قائمة Insert أدرج موديول جديد من خلال الأمرModule) ثم ضع الكود التالي فيه Sub Teacher_Table() Dim Ws As Worksheet Dim Sh As Worksheet Dim strTeacher As String Dim iRow As Long Dim iCol As Long Dim Col As Long Dim Row As Long Set Ws = Sheet1 Set Sh = Sheet2 strTeacher = Sh.Range("E4").Value Application.ScreenUpdating = False Sh.Range("C7:G18").ClearContents For iRow = 8 To 37 For iCol = 4 To 30 Step 2 If Ws.Cells(iRow, iCol).Value = strTeacher Then On Error Resume Next Col = Application.Match(myDay(iRow), Sh.Range("C6:G6"), 0) Row = Application.Match(Ws.Cells(iRow, 2).Value, Sh.Range("A7:A18"), 0) If IsNumeric(Col) And IsNumeric(Row) Then Sh.Cells(Row + 6, Col + 2).Value = Ws.Cells(6, iCol - 1).Value Sh.Cells(Row + 7, Col + 2).Value = Ws.Cells(iRow, iCol).Offset(0, -1).Value End If End If Next iCol Next iRow Application.ScreenUpdating = True End Sub Function myDay(X As Long) As String Select Case X Case 8 To 13 myDay = "الاحد" Case 14 To 19 myDay = "الاثنين" Case 20 To 25 myDay = "الثلاثاء" Case 26 To 31 myDay = "الأربعاء" Case 32 To 37 myDay = "الخميس" End Select End Function ثم ضع الكود التالي في حدث ورقة العمل المسماة "جدول المعلمين" .. كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$4" Then Call Teacher_Table End If End Sub وأخيراً اذهب لورقة العمل واختر اسم المعلم من الخلية E4 لتشاهد جدول المعلم .. لا تنسانا بدعوة بظهر الغيب تقبل تحياتي

للإشارة إلى قيمة خلية محددة يمكنك استخدام السطر التالي Range("E4").Value واستخدام القيمة داخل السطر الذي يتم فيه أخذ نسخة احتياطية أي وضع السطر السابق داخل السطر التالي ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm" إذا لم تستطع التعديل وضح بالتفصيل شكل اسم الملف المرغوب بالضبط .. اسم المصنف يليه مسافة ثم قيمة الخلية كذا ثم تاريخ اليوم ؟؟!!!! بالتفصيل لكي أقوم أنا أو غيري بالتعديل لك (وإن كنت أحبذ أن تقوم بإجراء بعض المحاولات) لاحظ علامة & في السطر الأخير تستخدم للربط ..فمثلاً شرح للسطر الأخير ..يتم أخذ نسخة من المصنف الحالي إلى المسار المحدد من قبل .. ويكون اسم الملف يلية مسافه ثم التاريخ الحالي ثم مسافة ثم الوقت الحالي وأخيراً امتداد المصنف وهو xlsm أرجو أن يساعدك الشرح على فهم التعديل المطلوب

الحمد لله الذي بنعمته تتم الصالحات قم بإرفاق ملفك بعد تطبيقك للموضوع ليستفيد منه الأعضاء ...

الحمد لله أنك توصلت للحل أخي زياد يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط انقر على العلامة <> أثناء كتابة المشاركة ثم الصق الكود فيه ثم انقر عبارة "أضف للمشاركة" ليظهر الكود بهذا الشكل الكود Code Here

أخي الكريم هاني يرجى وضع الأكواد بين أقواس الكود ليظهر بشكل منضبط جرب الكود التالي عله يفي بالغرض .. قبل تنفيذ الكود حدد الخلايا المراد حمايتها ثم كليك يمين ثم Format Cells ثم انتقل للتبويب Protection ثم علم علامة صح بحوار الخيار Locked Sub Protect_All_Sheets() Dim Sh As Worksheet For Each Sh In Worksheets If Sh.ProtectScenarios = False Then Sh.Protect "aaaa" Sh.EnableSelection = xlUnlockedCells End If Next Sh End Sub تقبل تحياتي

استبدل السطر بالسطر التالي backupFolder = "D:\محمد عبدالسلام\" المسار مأخوذ من الكود الأول في مشاركتك الأصلية (أول مشاركة) لابد أن تتعلم كيفية التعديل بنفسك على الأكواد .. حاول وتعلم (وحتى ولو فشلت آلاف المرات .. لا تيأس)

بالنسبة للمجلد في الديسك D قم بتغيير المسار في السطر التالي backupFolder = ThisWorkbook.Path & "\" إلى المسار الذي تريده ... وبالنسبة لاسم العامل في الخلية E5 يمكن إضافة القيمة للخلية في السطر الخاص بأخذ نسخة احتياطية والتاريخ موجود بالفعل وأوصي بإضافة الوقت حتى لا يتم الكتابة على الملفات التي تم أخذ نسخة احتياطية لها

لما تريد تكرار التقرير ؟؟ على حسب ما فهمت من كلامك أنك تريد تقرير يشبه الجدول المحوري ؟؟!!! لما تريد فعل ذلك وقد تم بالفعل باستخدام الجدول المحوري؟

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

بارك الله فيك أخي العزيز جلال وجزيت خير الجزاء

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

أخي الكريم محمد جرب الكود بهذا الشكل Sub Auto_Save() Dim saveDate As Date Dim saveTime As Variant Dim formatTime As String Dim formatDate As String Dim backupFolder As String saveDate = Date saveTime = Time formatTime = Format(saveTime, "hh.MM.ss") formatDate = Format(saveDate, "DD - MM - YYYY") Application.DisplayAlerts = False backupFolder = ThisWorkbook.Path & "\" ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm" Application.DisplayAlerts = True MsgBox "Backup Successfully In The Path " & backupFolder End Sub تقبل تحياتي

أخي الكريم ابو سلمان لما لا تقوم بعملية الترحيل من الورقة الرئيسية التي تحتوي على البيانات مع ذكر شروط الترحيل .. وفي هذه الحالة سيسهل استخدام الفلترة لفلترة البيانات وترحيلها (مجرد فكرة)

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