برنامج مرتبات ضروري

[ahmedelnahas11]

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

مهم مرتبات.rar

[وجيه شرف الدين]

اتفضل الملف طريقة سهلة لادخال البيانات واذا كان هو المطلوب نكل لك الباقى

مهم مرتبات.xlsm

[ahmedelnahas11]

مشكور لك اخي العزيز ولكن اريد البحث ايضا بالاسم وف مشكله لما بدخل الكود مش بيجلب لي الاسم 

[ahmedelnahas11]

مشكور لك اخي العزيز ولكن اريد البحث ايضا بلاسم وف مشكله لما بدخل الكود مش بيجلب لي الاسم وطريقه لاضافه اسم جديد 

تم تعديل مايو 1, 2019 بواسطه ahmedelnahas11
اضافه طلب

[سليم حاصبيا]

بعد اذن اخي مصطفى

هذا الملف

الكود

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

[ahmedelnahas11]

مشكور جدا اخي العزيز بارك الله فيك ولكن اريد ايضا البحث بالاسم وسهوله ادخال السلف ف الشيت الثاني وطباعه الرواتب

وهل يمكن عمل خانه يتم من خلالها اضافه اسم جديد

[ahmedelnahas11]

ويرجي اضافه الترتيب الالي ايضا

[سليم حاصبيا]

كود لاضافة اسم جديد (دون تكرار)

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

[وجيه شرف الدين]

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

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

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

[ahmedelnahas11]

مشكور ليكم جدا ع هذا المجهود الرائع ولكن ينقص فقط خانه لادخال البيانات بالاسم وليس كود الموظف فقط