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

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

وعليكم السلام ورحمه الله وبركاته

تفضل اخى الكريم ضع هذا الكود في ملف ( الميكرو المستخدم في التعديل علي الملفات.xlsx) فى موديل عادى ثم شغل الكود Option Explicit Sub Delete_Row_If_Equal_A_Specific_Value() Dim WB As Workbook, WS As Worksheet, SH As Worksheet, sPath As String, sFile As String Dim C As Range, M As Long, R As Long Application.ScreenUpdating = False: Application.DisplayAlerts = False: Application.EnableEvents = False Set SH = ThisWorkbook.Worksheets("Sheet1") sPath = ThisWorkbook.Path & "\الملفات\" sFile = Dir(sPath & "*.xls*") Do While sFile <> "" Set WB = Workbooks.Open(sPath & sFile, False) For Each WS In WB.Worksheets M = WS.Range("A" & Rows.Count).End(xlUp).Row For R = 2 To M Set C = WS.Range("A:A").Find(What:=SH.Range("A" & R).Value, LookAt:=xlWhole) If C Is Nothing Then GoTo 1 WS.Rows(C.Row).Delete 1 Next R Next WS WB.Close SaveChanges:=True sFile = Dir Loop Application.ScreenUpdating = True: Application.DisplayAlerts = True: Application.EnableEvents = True End Sub

ما شاء الله على الابداع وانا واحد من اللي حاول يعمل نفس فكرة تصاميم الـhtml في الاكسس وبعد ذا الانجاز الرائع اتأكدت ان الابداع ماله حدود معاااااكم والله

في هذه الحالة Sub test() Sheets("4").Cells(1).CurrentRegion.Offset(1).SpecialCells(2, 23).ClearContents End Sub عمود الفرقة ليس معادلات ليس يتم مسحه بعض العديلات+ ملف.xlsm

تفضل 🙂 اصبح جدولك: . وعلشان تنادي مسار التذاكر ، استخدم: Project_path = DLookup("[Folder_Path]", "tbl_msar_folder", "[Auto_ID]=1") جعفر 1432.1.الارشيف.accdb.zip

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

جرب المعادلة =SUMIF(D2:D13;"<>عجز الفترة";C2:C13)

استبدل With Sheets("Sheet3").PageSetup .FitToPagesWide = 1 .FitToPagesWide = False End With بـ With Sheets("Sheet3").PageSetup .Zoom = 100 End With

وعليكم السلام ورحمة الله وبركاته امسح هذه السطور اخى الكريم Application.PrintCommunication = False With Sheets("Sheet3").PageSetup .FitToPagesWide = 1 .FitToPagesWide = False End With Application.PrintCommunication = True

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى ، وللإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة التقرير له فرز Sort خاص به: . . جعفر

يا سيدي ، المشكلة ان رقم الفاتورة عندك "نص" ، والمعادلة التي اعطيتك هي اذا كان رقم الفاتورة "رقم" وكذلك كان الخطأ مني في الكود اعلاه ، فعند مناداة النموذج الفرعي ، يجب ان نضيف كلمة .Form. تفضل هذا التعديل ، بالاضافة انه عندك بقايا في نهاية الكود: Private Sub fatora_no_AfterUpdate() Me.fry_111.Form.Filter = "[id_fatora]='" & Me.fatora_no & "'" Me.fry_111.Form.FilterOn = True Me.fry_112.Form.Filter = "[fatora_no]='" & Me.fatora_no & "'" Me.fry_112.Form.FilterOn = True 'End If End Sub جعفر