Ali Mohamed Ali

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

وعليكم السلام تفضل اخى الكريم دمج-1.xlsm

تفضل استاذى الكريم alma3(Recovered).xlsm

يمكنك تجربة هذا الكود Sub saveas_pdf() Dim fw As Variant fw = "c:\ الموظف رقم \الوظائف_" & Range("f7").Value & ".pdf" Range("a1:h13").ExportAsFixedFormat Type:=xlTypePDF, FileName:=fw, openafterpublish:=True End Sub

تفضل FILTER-2.xlsm

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

تفضل اخى الكريم حساب كميات حسب الموقع-1.xlsx

يمكنك تجربة هذا FILTER.xlsm

تفضل اخى الكريم الإستغناء عن المعادلات بالأكواد.xlsm

هو بالفعل اخى الكريم ورقة الموظفين هى المصدر الذى يؤخذ منه البيانات وتقبل منى الملف بعد التعديل المطلوب ليوم الجمعة ‏‏الحضور والانصراف معدلة-2.xlsx

صحيح اخى الكريم ولكنها لا تظهر فى الطباعة ولا تحفظ Option Explicit Option Base 1 Sub DrawRedCircles() Dim myArray As Variant Dim Rng As Range Dim Cel As Range Dim Cell As Range Dim L As Long Dim T As Long Dim W As Long Dim H As Long Dim X As Long Dim rRow As Long Dim startRow As Long 'مصفوفة بأسماء الأعمدة المراد وضع دوائر حمراء بها myArray = Array("Q", "U", "Z", "AD", "AI", "AM", "AS", "AT", "AU", "AY", "BE", "BF", "BG", "BK", "BN", "BQ", "BR", "BW", "CA", "CG", "CH", "CI", "CM", "CR", "CV") 'رقم الصف الذى يحتوى على الدرجات النهائية الصغرى rRow = 9 'صف البداية أى أول صف به درجات الطلاب startRow = 10 Application.ScreenUpdating = False Call RemoveCircles With Sheets("Sheet1") For X = LBound(myArray) To UBound(myArray) Set Cel = .Range(myArray(X) & rRow) Set Rng = .Range(myArray(X) & startRow, .Range(myArray(X) & startRow).End(xlDown)) For Each Cell In Rng If Cell.Value < Cel Or Cell.Value = "Û" Then L = Cell.Left: T = Cell.Top W = Cell.Width: H = Cell.Height With .Shapes.AddShape(msoShapeOval, L, T, W, H) .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Transparency = 0 .Line.Weight = 1.5 End With End If Next Cell Next X End With Application.ScreenUpdating = True End Sub

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

لا يمكن اضافة الدوائر الحمراء عن طريق Data Validation بارك الله فيك

تفضل اخى الكريم المصنف.xlsx

وعليكم السلام لو ممكن رفع الملف مرة اخرى فهناك مشكلة فى تحميله بارك الله فيك

بارك الله فيك استاذنا الكبير زيزو وجعله فى ميزان حسناتك انه حقا كود رائع-جزاك الله كل خير

تفضل اخى الكريم هذا حل سريع بالمعادلات الى ان يتم عمل كود لك من الإخوة والأساتذة تكرار المسلسل كل 10 صفوف-1.xlsm

وعليكم السلام اخى الكريم هل ينفع معك هذا الملف-ترقيم وتسلسل تلقائى لثلاثة صفحات Auto_numbering-ترقيم تسلسلي متواصل في كل صفحة.xlsx

تفضل اخى الكريم جرب هذا ترحيل بيانات البصمة الى جدول الرواتب.rar

تفضل استاذى الكريم فى حالة ان الصف من الأول الى الثالث فيكون عمود النسبة فى الثلاثة مواد العلوم والدراسات والتربية الدينية يساوى فراغ وتترك خالية تحيل_النتيجة_تيرم_ثان_ 1).rar

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

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

تفضل استاذى احتساب نهايات الخدمة-3.xlsx

وعليكم السلام اخى الكريم وكل عام وانتم بخير ورمضان مبارك تفضل لك ما طلبت تحيل_النتيجة_تيرم_ثان_ 2).rar

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