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

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

وعليكم السلام-بارك الله فيك وزادك الله من فضله

وعليكم السلام -تفضل كان عليك استخدام خاصية البحث بالمنتدى تحديد طابعة معينة للطباعة في الكود وهذا فيديو اخر للتوضيح للأستاذة ساجدة العزاوى لها منا كل المحبة والإحترام

لطلبك هذا لابد من استخدام هذه المعادلة =IFERROR(IF(AND(COUNTIF($B$4:B4,B4)=1,U4=0),VLOOKUP($B4,$U$1:$V$2,2,0),IF(AND(COUNTIF($B$4:B4,B4)>1,U4=0),VLOOKUP($B4,$U$1:$V$2,2,0)+(COUNTIFS($B$4:B4,B4,$U$4:U4,U4)-1),"")),"") ترقيم وتسلسل1.xlsx

أخى الكريم تفضل الخطأ كان من عندك انت... فلابد ان تكون ادخالات الوقت صحيحة كصيغة وقت وليست نص بــــ Sheet1 help count late1.xlsx

أخى الكريم لا يوجد مشكلة بالمعادلة فالمشكلة لديك انت عند كتابة الوقت , فاذا كنت تريد كتابة الساعة 01 بعد منتصف الليل فجرب كتابتها هكذا وستجد النتيجة المرجوة 25:00 1.xlsx

الكود من المنتدى لاستاذنا عبدالله باقشير ملف2.xlsb

الاساتذة الافاضل Ali Mohamed Ali حسين مامون ابو يحيى1 سليم حاصبيا ابراهيم الحداد abouelhassan محمد حسن المحمد yara ahmed محمد يوسف فوزى فوزى ashraf_abdalla ابو طيبه بارك الله في الجميع واشكركم جميعا على هذه الثقة وادعو الله ان اكو ن في مستوى المسئولية حفظكم الله جميعا

لا يمكنك التحكم بحقل لوحة المفاتيح اذا كان منضما الى الجدول والحل هو ان تستخدم زر الادخال لنقل النتيجة الى الحقل المحدد انظر التعديل وبعد كتابة الرقم انقر انتر لوحة مفاتيح.rar

في هذه الحالة لا حاجة للفلتر (معادلة بسيطة) Fahd.xlsx

للمرة الــ 100 بعد الألف (يجب ان يكون الجدول مستقلاً عن كل الخلايا التي لا علاقة له بها 1- للمرة الأخيرة اقوم بالمساعدة دون هذه الميزة (تم ادراج صف فارغ لتحقيق ذلك الصف رقم 3 مخفي) الكود Sub Salim_Macro() Application.ScreenUpdating = False Dim My_max% Dim Cont As Integer Dim Ro Cont = Range("H1").Value My_max = Range("A4").CurrentRegion.Rows.Count If My_max = 1 Then GoTo End_Me With Range("A4").CurrentRegion. _ Offset(1).Resize(My_max - 1) _ .Columns(1) .ClearContents .Offset(, 7).ClearContents End With With Range("B4:H" & My_max + 3) .Sort .Columns(4), xlAscending, Header:=1 .Sort .Columns(3), xlAscending, Header:=1 .Sort .Columns(6), xlDescending, Header:=1 End With Range("a5").Resize(My_max - 1) = _ Evaluate("Row( 1:" & My_max - 1 & ")") Range("H5").Resize(My_max - 1).Formula = _ "=INT((ROWS($A$1:A1)-1)/" & Cont & ")+1" Range("A4:H" & My_max).Value = _ Range("A4:H" & My_max).Value End_Me: Application.ScreenUpdating = True End Sub الملف مرفق Moustsfa_Sort.xlsm

جرب الماكرو هكذا ربما يفي بالغرض Sub Macro1() Application.ScreenUpdating = False Dim Cont As Integer Dim lr Cont = Range("h1").Value lr = Range("b" & Rows.Count).End(xlUp).Row With Range("b4:h" & lr) .Sort .Columns(4), xlAscending .Sort .Columns(3), xlAscending .Sort .Columns(6), xlDescending End With With Range("h4:h" & lr) .FormulaR1C1 = "=MOD(ROW()-4," & Cont & ")+1" .Value = .Value End With With Range("b4:h" & lr) .Sort .Columns(7), xlAscending End With Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله جرب هذا الكود Sub GetName() Dim ws As Worksheet, Arr As Variant Dim LR As Long, i As Long Dim j As Long, x As Long Application.ScreenUpdating = False Set ws = Sheets("ورقة2") LR = ws.Range("A" & Rows.Count).End(3).Row Arr = ws.Range("A13:AA" & LR).Value x = 3 Do While x <= 27 For i = 1 To UBound(Arr, 1) For j = 1 To UBound(Arr, 2) If ws.Cells(1, x) = Arr(i, j) Then ws.Cells(2, x) = Arr(i, 1) End If Next Next x = x + 1 Loop Application.ScreenUpdating = True End Sub

الف مبروك تستاهلوا كل خير وفقكم الله واعانكم

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

تفضل لك كل ما طلبت حسابات العملاء 1.xlsx

وعليكم السلام-اهلا بك فى المنتدى -تفضل لك ما طلبت المصنف1 1.xlsx

وعليكم السلام عليك بتتبع هذه الفيديوهات فستدلك على افضل الطرق تحويل الاسماء من العربي للانجليزى تلقائيا اكسل ترجمة الاسماء_تحويل كم كبير من الأسماء المكتوبة باللغة العربية إلى الانجليزية بضغطة زر

تفضل Convert exe to xls

وعليكم السلام -يمكن جعل الأكواد هكذا Private Sub Option2_Click() If Option2.Visible = True Then frm1.Hide Sheets("Ý.1.Ë.Ú").Visible = True Sheets("Ý.1.Ã").Visible = False Sheets("Ý.1.Ë.Ã").Visible = False End If End Sub Private Sub Option1_Click() If Option1.Visible = True Then frm1.Hide Sheets("Ý.1.Ã").Visible = True Sheets("Ý.1.Ë.Ú").Visible = False Sheets("Ý.1.Ë.Ã").Visible = False End If End Sub Private Sub Option3_Click() If Option3.Visible = True Then frm1.Hide Sheets("Ý.1.Ë.Ã").Visible = True Sheets("Ý.1.Ã").Visible = False Sheets("Ý.1.Ë.Ú").Visible = False End If End Sub التنقل بين الصفحات.xlsb

اتفضل التعديل ويمكن الاختيار اكثر من سجل tester.rar

تحويل صيغه ملف الاكسيس برمجيا من accdb الي accde https://acc-arab.com/2020/03/accdb-accde.html

الف الف مبروووك للأساتذة الاعزاء الترقية الله يحفظكم ويبارك بيكم

شكرا لزوقك ومرورك العطر استاذنا الفاضل ♥

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

وجدت الحل بعد عدد من المحاولات ... في ان تضع لمدين لون (ازرق ) والدائن لون (اصفر) ثم نضعها في عمود واحد .. وناخذ نسخة من الثلاثة أعمدة ABC ونضعها بجانب الدائن ثم نفزر من الاصغر للأكير ثم تنسيق شرطي للمكرر باللون الاخضر .. وهنا تخرج علينا القيم المكررة وانتهى الأمر بأن لاتتعلم القيم الغير مكررة .. وعند المرجعة النهائية يكون لنا الاختيار في الحذف ام لا .....؟ وهذا اقرب واسهل حل !!!!

الف الف مليون مبروك لكما ومسيرة موفقة باذن الله وننتفع بخبراتكما ومشوراتكما 💖

وعليكم السلام ورحمه الله وبركاته نورت استاتذي الغالي بعد اذن استاتذتي الكرام بدلي بدلوي Call Me.TB.Form.zr_7_Click هذا اذا كان الكود بزر واسمه مثلاzr_7 بالفرعي وتريد تشغله من النموذج الرئيسي واذا لديك مثلا ارفقه راح نبحث ونلف المنتدي حتا نجد طلبك يالغالي ابشر بالفزعه ياصاحب الجميل تحياتي اليك وللاستاتذه الكرام ابو زاهر

السلام عليكم ورحمة الله وبركاته اظهار اسم المنتج والتاريخ .. في جدول الكمية .. باللون الاصفر .. ان شاء الله ان يكون هو المطلوب .. Production Date.xlsx

السلام عليكم ورحمة الله وبركاته مبارك لكما أخويّ الكريمين خيماوى كووول و عبدالله الصارى انضمامكما لعائلة الخبراء الكريمة متمنياً لكما النجاح الباهر والمستقبل الزاهر 👍🌺🙂

شكرا جزيلا .. على القائمين على هذا الصرح .. الكبير .. تمنياتي للجميع بالتوفيق دائما .. بارك الله فيكم ..

الف مبروك لاساتذتنا الكرام ودائما فى تقدم ان شاء الله

الف الف مبروك لهما ومسيرة موفقة باذن الله

تفضل يا سيدي ، الكود السابق بواجهه : . جعفر Convert_mdb _n_accdb_to_mde_n_accde.mdb.zip

السلام عليكم ورحمة الله وبركاته أخي العزيز أبو عاصم المصري، تم تنفيذ هذا الاقتراح وفق الإستراتيجية التي اتفقنا عليها، يرجى مشاهدة الفيديو التالي: [الجديد في التحديث 4.50]: 1- في خاصية بحث في ملفات متعددة، أصبحت العملية تتم على ملفات وورد القديمة التي بامتداد doc أيضاً، وبذلك فإن البحث سيتم ضمن كل إصدارات وورد القديمة والحديثة، سواء كان امتدادها docx أو doc. 2- في الفهرسة اليدوية، تم إضافة خاصية فهرسة الأعلام والأماكن والمصطلحات وما شابهها بطريقة شبه آلية.

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

سبحان من له الدوام ربنا يرحمه و يغفرله ويصبر اهله وانا لله وانا اليه راجعون

تفضل طبقاً لطلبك الجديد يمكن جعل المعادلة هكذا ...ز كان اولى لك ان تطلب كل طلباتك من البداية =IF(OR(RIGHT(M5,7)="المحترم",M5=""),"الأستاذ المحاضر","الأستاذة المحاضرة") نموذج توضيحي1.xlsm

تم التعديل الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, F_rg As Range Application.EnableEvents = False Set Rg = Union(Range("C3:C20"), Range("E3:E20"), Range("G3:G20")) If Not Intersect(Target, Rg) Is Nothing _ And Target.Cells.Count = 1 Then Set F_rg = Range("B42:B57").Find(Target, lookat:=1) If Not F_rg Is Nothing Then Target = Cells(F_rg.Row, "C") End If End If Application.EnableEvents = True End Sub Talal_1.xlsm

جرب المرفق حركات.xlsm

جرب هذا الكود اذا لم تظهر القائمة المنسدلة (في الشيت Result) غادر الصفجة ثم عد اليها مجدداً Ihab.xlsm

البقاء والدوام لله اللهم اغفر له واجعل مثواه الجنة واجعل قبره روضة من رياض الجنان واجعله من منزلة المرسلين والشهداء اللهم الهم اهله وذويه الصبر والسلوان

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

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

بارك الله فيك وزادك الله من فضله ورحم الله والديك

وعليكم السلام -اهلا بك اخى الكريم فى المنتدى لماذا لا تستخدم خاصية البحث فى المنتدى -يمكنك هذا بعد اضافة أداة Solver وطالما انك لم تقم برفع ملف فيمكنك متابعة ومشاهدة هذه المشاركة بها رد لما تحتاجه https://www.officena.net/ib/topic/85879-معادلة-جمع-بعض-الارقم-التى-تحقق-ناتج-معين/?tab=comments#comment-544482 بارك الله فيك

بارك الله فيك استاذ سليم وبعد اذن حضرتك ولإثراء الموضوع -يمكن أيضاً استخدام هذه المعادلة بداية من الخلية N3 سحباً يساراً وأسفل =COUNTIFS($H$3:$H$500,"<="&$M3,$H$3:$H$500,">="&$L3,$I$3:$I$500,N$2) Countifs,معادلة احصاء عدد الذكور والإناث بين تاريخين.xlsx

تفضل لك ما طلبت ... وذلك لوجود مسافات زائدة بالمعادلة , تم حذفها ,ورجاءاً لابد ان تكون نهايات فورمات الملف XLSX وليس XLS محمد4.xlsx

جربي هذا الماكرو لعله ينفع معك Sub PrintPreview() Dim ws As Worksheet Dim lastRow As Long Set ws = ThisWorkbook.Sheets("sheet1") lastRow = Cells(Rows.Count, 1).End(xlUp).Row ws.PageSetup.PrintArea = ws.Range("A1:g" & lastRow).Address ActiveSheet.PrintPreview End Sub

اليك هذا الكود لكن لازم انت تكتب الاسم اي بأي اسم تريد تصديره DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)" هذا والله اعلم