Khorsheed Omar

شكرا جزيلا استاذ @عبدالله بشير عبدالله

لدي هذا الكود و يعمل بشكل جيد ساعدني به الأساتذة هنا يعمل من شيت الطباعة و يرحل المعلومات إلى شيت الأرشيف و يعيد قفل الشيت ما أحتاجه هو أن يبقى يقفل الشيت و لكن أن يبقي الفلترة مسموحة أرجو المساعدة هذا هو الكود Sub CopyPrintClear() Dim wsArchive As Worksheet Dim wsPrint As Worksheet Dim lastRow As Long Dim copyRange As Range Dim rowCount As Long Dim i As Long Dim Password As String Password = "KHORSHEED.OMAR.2025" ' تعيين الشيتات Set wsPrint = ThisWorkbook.Sheets("طباعة") Set wsArchive = ThisWorkbook.Sheets("أرشيف") ' التحقق من الخلايا المطلوبة requiredCells = Array("A2", "F2", "F3", "C18") isIncomplete = False For Each cell In requiredCells If Trim(wsPrint.Range(cell).Value) = "" Then isIncomplete = True Exit For End If Next cell If isIncomplete Then MsgBox "الملف غير كامل. يرجى تعبئة جميع الخلايا المطلوبة.", vbExclamation Exit Sub End If ' رسالة تأكيد If MsgBox("هل تريد تنفيذ العملية؟", vbYesNo + vbQuestion, "تأكيد") = vbNo Then Exit Sub End If wsArchive.Unprotect Password:=Password ' تحديد نطاق النسخ Set copyRange = wsPrint.Range("A6:G15") rowCount = copyRange.Rows.Count ' تحديد أول صف فارغ في شيت الأرشيف lastRow = wsArchive.Cells(wsArchive.Rows.Count, "B").End(xlUp).Row + 1 ' نسخ الجدول بالكامل إلى الأرشيف wsArchive.Range("A" & lastRow).Resize(rowCount, 5).Value = copyRange.Value ' نسخ C18 إلى العمود F في كل صف من الصفوف المنسوخة wsArchive.Range("F" & lastRow & ":F" & lastRow + rowCount - 1).Value = wsPrint.Range("C18").Value ' نسخ B3 إلى العمود J في كل صف من الصفوف المنسوخة wsArchive.Range("J" & lastRow & ":J" & lastRow + rowCount - 1).Value = wsPrint.Range("B3").Value ' نسخ F3 إلى العمود H في كل صف من الصفوف المنسوخة wsArchive.Range("H" & lastRow & ":H" & lastRow + rowCount - 1).Value = wsPrint.Range("F3").Value ' نسخ F2 إلى العمود G في كل صف من الصفوف المنسوخة wsArchive.Range("G" & lastRow & ":G" & lastRow + rowCount - 1).Value = wsPrint.Range("F2").Value ' نسخ A2 إلى العمود I في كل صف من الصفوف المنسوخة wsArchive.Range("I" & lastRow & ":I" & lastRow + rowCount - 1).Value = wsPrint.Range("A2").Value ' تحديد منطقة الطباعة wsPrint.PageSetup.PrintArea = "$A$1:$F$18" wsPrint.PrintOut ' مسح البيانات من A6:A15 و C6:F15 wsPrint.Range("A6:A15").ClearContents wsPrint.Range("C6:E15").ClearContents wsPrint.Range("A2").ClearContents wsPrint.Range("F2").ClearContents wsPrint.Range("F3").ClearContents wsPrint.Range("C18").ClearContents wsPrint.PageSetup.PrintArea = "$A$1:$F$18" wsPrint.PrintOut wsArchive.Protect Password:=Password, USERINTERFACEONLY:=True ' تنظيف الحافظة Application.CutCopyMode = False ' العودة إلى شيت الطباعة وتحديد الخلية A1 wsPrint.Activate wsPrint.Range("A1").Select End Sub

أشكرك جزيل الشكر استاذ @وايلي حبيب هو بالضبط المطلوب و انا لك من الشاكرين

عذراً استاذ @وايلي حبيب لكن من شيت الطباعة فقط يرحل بيانات اول صف فقط إلى شيت الأرشيف

أنا أنتظر المساعدة أرجو من خبراء الموقع مساعدتي في هذه المشكلة

شكراً جزيلاً استاذ @أبوعيد الحلين رائعين لكن الحل الثاني هو بالضبط ما كنت أطلبه

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

سيد @وايلي حبيب شيت المعلومات فيه تسلسل من 1 إلى 10 يعني يبد أمن 1 و ينتهي عند 10 و يبدأمن جديد من 1 و بجانب التسلسل فيه معلومات طبعاً شيت الطباعة يأخذ معلوماته من شيت المعلومات أخر عشرة ارقام و يضعها في الجدول لغرض الطباعة لكن الذي أحتاجه انه أن يأخذ فقط من أخر مجموعة تسلسل اي ان كان هناك 15 رقم أو معلومات في الصف أن يأخذ فقط أخر خمسة و إن كان 19 أن يأخذ أخر تسعة أو إن كان عشرين أن يأخذ أخر عشرة لكن إن كان إثنان و عشرون أن ياخذ أخر رقمين أرجو أن أكون أوصلت الفكرة المطلوبة

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

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

لدي تكملة لسؤالي ان امكن لي و اعتذر عن الإطالة استاذ @عبدالله بشير عبدالله و الأستاذ @محمد هشام. الطباعة تتم بأكمل وجه لكن اريد بعض الخيارات في الطباعة و لا استطيع اضافتها مثل ازالة الهوامش و طباعة التحديد فقط حتى لو كانت الورقة كبيرة Range("Q2:Y20").Select Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True Selection.PrintOut Copies:=1, Collate:=True End Sub

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

السلام عليكم لدي ملف و فيه 6 وصولات قبض او صرف للطباعة و لدي ازرار لطباعة كل وصل لكن احتاج كود للطباعة واحد فقط و عند الضغط عليه يطلب مني اختيار الوصولات لطباعتها مثال.xlsm

شكرا استاذ عبد الله

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

شكرا جزيلا استاذ @عبدالله بشير عبدالله المعادلة ممتازة

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

اعتذر استاذ @حسونة حسين لم تعمل بالشكل المطلوب انا الجدول الذي لدي يتم تقريب الأرقام إلى أربعة قيم و هي 250 أو 500 أو 750 أو 1000 و هي القيم المستخدمة في الدينار العراقي الموجودة كعملة حقيقية و معادلتي تفي بالغرض و قد ساعدوني الأساتذة هنا من قبل لكن المعادلة لا تتفاعل من الرقم السالب المطلوب هو تعديل المعادلة كي تتفاعل مع الرقم السالب اي ان كان الرقم سالبا ان يتم التقريب في السالب ايضا و ليس تعديل الر قم من سالب إلى رقم صحيح ارجو تفقد المعادلة الموجودة في الجدول و يمكنك تغيير الرقم او الراتب كيفما تريد سيتم تقريب الرقم إلى الأربعة قيم المذكورة لكن لا تتفاعل مع السالب و لكم جزيل الشكر

عفوا استاذ @Saleh Ahmed Rabie لكن المعادلة ليست كاملة هل من الممكن تطبيقها على الجدول المرفق ؟

عزيزي استاذ @Saleh Ahmed Rabie لم تنجح المعادلة ما ارغب به هو تقريب الأرقام الموجبة ان كانت موجبة و تقريب الأرقام السالبة ان كانت سالبة في معادلتي يتم تقريب الأرقام الموجبة و لكن لا يعطي نتيجة اذا كانت الأرقام سالبة انا ارغب ان يتم تقريب الأرقام السالبة ايضا و وضع اشارة سالب

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

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

تمت شكرا جزيلاً

ما اطلبه استاذي هو ان يتغيير الرقم عند كل طباعة مثلا ان اعطيته امر طباعة يكون الرقم واحد لكن عن اعطاء امر طباعة مرة ثانية يتغيير الرقم تلقائياً إلى الرقم 2 و هكذا

عفوا استاذ @abouelhassan لكن هل يمكنك تطبيقها على الملف كي اعرف بالضبط ما انا مخطئ فيه