ابو مارفن

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

Public Property Get CrWS() As Worksheet Set CrWS = Sheets("ورقة1") End Property Private Sub UserForm_Initialize() Dim Tbl As Object, c As Range, temp As Variant, lastRow As Long Set Tbl = CreateObject("Scripting.Dictionary") lastRow = CrWS.Cells(CrWS.Rows.Count, "B").End(xlUp).Row If lastRow > 1 Then For Each c In CrWS.Range("B2:B" & lastRow) If c.Value <> "" Then Tbl.Item(c.Value) = c.Value Next c End If If Tbl.Count > 0 Then temp = Tbl.items Me.ComboBox1.List = temp End If End Sub Private Sub CommandButton1_Click() Dim lastRow As Long, ky As String If Me.ComboBox1.Value <> "" Then ky = "=*" & Me.ComboBox1.Value & "*" lastRow = CrWS.Cells(CrWS.Rows.Count, "B").End(xlUp).Row If lastRow < 2 Then Exit Sub Application.ScreenUpdating = False With CrWS.Range("B1:B" & lastRow) .AutoFilter Field:=1, Criteria1:=ky End With On Error Resume Next CrWS.Range("A2:C" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete On Error GoTo 0 CrWS.AutoFilterMode = False Application.ScreenUpdating = True Unload Me End If End Sub السلام عليكم ممكن تعديل على الكود ليعمل على ملف اخر مفتوح وليكن اسمه كلية واسم الشيت القسم مع جزيل الشكر كلية.xlsb ملف الاصلي.xlsb

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

Sub Test() Dim Cel As Range For Each Cel In Sheet2.Range("B1:B" & Sheet1.Cells(Rows.Count, "B").End(xlUp).Row) If Cel.Value = "كلية التربية" Then Cel.EntireRow.Delete Next Cel End Sub السلام عليكم المطلوب التعديل على الكود لحذف الصفوف التي تحتوي على كلية التربية ومعهد عالي في العمود B مع العلم عدد الصفوف كثيره في الملف مسح صفوف معينة بناء على قيمتها.xlsx

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

شكرا جزيلا لكم سوف اجرب الملف غدا صباحا تحياتي لكم

توضيح في الملف المرفق مع جزيل الشكر جمع اقساط للاسماء المتشابهة.xlsx

السلام عليكم عندي ملف يحتوي الف اسم بي اسماء بعمود a مكرر وبي بعمود b مبالغ اريد طريقة اجمع المبلغ التابع للاسم المتكرر مع مسح الصف المتكرر ليبقى اسم واحد ويقابله مجموع المبالغ لنفس الاسم

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

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

التعديل على كود الصفحة عند الضغط دبل كلك على أي خلية من خلايا محددة تكون قيمتها Negative دون غيرها واضافة شرط على معادلة خلية C3 كما موضح بالملف المرفق مع جزيل الشكر ملف العمل.xlsm

اساتذتنا الافاضل ان امكن مساعدتي ولا باس أن كان هناك طريقه اخرى ينفذ المطلوب؟؟

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

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

بارك الله فيك استاذ محمد الكود يعمل بشكل ممتاز فقط محتاج ان تكون الخليه C10 تساوي positive عندما تحتوي الخليه E13 او E14 على + كما في الصورة ادناه