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