حسونة حسين

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل =IF(C4="";"";"Em" & TEXT(C;"dd/mm/yyyy"))

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××

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

تمام كده قم بتفعيل الماكرو يا اخي وقم بعمل trust بالضغط على الصورة

تفضل اخي Dim Stock_check As Boolean, Product_check As Boolean Stock_check = Application.WorksheetFunction.CountIf(fa.Range("E2:E" & Uf), ComboBox1) > 1 Product_check = Application.WorksheetFunction.CountIf(fa.Range("A4:A" & Uf), .Cells(J, 1)) > 1 If (fa.Cells(J, 4).Value) = 0 And Stock_check = True And Product_check = True Then fa.Cells(J, 4).EntireRow.Delete End If

اخي @Chenine Abdelhalim لقد تم ارسال لك رساله ببيانات الدخول

وعليكم السلام ورحمه الله وبركاته تفضل اخي 2024.xlsm

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل اخى If (fa.Cells(J, 4).value) = 0 and Application.WorksheetFunction.CountIf(fa.Range("e2:e" & uf), ComboBox1) > 0 Then Fa.Cells(J, 4).EntireRow.Delete

سؤالى فقط جواب بنعم او لا هل الملف الذي رفعته لك يعمل ام لا بدون اي تغييرات في المعادله ؟

هل الملف الذي رفعته لك يعمل ام لا بدون اي تغييرات

قم بتفعيل الماكرو يا اخي بالضغط على تمكين التحرير

السلام عليكم ورحمه الله وبركاته تفضل اخي filter-function-excel.xlsb

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××

وجزاكم مثله اخى الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام ورحمة الله وبركاته تفضل جرب هذه المعادله =COUNTIF(Sheet1!E3:E4000;"*"& B2 &"*")

وفيك بارك اخي ايهاب الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام ورحمة الله وبركاته رسائل كاش.xlsx

الشكر لله اخى الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام ورحمه الله وبركاته تفضل اخى جرب هذا التعديل Option Explicit Private Sub CommandButton1_Click() Dim Ws As Worksheet, CEl As Range, Sheets_name As Variant, Sh, Temp() Dim Str As String, i As Long, j As Long, Lr As Long Str = Me.TextBox1.Value Sheets_name = Array("عين غزال", "الجبيهة", "الجبيهة", "أربد", "الزرقاء") i = 0 For Each Sh In Sheets_name Set Ws = ThisWorkbook.Sheets(Sh) Lr = Ws.Cells(Ws.Rows.Count, 9).End(xlUp).Row For Each CEl In Ws.Range("A2:J" & Lr) If InStr(CEl.Value, Str) > 0 Then i = i + 1 ReDim Preserve Temp(1 To 12, 1 To i) For j = 1 To 10 Temp(j, i) = Ws.Cells(CEl.Row, j).Value Next j Temp(11, i) = Ws.Name Temp(12, i) = CEl.Address End If Next CEl Next Sh If i = 0 Then MsgBox "ما تحاول البحث عنه غير موجود في الاسواق ", vbInformation + vbSystemModal, "نظام البطاقات الائتمانية - Search " TextBox1.Text = "" Else Temp = Application.Transpose(Temp) With Me.ListBox1 .ColumnCount = 12 .ColumnWidths = "96,96,96,96,140,96,96,96,96,96,96,96" .Clear .List = Temp End With End If End Sub جديد.xlsm

وعليكم السلام ورحمة الله وبركاته بارك الله فيك ابو حبيبه وجعله الله في ميزان حسناتك يوم القيامة

بالضغط كما بالصورة ثم اختيار الملف الذي تريده

تفضل اخى ارسال واتساب.xlsm

السلام عليكم ورحمة الله وبركاته وبها نبدأ بارك الله فيك أخي @mahmoud nasr alhasany على اتباع تعليمات المنتدى اخى @Ahmed Saad 2017 يمكنك ارسال الملف لعل اخونا @mahmoud nasr alhasany يفيدك

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

الحمد لله الذي بنعمته تتم الصالحات تحت امرك اخي ابو مالك