ابو مارفن

السلام عليكم محتاج تعديل على كود انشاء نسخة احتياطية المطلوب عمل نسخة احتياطية في لوكل F داخل فولدر غير مضغوط ويكون اسم الفولدر ملف العمل بدلا من backup وان يحتفظ باخر ثلاث نسخ حديث ويمسح النسخ القديمة تلقائيا (الكود الحالي يحذف اي شيئ موجود داخل فولدر اسمه backup) واضافه زر الغاء الامر على النافذه كما هو موضح بالصوره المرفقة مع الملف مع جزيل الشكر والامتنان لجهود الجميع كود انشاء نسخة احتياطية مضغوطة.xlsm

الحمد لله تم تنفيذ المطلوب من قبل الاستاذ ياسر المحترم مشكوره جهوه من خلال هذا الكود >Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) ActiveSheet.Range("D5") = Sheets("قائمة").Range("F1").Value >End Sub

السلام عليكم اساتذتنا الافاضل. عندي مشكلة عدم ظهور الرقم الموجود في الخلية F1 من صفحة القائمة الى الخليه D5 عند الدخول للصفحات C وG عن طريق الارتباط التشعبي بالرغم من ظهور الرقم في باقي الصفحات ، او اذا يوجد كود اخر يقوم بنسخ الرقم من خلية F1 في صفحة القائمة وينسخ الرقم الى خلية D5 عند الدخول الى اي صفحه عن طريق الارتباط التشعبي الخاص بها . مع جزيل الشكر لجهود الجميع ................. تــم رفـــع المـــلف بـــدون حـــمايــة نموذج لملف العمل.xlsm

الله يحفظك ويبارك بيك على جهودك المبذول

مشكور استاذ وبارك الله بيك على هذا الكود الرائع جعلها الله في ميزان حسناتك

السلام عليكم شلونكم اساتذتنا الافاضل في هذا المنتدى الجميل، محتاج كود موديل لادراج المعادلات الموجودة في الخلايا C2,D2,E2 الى باقي خلايا الجدول لغايه 20 صف لكي يتم ادراج المعادلات تلقائيا وعند عدم الحاجة الي قسم منها اقوم بمسحها يدويا وعند حاجتي اليها اضغط على الزر الذي يتم ربطه بالموديل لادراج المعادلات كما في المرفق مع جزيلا الشكر والتقدير تم ضبط الملف واعادة رفعه بإمتداد Xlsm نموذج المطلوب.xlsm

شكرا جزيلا استاذ العزيز

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

السلام عليكم كل عام وانت بالف الف خير وصحه وسعاده. هل يمكن التعديل على كود الاستاذ سليم المحترم لاخفاء المعادلات في الخلايا لنتمكن من نسخ الخلايا التي تحتوي على معادلات المخفية عن طريق السحب بالماوس وشكرا جزيلا اخفاء المعادلات بدون حمايه الورقه.xlsm

الحمد الله تم عمل الكود بنجاح بارك الله بجهودكم

تعديل على الكود لكي يعمل عندما تكون الصفحة محمية الملف والصورة توضح الخطآ وشكرا جزيلا لجهودكم طباعه.xls

شكرا جزيلا استاذ على بارك الله فيك وبجهودك القيمة

السلام عليكم هل يمكن جعل عمود او صفحة من صفحات الاكسل تكون الكتابة بها فقط عربي مع الشكر لجهود الجميع نموذج.xlsx

عاشت الايادي استاذ منير جعلها الله في ميزان حسناتك

عاشت ايدك استاذ سليم بارك الله بجهودك

بارك الله بيك استاذ شروحات رائعة

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

Sub Print_Selection() ' Dim Cel As Range Dim Rng As Range Dim Del_Rng As Range ScreenOff Return_Sh = ActiveSheet.Name ActiveSheet.Copy after:=Sheets(Sheets.Count) ActiveSheet.UsedRange.Borders.LineStyle = xlNone '=============================================================== Set Rng = Selection Rng.Interior.ColorIndex = 4 Set SourceRange = ActiveSheet.Cells Set destrange = ActiveSheet.Cells SourceRange.Copy destrange.PasteSpecial (xlValues) Application.CutCopyMode = False '=============================================================== For Each Cel In ActiveSheet.UsedRange If Cel.Interior.ColorIndex <> 4 Then If Del_Rng Is Nothing Then Set Del_Rng = Cel Else Set Del_Rng = Application.Union(Del_Rng, Cel) End If End If Next Del_Rng = "" ActiveSheet.UsedRange.Interior.ColorIndex = xlNone '=============================================================== For Each shp In ActiveSheet.Shapes shp.Delete Next shp '=============================================================== ActiveSheet.PrintOut Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Sheets(Return_Sh).Select '=============================================================== ScreenOn Set Cel = Nothing Set Del_Rng = Nothing ' End Sub السلام عليكم ...خطا في كود طباعه الجزء المحدد وفي كود الترحيل في حال كانت الاوراق محمية.... أرجو من حضراتكم مساعدتى فى حل هذه المشكلة ,بارك الله فيكم جميعا تحياتي للجميع Sub ترحيل() Dim lastRow As Integer, WS As Worksheet, SH As Worksheet Set WS = ThisWorkbook.Worksheets("قائمة"): Set SH = ThisWorkbook.Worksheets("اسماءالمراجعين") lastRow = WS.Cells(Rows.Count, 2).End(xlUp).Row With SH: lr = SH.Cells(Rows.Count, 2).End(xlUp).Row + 1 With .Range("B" & lr): .NumberFormat = "[$-,101]yyyy/mm/dd;@": .Value = Date: .Cells(, 1).Resize(ColumnSize:=4).Merge With .Cells(, 1).Resize(ColumnSize:=4): .Borders.Value = 1: .Borders.Weight = xlMedium: .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter: .Font.Bold = True: .Font.ColorIndex = xlAutomatic: .Interior.ThemeColor = xlThemeColorDark1: .Interior.TintAndShade = -0.349986266670736: End With: End With End With WS.Range("b2:e" & lastRow).Copy SH.Range("b" & lr + 1).PasteSpecial Paste:=xlPasteValues WS.Range("b2:b" & Rows.Count).ClearContents MsgBox "لقد تم ترحيل البيانات بنجاح" End Sub ترحيل وطباعة المحدد.xls

يمكن التعديل من الاساتذة على المعادلة داخل الملف المرفق للاستاذ ياسر المحترم والتي تبحث داخل القائمة المنسدلة دون استخدام اي عمود مساعد سوف تستفاد منها كثيرا معادلة القائمة المنسدلة.xlsm

شكرا جزيلا استاذ وبارك الله بيك الله يكثر من امثالك الله يحفظ احبابك ويرحم امواتك

شكرا جزيلا استاذ حسين الان الكود يعمل ١٠٠% بارك الله بيك على جهودك ومساعدتك الأعضاء في هذا المنتدى الجميل. هل يمكن جعل الباسورد يكون بشكل نجوم وليس ارقام تحياتي لك وجعلها الله في ميزان حسناتك

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

بارك الله بيك وبجهودك القيمة استاذ منير

مشكور استاذ العزيز على هاذا الابداع الله يحفظك ويبارك بجهودك تحياتي

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