Ali Mohamed Ali

وعليكم السلام-وبما انك لم تقم برفع ملف فخذ هذا به طلبك وسيفيدك How to Copy or Import VBA Code to Another Workbook

بارك الله فيك وزادك الله من فضله

أحسنت استاذنا الكبير عمل رائع بارك الله فيك وزادك الله من فضله

تفضل المشكلة بالمعادلة كانت بعلامة التنصيص قبل كلمة طباعة , فتم وضعها من قبلك 3 علامات ولابد ان تكون 2 فقط كهذه "طباعة" entag tam.xlsm

أخى الكريم اهلا بك بالمنتدى-لما لا تقوم بإستخدام خاصية البحث فى المنتدى فقد تكرر هذا الطلب كثيرا .. تفضل برنامج خاص للعاملين بالتحصيل بشركة الكهرباء المساعده من كشاف الكهرباء

أحسنت استاذ عبد اللطيف بارك الله فيك

بارك الله فيك استاذ مجدى وجزاك الله كل خير

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

بارك الله فيك استاذ احمد وندعو الله جميعا له بالشفاء العاجل وان يرده الله لنا سالماً غانماً وبكل صحة وسعادة وان نسأل الله ان يشفى كل مرضانا ويرحم كل موتانا

وعليكم السلام-لك ما طلبت Data Entry.xlsm

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

جزاك الله كل خير استاذ منير

بارك الله فيك استاذ حسن كود ممتاز-وبعد اذنك أخى الكريم ولإثراء الموضوع , هذا حل أخر بالمعادلات =COUNTIFS($B$4:$B$150,$E5,$C$4:$C$150,F$4) معادلة حساب عدد التوافق في الشرط من خليتين.xls

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

تفضل يمكنك ذلك بإستخدام هذه المعادلة بالتنسيق الشرطى =AND(COUNTIF($A$2:$A$310,H2)=0,H2<>"") تنسيق شرطى للمختلف.xlsx

داخل المرفقات شوفها بعد التحميل Password: 123456

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

أحسنت استاذ عبد اللطيف .. عمل ممتاز بارك الله فيك

تفضل UserformKeyboard.xls

تفضل هذه المعادلة Option Explicit Option Compare Text Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now _ , Optional Y_M_D As String = "Y_M_D", Optional MyCalendar As Boolean) Dim Mydate As Date, KH_Calendar As Integer Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, D As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then Mydate = Mydate_Now Else Mydate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(Mydate) Then KH_Calendar = Calendar If MyCalendar = True Then Calendar = 1 Else Calendar = 0 D_1 = Day(Mydate): D_2 = Day(Mydate_Birth) M_1 = Month(Mydate): M_2 = Month(Mydate_Birth) Y_1 = Year(Mydate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then D = D_1 - D_2: M = 0 Else D = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D <> "Y" Or Y_M_D <> "M" Or Y_M_D <> "D" Then kh_count_y_m_d = Y & "y-" & M & "m-" & D & "d" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = D Calendar = KH_Calendar End If End Function kh_count.xlsm

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله

أحسنت استاذ منير جزاك الله كل خير

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