ياسر خليل أبو البراء

الحمد لله الذي بنعمته تتم الصالحات لا تنسانا بدعوة بظهر الغيب

استبدل هذا الجزء FS.Cells(Rows.Count, 1).End(xlUp).Row بالرقم 27

جرب الكود التالي Sub TARHEEELL() Dim FS As Worksheet, TS As Worksheet Dim R, ER1, ER2 Set TS = Sheets("data") ER2 = TS.Range("A55555").End(xlUp).Row + 1 Application.ScreenUpdating = False For Each FS In ThisWorkbook.Worksheets If FS.Name <> "data" Then For ER1 = 3 To FS.Cells(Rows.Count, 1).End(xlUp).Row If FS.Cells(ER1, 1) <> "" And FS.Cells(ER1, 14) <> "مرحل" Then TS.Cells(ER2, 1).Resize(1, 13).Value = FS.Cells(ER1, 1).Resize(1, 13).Value FS.Cells(ER1, 14) = "مرحل" ER2 = ER2 + 1 End If Next ER1 End If Next FS Application.ScreenUpdating = True End Sub

هل تقصد أن يكون الترحيل من ورقة العمل data إلى بقية أوراق العمل كلها بالمصنف ..أم أن هناك أوراق عمل سيتم استثنائها من عملية الترحيل؟

هل التنسيق يتغير بشكل تلقائي ؟ أعتقد التنسيق مسبق قبل عملية الإدخال .. هذا والله أعلم

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

بارك الله فيك أخي الكريم الزباري على هذه الروائع الأخ الكريم الذي تعذر عليه فتح الملف ..الملف بامتداد PDF ويلزمه برنامج Acrobat Reader لفتح الملف ، قم بتنصيبه إذا لم يكن منصب لديك

جرب المرفق VLOOKUP Multiple Results VLOOKALL UDF YasserKhalil.rar

استخدم هذا الجزء If Cells(1, 2) = 2

افتح أي ملف إكسيل .. اضغط Alt + F11 للدخول لمحرر الأكواد من قائمة Insert أدرج موديول جديد Module انسخ الدالة المعرفة وضعها داخل الموديول الجديد روح لورقة العمل وطبق بقية الخطوات المذكورة في المشاركة السابقة

لم أفهم المطلوب ..هل تريد إزالة التنسيق من الخلية بشكل نهائي؟ وما علاقة التنسيق الشرطي بالموضوع؟

الدالة للبحث عن بيان واحد وليس لجلب جميع الأسماء برقم اللجنة .. البحث يكون على أساس عمود محدد أو خلية محددة ، كما هو موضح في شرح أخونا أبو تامر

اضبط النطاق MyRng في ملفك ليبدأ من العمود A وليس العمود B .. وفقط

نعم مجرد أسماء وهمية .. الكود كمثال ونموذج فقط

وعليكم السلام جرب الدالة المعرفة التالية Function CaculateVolt(cycle As Variant) Application.Volatile Static x If IsEmpty(cycle) Then x = 0 x = x + cycle CaculateVolt = x * 2 End Function اكتب في الخلية B1 المعادلة التالية =CaculateVolt(A1) الآن جرب إدخال عدد الدورات في الخلية A1 ، اكتب 5 ستجد النتيجة أصبحت 10 ، ثم اكتب الرقم 10 ستجد النتيجة 30 ، ثم اكتب الرقم 15 ستجد النتيجة 60 .. إذا أردت عمل إعادة ضبط للقيمة فقط قم بمسح محتويات الخلية A1 تقبل تحياتي

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

وعليكم السلام أخي الكريم قم بإنشاء إجراء فرعي بأي اسم جديد وليكن CollectCodes ثم استخدم كلمة Call لاستدعاء الأكواد الأخرى باسمها Sub CollectCodes Call Test1 Call Test2 Call Test3 End Sub

استخدام الدالة محدد بأول سطر Function Status(Gender As String, Degree As String, S_Rng As String) As Variant الأول النوع والثاني الدرجة والثالث الحالة الاجتماعية يمكن التعديل في الدالة المعرفة حسب المطلوب .. واستخدامها مثل أي دالة في الإكسيل ..اكتب اسم الدالة المعرفة ثم افتح قوس وبعد القوس اكتب عنوان الخلية التي بها النوع ، ثم فاصلة ، ثم عنوان الخلية التي بها الدرجة ، ثم فاصلة ، ثم عنوان الخلية التي بها الحالة الاجتماعية ثم أغلق القوس .. إذا تعذر عليك استخدامها فيمكن لأحد الأخوة تكملة الموضوع نظراً لانشغالي في أمور خاصة

أليس من الطبيعي أن يظهر التعليق بمجرد الوقوف بالماوس على الخلية التي بها تعليق؟! لم أفهم المطلوب في حقيقة الأمر بعد ..

جرب الدالة المعرفة التالية (يمكنك التعديل عليها بما هو صحيح) Function Status(Gender As String, Degree As String, S_Rng As String) As Variant Select Case Gender & " " & Degree & " " & S_Rng 'أعزب وحالاته Case "ذكر الأولى أعزب": Status = 0 Case "ذكر خبير أعزب": Status = 0 Case "ذكر الثانية أعزب": Status = 0 Case "ذكر الثالثة أعزب": Status = 0 Case "ذكر الرابعة أعزب": Status = 0 Case "ذكر الخامسة أعزب": Status = 0 Case "ذكر السادسة أعزب": Status = 0 Case "ذكر بدون درجة أعزب": Status = 0 Case "أنثى الأولى أعزب": Status = 0 Case "أنثى خبير أعزب": Status = 0 Case "أنثى الثانية أعزب": Status = 0 Case "أنثى الثالثة أعزب": Status = 0 Case "أنثى الرابعة أعزب": Status = 0 Case "أنثى الخامسة أعزب": Status = 0 Case "أنثى السادسة أعزب": Status = 0 Case "أنثى بدون درجة أعزب": Status = 0 'متزوج وحالاته Case "ذكر الأولى متزوج": Status = 2 Case "ذكر خبير متزوج": Status = 2 Case "ذكر الثانية متزوج": Status = 2 Case "ذكر الثالثة متزوج": Status = 2 Case "ذكر الرابعة متزوج": Status = 2 Case "ذكر الخامسة متزوج": Status = 2 Case "ذكر السادسة متزوج": Status = 2 Case "ذكر بدون درجة متزوج": Status = 2 Case "أنثى الأولى متزوج": Status = 2 Case "أنثى خبير متزوج": Status = 2 Case "أنثى الثانية متزوج": Status = 2 Case "أنثى الثالثة متزوج": Status = 2 Case "أنثى الرابعة متزوج": Status = 2 Case "أنثى الخامسة متزوج": Status = 2 Case "أنثى السادسة متزوج": Status = 2 Case "أنثى بدون درجة متزوج": Status = 2 'متزوج+1 وحالاته Case "ذكر الأولى متزوج+1": Status = 4 Case "ذكر خبير متزوج+1": Status = 4 Case "ذكر الثانية متزوج+1": Status = 4 Case "ذكر الثالثة متزوج+1": Status = 4 Case "ذكر الرابعة متزوج+1": Status = 4 Case "ذكر الخامسة متزوج+1": Status = 4 Case "ذكر السادسة متزوج+1": Status = 4 Case "ذكر بدون درجة متزوج+1": Status = 2 Case "أنثى الأولى متزوج+1": Status = 2 Case "أنثى خبير متزوج+1": Status = 2 Case "أنثى الثانية متزوج+1": Status = 2 Case "أنثى الثالثة متزوج+1": Status = 2 Case "أنثى الرابعة متزوج+1": Status = 2 Case "أنثى الخامسة متزوج+1": Status = 2 Case "أنثى السادسة متزوج+1": Status = 2 Case "أنثى بدون درجة متزوج+1": Status = 2 'متزوج+2 وحالاته Case "ذكر الأولى متزوج+2": Status = 6 Case "ذكر خبير متزوج+2": Status = 6 Case "ذكر الثانية متزوج+2": Status = 6 Case "ذكر الثالثة متزوج+2": Status = 6 Case "ذكر الرابعة متزوج+2": Status = 6 Case "ذكر الخامسة متزوج+2": Status = 6 Case "ذكر السادسة متزوج+2": Status = 6 Case "ذكر بدون درجة متزوج+2": Status = 2 Case "أنثى الأولى متزوج+2": Status = 2 Case "أنثى خبير متزوج+2": Status = 2 Case "أنثى الثانية متزوج+2": Status = 2 Case "أنثى الثالثة متزوج+2": Status = 2 Case "أنثى الرابعة متزوج+2": Status = 2 Case "أنثى الخامسة متزوج+2": Status = 2 Case "أنثى السادسة متزوج+2": Status = 2 Case "أنثى بدون درجة متزوج+2": Status = 2 'تعول وحالاتها Case "أنثى الأولى تعول": Status = 4 Case "أنثى خبير تعول": Status = 4 Case "أنثى الثانية تعول": Status = 4 Case "أنثى الثالثة تعول": Status = 4 Case "أنثى الرابعة تعول": Status = 4 Case "أنثى الخامسة تعول": Status = 4 Case "أنثى السادسة تعول": Status = 4 Case "أنثى بدون درجة تعول": Status = 2 Case Else: Status = "" End Select End Function

استبدل الفاصلة العادية بفاصلة منقوطة

وعليكم السلام أخي الكريم محمد وجزيتم بمثل ما دعوت لي

وعليكم السلام جرب الكود التالي Sub SearchCar() Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Dim last As Long Dim x As Long Dim i As Long Application.ScreenUpdating = False Set sh = Sheets("البحث") x = 4 last = IIf(sh.Cells(Rows.Count, "I").End(xlUp).Row <= 4, 4, sh.Cells(Rows.Count, "I").End(xlUp).Row) With sh.Range("A4:M" & last) .ClearContents: .Borders.Value = 0: .Interior.Color = xlNone: .Font.Bold = False End With If sh.Cells(1, "G").Value = "" Or sh.Cells(1, "G").Value = 0 Then Exit Sub For Each ws In Sheets(Array("بنزين", "كاز", "نفط")) lr = ws.Cells(Rows.Count, "M").End(xlUp).Row For i = 2 To lr If ws.Cells(i, "F").Value = sh.Cells(1, "G").Value Then sh.Cells(x, 1).Value = x - 3 sh.Cells(x, 2).Resize(1, 12).Value = ws.Cells(i, 2).Resize(1, 12).Value x = x + 1 End If Next i Next ws If x = 4 Then Exit Sub sh.Range("A4:M" & x - 1).Borders.Value = 1 sh.Cells(x, "I").Value = "المجموع" sh.Cells(x, "J").Value = Application.WorksheetFunction.Sum(sh.Range("J4:J" & x - 1)) sh.Cells(x, "L").Value = Application.WorksheetFunction.Sum(sh.Range("L4:L" & x - 1)) With sh.Range("I" & x & ":M" & x) .Font.Bold = True: .Borders.Value = 13: .Interior.Color = vbCyan End With Application.ScreenUpdating = True End Sub بحث عن رقم السيارة في كافة الشيتات الموجودة.rar