Ali Mohamed Ali

تفضل الكود يعمل تمام ولكن الملف كبير جدا فتم رفعه على موقع خارجى http://www.mediafire.com/file/g683zj59dqpv13x/الشريطيه+2018م.xlsm

تمام كود استاذنا الكبير سليم يفى بالغرض جربه بارك الله فيك

كلمة السر 1

وعليكم السلام تفضل اخى الكريم دمج رقم مع تاريخ.xlsx

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

عليك بوضع هذا السطر داخل الكود Application.ScreenUpdating = False

اهلا بك فى المنتدى تفضل الفرق بين تاريخين هجرى.xlsm

ممتاز استاذ ابراهيم بارك الله فيك

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

تفضل لك ما طلبت ولكن كان عليك رفع الملف من البداية لتجنب اهدار الوقت بارك الله فيك تلوين خلية.xlsx

تفضل لك ما طلبت الاسعار 2018.xlsm

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

اهلا بك اخ كريم فى المنتدى لك ما طلبت عملاء.xlsm

اهلا بك اخى الكريم فى المنتدى تفضل 1.xlsx

هذا هو كود تحديد السن المطلوب 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