ahmedelnahas11 قام بنشر مايو 1, 2019 مشاركة قام بنشر مايو 1, 2019 اريد تحويل هذا الملف الي برنامج يسهل ادخال عدد ايام العمل والسلف واسم العامل وسهوله البحث عن العامل والتعديل ف ايامه ةسلفه وسهوله طباعه الرواتب وجزاكم الله كل خير مهم مرتبات.rar رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 1, 2019 مشاركة قام بنشر مايو 1, 2019 اتفضل الملف طريقة سهلة لادخال البيانات واذا كان هو المطلوب نكل لك الباقى مهم مرتبات.xlsm 1 رابط هذا التعليق شارك More sharing options...
ahmedelnahas11 قام بنشر مايو 1, 2019 الكاتب مشاركة قام بنشر مايو 1, 2019 مشكور لك اخي العزيز ولكن اريد البحث ايضا بالاسم وف مشكله لما بدخل الكود مش بيجلب لي الاسم رابط هذا التعليق شارك More sharing options...
ahmedelnahas11 قام بنشر مايو 1, 2019 الكاتب مشاركة قام بنشر مايو 1, 2019 (معدل) مشكور لك اخي العزيز ولكن اريد البحث ايضا بلاسم وف مشكله لما بدخل الكود مش بيجلب لي الاسم وطريقه لاضافه اسم جديد تم تعديل مايو 1, 2019 بواسطه ahmedelnahas11 اضافه طلب رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 1, 2019 مشاركة قام بنشر مايو 1, 2019 بعد اذن اخي مصطفى هذا الملف الكود Option Explicit Sub Give_data() With Sheets("Salim") Dim my_cel As Range Dim Date_Rg As Range Dim laste_row%, ro%, col Dim sRg As Range laste_row = .Cells(Rows.Count, 1).End(3).Row col = Application.Count(Range("c9:ag9")) Set Date_Rg = .Cells(9, 3).Resize(, col) For Each my_cel In Date_Rg If my_cel.Offset(-1) <> vbNullString Then Set sRg = .Range("a9:a" & laste_row).Find([a6], lookat:=xlWhole) If Not sRg Is Nothing Then ro = sRg.Row .Cells(ro, my_cel.Column) = my_cel.Offset(-1) Else MsgBox "This Record Is Not Found": Exit Sub End If End If Next End With End Sub الملف مرفق مع الشرح الوافي Mourattabat.xlsm 3 رابط هذا التعليق شارك More sharing options...
ahmedelnahas11 قام بنشر مايو 1, 2019 الكاتب مشاركة قام بنشر مايو 1, 2019 مشكور جدا اخي العزيز بارك الله فيك ولكن اريد ايضا البحث بالاسم وسهوله ادخال السلف ف الشيت الثاني وطباعه الرواتب وهل يمكن عمل خانه يتم من خلالها اضافه اسم جديد رابط هذا التعليق شارك More sharing options...
ahmedelnahas11 قام بنشر مايو 1, 2019 الكاتب مشاركة قام بنشر مايو 1, 2019 ويرجي اضافه الترتيب الالي ايضا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 1, 2019 مشاركة قام بنشر مايو 1, 2019 كود لاضافة اسم جديد (دون تكرار) Option Explicit Sub ad_to_list() With Sheets("Salim") Dim st$, Lr% Lr = .Cells(Rows.Count, 1).End(3).Row st = InputBox("Write the new name", "salim tell you", "New_Name") If Application.CountIf(.Range("b10:b" & Lr), st) <> 0 Then MsgBox "this name is Alraedy exist": Exit Sub Else .Range("b" & Lr + 1) = st: .Range("a" & Lr + 1) = .Range("a" & Lr) + 1 End If End With End Sub الملف مرفق Mourattabat_New_Name.xlsm 1 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 1, 2019 مشاركة قام بنشر مايو 1, 2019 53 دقائق مضت, سليم حاصبيا said: كود لاضافة اسم جديد (دون تكرار) Option Explicit Sub ad_to_list() With Sheets("Salim") Dim st$, Lr% Lr = .Cells(Rows.Count, 1).End(3).Row st = InputBox("Write the new name", "salim tell you", "New_Name") If Application.CountIf(.Range("b10:b" & Lr), st) <> 0 Then MsgBox "this name is Alraedy exist": Exit Sub Else .Range("b" & Lr + 1) = st: .Range("a" & Lr + 1) = .Range("a" & Lr) + 1 End If End With End Sub الملف مرفق Mourattabat_New_Name.xlsm 104.04 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads استاذى الفاضل واخى الحبيب تقف الكلمات عاجزة ان تعبر عن هذا العمل وهذا الجمال الا ان اقول سبحان الله سامحنى استاذ سليم لم استطع الخروج عن الحلقات التكرارية ولكن والحمد لله اجتهدت بالله عليك ماريك فى هذه الفكرة 2 رابط هذا التعليق شارك More sharing options...
ahmedelnahas11 قام بنشر مايو 1, 2019 الكاتب مشاركة قام بنشر مايو 1, 2019 مشكور ليكم جدا ع هذا المجهود الرائع ولكن ينقص فقط خانه لادخال البيانات بالاسم وليس كود الموظف فقط رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان