koky_dar

السلام عليكم الاخوة الكرام اريد المساعدة في بناء قاعدة خاصة بفصح عمليه انتخاب ( إقتراع ) لديا حوالي 20 مرشح وياتي الناخبين لاختيار 7 مرشيحن فقط من المرشيحن بحيث اذا اختار الناخب عدد اقل او اكثر من 7 مرشيحن يكون تصويتة باطل واذا اختار 7 مرشحين يكون صوته صحيح ويتم حساب الصوت الصحيح للمرشح في النهاية لفرز الفائزين وفي النهاية يتم حساب عدد اجمالي الاصوات التي ادلت بصوتها , وعدد الاصوات الصحيحية , وعدد الاصوات الباطلة , وعدد الاصوات الصحيحية لكل مرشح اتمني الافادة , وشكرا

السلام عليكم و رحمة الله و بركاته عندي قاعدة بيانات تحتوي علي حقل " العنوان" ولكن بعض السجلات تكون العناوين بها غير كاملة يعني احيانا يكون العنوان مكتوب : دمنهور فقط او ابو حمص فقط عايز اعمل استعلام يجيبلي من حقل العنوان السجلات اللي بتحتوي علي كلمه واحدة فقط وليس عنوان كامل

مشكوووووووووور بارك الله في حضرتك وزادك علماً اشتغل بشكل اكثر من رائع مساعدة اخيرة انا اسف اني بتقل علي حضرتك ازاي اخلي الخلية C1 تحتوي علي اسم الشيت ؟ في كل شيت جديد من اللي هيتعمل !

بارك الله فيك أستاذنا الفاضل و زادك علماً ونفع بك أنا جربت الكود دا وشغال تمام بس محتاج تعديل من حضرتك دلوقتي انا عندي شيت وليكن بأسم ahmed فيه معادلات وتنسيقات عايز لما انفذ الكود بتاع حضرتك بدل ما ينشأ شيت جديد فارغ , ينشأ نسخة من شيت ahmed بنفس التنسيقات والمعادلات وبدون اي قيم هل ينفع عمل ذلك ؟ ولك جزيل الشكر و التقدير .

السلام عليكم ورحمه الله وبركاته لدي هذا الكود الخاص بالبحث داخل عدة شيتات الكود يعمل بشكل سليم عند البحث عن أسم او نص !!ولكن عند البحث عن رقم لا يبحث فيرجي من الخبراء مراجعة الكود واخباري بالسبب ولكم جزيل الشكر Sub seach() Dim sh As Worksheet, rng As Range, x As Byte, a As Byte, d As Long, e As Long, y As Long Application.ScreenUpdating = False Set sh = Sheets("Search") sh.Range("A5:J1000").Clear Set rng = sh.Range("A2") x = Sheets.Count For a = 1 To x If Sheets(a).Name <> "Search" Then Sheets(a).Select d = Cells(1000, 1).End(xlUp).Row + 1 For y = 2 To d e = sh.Cells(1000, 1).End(xlUp).Row + 1 If rng = Left(Cells(y, 1), Len(rng)) Then sh.Cells(e, 1) = Sheets(a).Name sh.Cells(e, 2) = Cells(y, 3).Address sh.Cells(e, 3) = Cells(y, 1) sh.Cells(e, 4) = Cells(y, 2) sh.Cells(e, 5) = Cells(y, 3) sh.Cells(e, 6) = Cells(y, 4) sh.Cells(e, 7) = Cells(y, 5) sh.Cells(e, 8) = Cells(y, 6) sh.Cells(e, 9) = Cells(y, 7) sh.Cells(e, 10) = Cells(y, 8) End If Next End If Next Sheets("Search").Select Application.ScreenUpdating = True End Sub

السلام عليكم ورحمه الله وبركاته اخواني الاعزاء هل هناك من طريقه لإدخال البيانات في الاكسل عن طريق الصوت ؟؟

الف شكر يا أخي الفاضل اشتغلت تمام وقامت بالمطلوب ربنا يجزيك خير و يبارك في حضرتك تقبل تحياتي 🌷🌷

السلام عليكم ورحمة الله وبركاته لو سمحتم محتاج مساعدة في التقريب لقيمه أصغر عندي خليه فيها رقم 2.6666 عايز اخلي الناتج يتقرب ل 2.50 وخليه اخري فيها رقم 1.3333 عايز اقرب الرقم ل 1.25 حربت دالة Round down بس مظبتطش معايا

انتظر المساعدة من الخبراء

السلام عليكم ورحمه الله وبركاتة الأخوة الكرام خبراء الاكسيل مرفق ملف يحتوي علي صفحتين صفحة DATA وبها البيانات المراد ترحيلها وصفحة المساعد المراد ترحيل البيانات اليها كما هو موضح بالتنسيق داخلها محتاج مساعدة منكم في ترحيل بيانات من عدة اعمدة داخل صفحة الي صفحة اخري مع الالتزام بالتنسيق الجديد في الصفحة التي يتم الترحيل اليها وشاكر لكم مساعدتكم الدائمة و دعمكم لنا مساعدة في الترحيل.xlsx

تسلم ايدك ويكفي مساهمتك ومساعدتك ..... وربنا يزيدك ويزدنى علم علي ايدي خبرائنا الأفاضل تسلم ايدك يا استاذنا وفعلا دا المطلوب بالظبط , ربنا يجازي حضرتك كل خير يارب علي مجهودك الرائع دا

للرفع

123

دا مثال فقط اليوم ليس له عدد صفحات محددة اخي الفاضل , فممكن يبقي صفحة وممكن صفحتين و ممكن يوصل ل 10 صفحات وهكذا والف شكر علي اهتمامك ومساعدتك

تفضل اخي الكريم test.rar