اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

ترحيل على شرط الاسم.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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information