عبدالله بشير عبدالله

وعليكم السلام ورحمة الله وبركاته ليست هناك اي مشكلة ComboBox المزايا: يعرض قائمة جاهزة من القيم (مثل التواريخ الفريدة من العمود B). يمنع الأخطاء الإملائية أو إدخال صيغة خاطئة للتاريخ. المستخدم يختار فقط من القائمة → أسرع وأدق. عملي جدًا إذا كانت البيانات محدودة أو متكررة (تواريخ، أسماء، أصناف) TextBox عرضة للأخطاء (مثلاً كتابة التاريخ بصيغة خاطئة). يحتاج تحقق إضافي بالكود للتأكد أن القيمة صحيحة الملف المرفق به الخياران التكستبكس والكمبوبكس لك الخيار ما يتاسب عملك تحياتي ليست بوكس2.xlsm

حسب التجربة المشكلة بالمنتدى شكرا لمتابعتك واهتمامك الافاضل حسونة حسين Foksh

السلام عليكم ورحمة الله وبركاته تم استبدال TextBox1 بـ COMOBOX1 يتم فيه تجميع التواريخ من العمود B التواريخ في العمود B بالنظام الفرنسى جعلتها بالنظام dd/mm/yyyy عند التعديل استخدم زر خفظ التعديل اليك الملف ليست بوكس1.xlsm

وعليكم السلام ورحمة الله وبركاته الى جانب الحلول التي ارفقها استاذنا الفاضل hegazee اليك حل اخر بالكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim rngF As Range, rngG As Range Dim rngB As Range, rngC As Range Dim pos As Variant Set rngF = Me.Range("F2") ' Set rngG = Me.Range("G2") Set rngB = Me.Range("B2:B1000") Set rngC = Me.Range("C2:C1000") If Not Intersect(Target, rngF) Is Nothing Then Application.EnableEvents = False pos = Application.Match(rngF.Value, rngB, 0) If Not IsError(pos) Then rngG.Value = Application.Index(rngC, pos) Else rngG.Value = "" End If Application.EnableEvents = True End If rngG.Select End Sub data.xlsb

عذرا لم انتبه ان قي طلبك طباعة متعددة الطريقة الاولى زر print all اكتب كود الشركة بداية الطباعة في الخلية P2 ونهاية الطباعة في Q2 الطريقة السابقة لطباعة الارقام المتسلسلة وراء بعضها الطريقة الثانية عن طريق فورم زر طباعة خسب الاختيار وهي تغنيك عن كل الازرار وعن الطريقة الاولى حيث يمكن الطباعة لموظف واخد او الطباعة للكل او الطباعة المتعددة خسب الاختيار سواء الارقام متصلة ام منفصلة اختر ما تراه متاسب لطلبك مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025 (1).xlsm

وعليكم السلام ورحمة الله وبركاتة كود طباعة الكل Sub PrintAll() Dim ws As Worksheet Dim dropdownCell As Range Dim validationFormula As String Dim optionsRange As Range Dim cell As Range Dim originalValue As Variant Dim counter As Integer Set ws = ActiveSheet Set dropdownCell = ws.Range("D4") originalValue = dropdownCell.Value If dropdownCell.Validation.Type = 3 Then validationFormula = dropdownCell.Validation.Formula1 If Left(validationFormula, 1) = "=" Then validationFormula = Mid(validationFormula, 2) End If Set optionsRange = ws.Range(validationFormula) counter = 0 For Each cell In optionsRange If cell.Value <> "" Then dropdownCell.Value = cell.Value Application.Calculate DoEvents ws.PageSetup.PrintArea = "C3:J54" ws.PrintOut counter = counter + 1 Application.StatusBar = "تم طباعة " & counter & " من " & optionsRange.Cells.Count End If Next cell dropdownCell.Value = originalValue Application.StatusBar = "" MsgBox "تمت طباعة " & counter & " عنصر بنجاح!", vbInformation Else End If End Sub مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025.xlsm

اخي العزيز نعم يمكن ذلك ولكن بالنسبة لى بواسطة كود اما بالمعادلات حاولت ولم اتمكن ربما الزملاء الافاضل بالمنتدى لديهم ما يقدمونه لحل الامر بالمعادلات ECOODD (1) (1) (1).xlsb لك وافر التقدير والاحترام

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

السلام عليكم نعم الان اتضح المطلوب بارك الله فيك الحل تم حذف النطاق من ادارة الاسماء فصل شيفت'!$A$8:$R$283 من ادارة الاسماء وجعلنا النطاق مباشرة في الكود فاصبح الكود بهذا Sub filter_D() Dim Q1 As String Dim rng As Range Set rng = Sheets("فصل شيفت").Range("$A$8:$R$283") Q1 = Sheets("فصل شيفت").Range("A7").Value If Q1 = "" Then rng.AutoFilter Else Q1 = "*" & Q1 & "*" rng.AutoFilter Field:=1, Criteria1:=Q1, Operator:=xlOr, Criteria2:="=" End If End Sub نموذج حركة جرديوميه 15-11.xlsm

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

اخي الفاضل 1- في ملفك الاول ظهرت كلمة TABLE 5 في الشيت وطلبت ازالتها وكان ملفك بدون اكواد وبه ورقة واحدة فاجبتك بحذف الارتباط 2- في ملفك الاخير المتكامل اتضحت الصورة وعرفنا ان الجدول 5 مرتبط بكود عليه لا تقم بحذف الارتباط واتركه كما هو 3- ملفك الاخير المتكامل لا تظهر كلمة TABLE5 في الشيت مع وجود الارتباط ولهذا سألتك ما المشكلة اذا كانت الكلمة اختفت من الشيت ام ان هناك شئ غاب عنى ولم استوعبة فارجو ايضاحه

مبدئيا ساعطيك ملف نفس طلبك الاول بدل VBA معادلات صفيف اليك الملف بالمعادلات وهي معادلات صفيف تحتاج الى Ctrl + Shift + Enter اذا عدلتها او تقلتها ECOO (1).xlsb

نعم وضحت الصورة بعد ارسال ملفك الاخير ولم تظهر كلمة table 5 عكس ملفك الاول بمعنى الملف الذي ارفقته الاخير لا يوجد به كلمة table 5 في شيت فصل شيفت وللمرة الثانية اسال ما المشكلة

اطلعت على الملف لا وجود لكلمة TABLE5 في فصل شيفت حسب طلبك الاول والكود لا يظهر اي خطا فما المشكلة اذا

نعم يمكن ذلك السؤال اذا كان الغياب في اكثر من تاريح بمعنى غاب الموظف يوم 14 ويوم 22 اي تاريخ سيتم احضارة