Ali Mohamed Ali

هذا هو كود تحديد السن المطلوب Sub DatedIf_User() Dim ws As Worksheet, Sh As Worksheet, Mh As Worksheet Dim ShName As String, Rng As Range, c As Range Dim LR As Long, VlDate As Variant Application.ScreenUpdating = False Set ws = Sheets(ActiveSheet.Name) VlDate = ws.Range("K4").Value '---------------------------------- LR = ws.Cells(Rows.Count, "C").End(xlUp).Row ws.Range("J6:L" & LR + 1).ClearContents Set Rng = ws.Range("I6:I" & LR) '---------------------------------- If IsEmpty(VlDate) = True Then MsgBox "ãä ÝÖáß ÇÏÎá ÊÇÑíÎ ÍÓÇÈ ÇáÓä" Exit Sub Else On Error Resume Next For Each c In Rng If c.Value <> "" Then YY = Year(VlDate) y = Year(c.Value) mm = Month(VlDate) m = Month(c.Value) dd = Day(VlDate) d = Day(c.Value) If d > dd And m > mm Then c.Offset(0, 1) = dd + 30 - d c.Offset(0, 2) = mm - m + 11 c.Offset(0, 3) = YY - y - 1 ElseIf d > dd And m < mm Then c.Offset(0, 1) = dd - d + 30 c.Offset(0, 2) = mm - m - 1 c.Offset(0, 3) = YY - y Else c.Offset(0, 1) = dd - d c.Offset(0, 2) = mm - m c.Offset(0, 3) = YY - y End If End If Next End If Application.ScreenUpdating = True End Sub

اهلا بك اخ كريم فى المنتدى دائما وابدا عند رفع اى مشاركة بعد ذلك لابد من التدعيم بملف لشرح المطلوب والتوضيح عليه تفضل تنسيق شرطى.xlsx

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

احسنت اخى الكريم بارك الله فيك

وعليكم السلام اخى الكريم تفضل جلب بيانات الفواتير).xlsm

وعليكم السلام اهلا بك اخى الكريم فى المنتدى -كان عليك استخدام خاصية البحث فى المنتدى فهناك مواضيع مشابهة لطلبك تفضل : https://www.officena.net/ib/topic/47818-برنامج-تسيير-شركات-النقل-الصغيرة/ بارك الله فيك

تفضل لك ما طلبت ويتم الترحيل الى صفحة Sheet2 Test v1111.xlsm

طبعا بعد اذن استاذى الكريم سليم له منا كل المحبة والإحترام عليك بوضع هذه المعادلة لكى تعمل الفورمات =SUMPRODUCT(--($B$2:$B2&$C$2:$C2=$B2&$C2))>1

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

أحسنت استاذ ابراهيم بارك الله فيك

تفضل مصروفات.xlsx

وعليكم السلام يمكنك تحميله من هنا https://www.microsoft.com/en-us/download/details.aspx?id=10019

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

يمكنك مشاهدة فيديوهات كثيرة على اليوتيوب للتعلم كما انه يمكنك الإستعانة بهذه الكتب فى البداية : 497.pdf 1657.pdf

ايوه انا فاهم الكلام ده بس لو هناك ارقام ثابتة يكون أفضل تفضل هذا evaluation.xlsx

تفضل بريك (1).xlsx

اين المعطيات المطلوبة الأرقام المخرجة تكون كهذا الشكل ام مختلف ؟ لو ممكن الرد

اهلا بك اخ كريم فى المنتدى سهل ان شاء الله ولكن عليك برفع ملف وتوضيح فيه كل المعطيات بالتفصيل بارك الله فيك

بارك الله فيك

تفضل لك ما طلبت بريك.xlsx

وعليكم السلام عليك بلصق هذه الأكواد فى حدث This Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "مع السلامة " & Application.UserName & _ vbNewLine & "فى حفظ الله شرفتنا", _ vbInformation, "منتدى أوفيسنا" ThisWorkbook.Save Application.Quit End Sub Private Sub Workbook_Open() MsgBox "أهلا وسهلا يا " & Application.UserName & _ vbNewLine & "أتمنى أن تكون فى أفضل حال", _ vbInformation, "منتدى أوفيسنا" End Sub

تفضل قسم الأدارة-01008432266 (1).xlsx

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

بالتأكيد ان هذا ليس بالسهل او الهين كما انه يقوم ببطء الملف وثقله فلا انصحك بهذا جزاك الله كل خير

تفضل قسم الأدارة-01008432266.xlsx