ترحيل بشروط

[فوزى فوزى]

السلام عليكم ورحمة الله وبركاته وكالعادة عندما تصعب علينا الامور نلجا الى خبراءنا فى هذا الموقع المبارك فى شيت البيانات اسجل الاجازات من خلال الفورم بمعنى يقوم بترحيل اسم الموظف وعدد ايام الاجازه حسب نوعها فى شيت البيانات مثال  اسم الموظف عادل نوع الاجازة مرضى يرحل اسم الموظف ويبحث عن صف نوع الاجازة ويضع عدد ايام الاجازه //// ثم يرحل الاسم ونوع الاجازة وتاريخ بداية الاجازة ونهاية الاجازة الى شيت تجميع الغياب المطلوب ترحيل الاجازة الى شيت تجميع الغياب ويبحث عن الاسم ويبحث عن نوع الاجازة فى شيت تجميع الغياب ويضع تاريخ البداية والنهاية فى نوع الاجازة وجعلكم الله عونا لنا وللامثتلنا موضحين مثال للحل وتكملة الحل فى شيت تجميع الغياب

ترحيل بعدة شروط.xlsm

[محي الدين ابو البشر]

عليكم السلام

عسى

Private Sub TARHIL_Click()
Dim lr&, r&, col&
With Sheets("البيانات")
 lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
 .Cells(lr, 2) = ComboBox1.Value
 .Cells(lr, .Range("A6:AG6").Cells.Find(Split(TextBox4.Value, "/")(0), , -4163, 1).Column).Resize(, TextBox6.Value) = ComboBox3.Value
End With
With Sheets("تجميع الغياب")
r = .Cells.Find(ComboBox1.Value, , , 1).Row
col = .Cells.Find(ComboBox3.Value).Column
With .Cells(r, col)
.Value = TextBox4.Value
.Offset(, 1) = TextBox5.Value
.Offset(, 2) = TextBox6.Value
End With
End With
End Sub

 

Book.xlsm

تم تعديل مارس 4, 2023 بواسطه محي الدين ابو البشر

[فوزى فوزى]

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

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

اضف هذا السطر

Dim X: X = Application.Match(ComboBox1.Value, .Range("b1:b" & lr), 0): If Not IsError(X) Then lr = X

قبل هذا السطر

.Cells(lr, 2) = ComboBox1.Value

ليصبح هكذا

lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
Dim X: X = Application.Match(ComboBox1.Value, .Range("b1:b" & lr), 0): If Not IsError(X) Then lr = X
.Cells(lr, 2) = ComboBox1.Value

 

[فوزى فوزى]

شكرا استاذ حسونة على المساعدة الحمد لله

ترحيل الأسماء ضبطت معى بعد إضافة جزئية الكود اللى حضرتك اضفتها تبقى هنا  مشكلة عند تسجيل التواريخ من 7 /2023/2 الى تاريخ 15/2/2023 يرحل الى يوم 14 وليس يوم 15 كما هو موضح بالصورة

[حسونة حسين]

فقط أضف رقم ١ للكود الموجود في تيكست بوكس ٦

لان المعادله المكتوبه تطرح الايام بين التاريخين ولكن الموظف غائب 

9 ايام وليس ٨

7,8,9,10,11,12,13,14,15

ليصبح الكود هكذا

TextBox6 = Val(TextBox5) - Val(TextBox4) + 1

 

[فوزى فوزى]

وراء كل عمل ناجح من بعد توفيق الله تعالى جنود لا ينتظرون المقابل لاسعاد الاخرين شكرا استاذ محى الدين شكرا استاذ حسونة كله اصبح تمام جعل الله صالح اعمالكم فى موازين حسناتكم وجعلها الله شاهدة لكم لا عليكم

[محي الدين ابو البشر]

مع ذلك ممكن أيضاَ

Private Sub TARHIL_Click()
Dim lr&, r&, col&
With Sheets("البيانات")
 lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
 On Error Resume Next
  r = Cells.Find(ComboBox1.Value, , , 1).Row
  On Error GoTo 0
  lr = IIf(r = 0, lr, r)
 .Cells(lr, 2) = ComboBox1.Value
 .Cells(lr, .Range("A6:AG6").Cells.Find(Split(TextBox4.Value, "/")(0), , -4163, 1).Column).Resize(, TextBox6.Value) = ComboBox3.Value
End With
With Sheets("تجميع الغياب")
r = .Cells.Find(ComboBox1.Value, , , 1).Row
col = .Cells.Find(ComboBox3.Value).Column
With .Cells(r, col)
.Value = TextBox4.Value
.Offset(, 1) = TextBox5.Value
.Offset(, 2) = TextBox6.Value
End With
End With
End Sub

 

[فوزى فوزى]

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