نجوم المشاركات

تم التعديل على الملف كما تريد (الدالة تعمل وكذلك التنسيق الشرطي) و عند الضغط على الزر يقوم الماكرو بازالة الصفوف (الاسماء) الغارغة و يحافظ على الدالة و التنسيق الشرطي Option Explicit Sub Del_Empty_1() Dim my_rg As Range Dim Ro% With Sheets("Salim") Ro = .Cells(Rows.Count, 2).End(3).Row .Cells.FormatConditions.Delete Range("A5:A500").ClearContents On Error Resume Next Set my_rg = _ .Range("B5:B" & Ro).SpecialCells(4) my_rg.Delete xlUp On Error GoTo 0 Ro = .Cells(Rows.Count, 2).End(3).Row With .Range("A5").Resize(500) .Formula = "=IF(B5="""","""",MAX($A$4:A4)+1)" .Resize(, 3).FormatConditions _ .Add Type:=2, Formula1:="=$B5<>""""" .Resize(, 3).FormatConditions(1). _ Borders.LineStyle = 1 End With End With End Sub الملف من جدبد jack305.+with_cond_formatxlsm.xlsm

جرب هذا الكود Option Explicit Sub How_Many_A(My_Sh As Worksheet) Dim nCOL%, Nro$, x%, y% Nro = My_Sh.Cells(Rows.Count, 2).End(3).Row nCOL = My_Sh.Cells(1, Columns.Count).End(1).Column My_Sh.Cells(3, nCOL).Resize(Nro).ClearContents For x = 3 To Nro y = Application.CountIf(My_Sh.Cells(x, 3).Resize(, nCOL - 3), "A") My_Sh.Cells(x, nCOL) = IIf(y > 0, y, "") Next End Sub '++++++++++++++++++++++++++ Sub Sum_Of_A() Dim ws As Worksheet For Each ws In Sheets Call How_Many_A(ws) Next End Sub الملف مرفق (اضغط على الزر Run في الصفحة الأولى ويتم التنفيذ غلى كل الصفحات) Mohmad83.xlsm

طابعة جيدة وتستخدم ورق مقاس 80 فقط اختار عرض 7.9 وفي تنسيق التقرير ضع العرض 6.5 انظر للصورة المرفقة بالنسبة لطول الورقة غير مهم الطابعات الحرارية تطبع الرول حسب طول التقرير ويتم قطع الورقة من خصائص الطابعة بشكل اتوماتيكي او يدوي حسب اعدادك لها

جربت الكود ماشاء الله عليك أخي @ابوآمنة بارك الله فيك ...... ولا حاجة لنسخ الرسالة للحافظة ثم اللصق .... شكرا جزيلا لك ......

اعتقد مشكلة اللغة العربية في تحويل اللغة من العربية الى الانجليزية والعكس ........

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

جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 5 And Target.Column = 1 Then If Target.Value = "" Then Sheet1.ShowAllData Else Sheet1.Cells.AutoFilter Field:=5, Criteria1:=Target.Value End If End If End Sub مشروع1.xlsm

هذا بدون زر Mhm_78_1.xlsm

ازل علامة افضل اجابة لانها تدل على انك حصلت على الاجابة فبتالي الزملاء والخبراء لن يزوروا موضوعك

على الأعلب يجب أن تستبدل ; بـ ,

جميل جداً استاذي الفاضل لم يبقى اي غموض بارك الله فيك وزادك من فضله وعلمه

لم أذكر في الكود (ِAE) بل ذكرت رقم اخر عامود فيه بيانات (nCol) لأنه ربما لا يكون اخر غامود هو AE حسب كل صفخة

تحية خاصة اليك je te remercie infiniment

تفضل هذا الفيديو به طلبك ... للأسناذة ساجدة العزاوى لها منا كل المحبة والإحترام أو يمكنك التعديل على كودك ليصبح هكذا Private Sub Workbook_Open() With Sheet1 If Date <= DateValue("3/10/2020") Or .Range("xfd1").Value <= DateValue("3/10/2020") Then Exit Sub MsgBox "This workbook has expired.", 48, "Goodbye." With ThisWorkbook .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close False End With End With End Sub

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

جرب هذا الماكرو البسيط Sub savepdf() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\pdf\" & Range("c4").Value End Sub حفظ بصيغة pdf تلقائيا.xlsm

في هذه الحالة يمكنك استعمال الوقت بالساعة والدقيقة والثانية ضمن الاسم مثال FileName_2020_09_29_09_55_20.pdf راجع هذا الفيديو يستعمل نفس فكرة التسمية عند النسخ الاحتياطي لمصنف العمل الحالي

تابعوا معنا طرق التعامل مع البيانات ومعالجتها وتنظيفها في برنامج الاكسل من خلال الحلقة في الرابط أدناه:

أخي الكريم تابع هذا الموضوع هنا ... التكمله هنا

السلام عليكم 🙂 ممكن استعمال استعلام واحد للبحث بأي جزء من اسم العميل ، او رقم الجواب ، وعليه يكون عندك تقرير واحد فقط جعفر

مش انا يا عم ازهر يمكن قصدك على عمنا جعفر