Ali Mohamed Ali

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

تفضل 4.xlsm

يمكنك وضع هذا الكود فى موديول جديد وتحديد به مكان واسم الملف المراد فتحه واستدعائه Sub Open_ExistingWorkbook() Workbooks.Open "C:\WorkbookName.xls" End Sub

تفضل انظر الى الصورة

تفضل الكود يعمل تمام ولكن الملف كبير جدا فتم رفعه على موقع خارجى 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