الترحيل على شرط الاسم

[فوزى فوزى]

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

ترحيل على شرط الاسم.xlsm

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

جرب هذا الكود

Private Sub btnSubmit_Click()
If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then Exit Sub

Dim S_rg As Range, Ro%, i%
Dim Sw As Worksheet
Dim BoL As Boolean

Set Sw = Sheets("Sheet1")
Set S_rg = Sw.Range("B2:B7") _
   .Find(Me.ComboBox1.Text, lookat:=1)
   If S_rg Is Nothing Then Exit Sub
      Ro = S_rg.Row
     For i = 3 To 10
          If Sw.Cells(Ro, i) = "" Then
           BoL = True
           Exit For
          End If
     Next
  If BoL Then Sw.Cells(Ro, i) = _
   Me.ComboBox2.Text
End Sub

الملف مرفق

Fauzi_User.xlsm

[فوزى فوزى]

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

استاذ سليم بعد اذنك ممكن تعدل فى الكود حتى يكون بنفس النموذج الموضوع للحل

Fauzi_User.xlsm

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

تم التعديل

Private Sub btnSubmit_Click()
If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then Exit Sub

Dim S_rg As Range, Col%, i%
Dim Sw As Worksheet
Dim BoL As Boolean
Dim last%
Set Sw = Sheets("Sheet1")
last = Sw.Cells(Rows.Count, 1).End(3).Row
Set S_rg = Sw.Range("C2:L2") _
   .Find(Me.ComboBox1.Text, lookat:=1)
   If S_rg Is Nothing Then Exit Sub
      Col = S_rg.Column
     For i = 3 To last
          If Sw.Cells(i, Col) = "" Then
           BoL = True
           Exit For
          End If
     Next
  If BoL Then Sw.Cells(i, Col) = _
   Me.ComboBox2.Text
End Sub

 

Fauzi_User_vertical.xlsm

[فوزى فوزى]

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