اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تكرار اسم بشرط كتابة رقم صفه

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



13-12-2017 07:01 مساء
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 103
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 335
الاعجاب : 53
 offline 





السلام على جميع الاخوة الافاضل اما بعد
لدي طلب صعب نوعا ما و معقد لكن اتمنى من اساتذتنا الافاضل ايجاد حل له
لا يمكنني شرح المطلوب بدقة كل الشرح و النتائح المتوقعة موجودة في الملف المرفق
وبارك الله في الجميع ...للامانة الاكواد الموجودة في الملف للاستاذ محمود لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  نسخ بطريقة خاصة.rar   تحميل rar مرات التحميل :(10)
الحجم :(31.048) KB







13-12-2017 07:47 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 571
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 105
قوة السمعة : 1792
الاعجاب : 650
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
توضيح اكثر هل تريد تنفيذ هذا الامر بعد الضغط على زر تعديل 

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

أثارت هذه المشاركة إعجاب: زياد عبد الجليل،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


13-12-2017 07:59 مساء
مشاهدة مشاركة منفردة [2]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 103
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 335
الاعجاب : 53
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
شكرا لك استاذ محمود نعم بعد الضغط على زر التعديل
اريد هذا الامر لكل الخلايا التى تحتوى على اسم موظف ثانى
وشكرا جزيلا





13-12-2017 08:28 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 571
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 105
قوة السمعة : 1792
الاعجاب : 650
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
تفضل التعديل ضع هذا الكود مكان الكود السابق في زر التعديل 

Private Sub CommandButton2_Click()
Dim sh As Worksheet, i As Byte, y As Integer, c As Range, c2 As Range, y2 As Integer, k As String
If TextBox1 = "" Then GoTo 100
If MsgBox("هل تريد حفظ التعديلات الحالية", vbInformation + vbMsgBoxRight + vbYesNo, "تعديل") = vbNo Then Exit Sub
Set sh = Sheets("feuil1")
     With sh

For Each c In .Range("c2:c" & .Cells(Rows.Count, 3).End(xlUp).Row)
     If c = TextBox1.Text Then
         y = c.Row
         For i = 1 To 7
         .Cells(y, i + 2).Value = Me.Controls("TextBox" & i).Value
         Next i
         For i = 1 To 6
         .Cells(y - 1, i + 3).Value = Me.Controls("TextBox" & i + 7).Value
         .Cells(y + 1, i + 3).Value = Me.Controls("TextBox" & i + 13).Value
         '================
         k = Me.Controls("textBox" & i + 13).Value
         If IsNumeric(Me.Controls("textBox" & i + 13).Value) Then
                For Each c2 In .Range("b2:b" & .Cells(Rows.Count, 2).End(xlUp).Row)
                      If c2.Value = k Then
                            y2 = c2.Row
                            .Cells(y2, i + 3).Value = Me.Controls("textBox" & i + 1).Value
                      End If
                Next c2
         End If
         Next i
         '================
     End If
Next c
End With
Exit Sub


100:
MsgBox "قم أولا بإختيار الأسم الذي تود تعديله", vbExclamation + vbMsgBoxRight, "خطأ"

End Sub

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

جرب الكود ومستنى ردك 



تقبل تحياتى وتقديرى


تم تحرير المشاركة بواسطة :محمود ابو الدهب
بتاريخ:13-12-2017 08:37 مساء


أثارت هذه المشاركة إعجاب: زياد عبد الجليل،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


13-12-2017 09:04 مساء
مشاهدة مشاركة منفردة [4]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 103
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 335
الاعجاب : 53
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
استاذ محمود شكرا على هذا العمل الرائع الكود يعمل بشكل جيد لكن ممكن اضافة فقط
عندما نضع مثلا الرقم 4 اي رقم الفرع للاسم علي مثلا الموجود في الفرع رقم 6
هنا الكود يعمل بشكل جيد حيث ان اسم علي يكتب في الفرع رقم 4 لكن اريد اسم علي في الفرع رقم 6 ان يأخذ كذلك الرقم رقم 4
اي يتبادلو الارقام مثلما هو موضح في الملف المرفق...وشكرا





13-12-2017 09:24 مساء
مشاهدة مشاركة منفردة [5]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 571
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 105
قوة السمعة : 1792
الاعجاب : 650
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
اخبرتك بحدوث هذا مع الكود 
ولكن كل شي وله الف حل ان شاء الله 
الامر وما فيه هو اضافة سطر واحد للكود وسيعمل معك بامتياز ان شاء الله
التعديل هو

Private Sub CommandButton2_Click()
Dim sh As Worksheet, i As Byte, y As Integer, c As Range, c2 As Range, y2 As Integer, k As String
If TextBox1 = "" Then GoTo 100
If MsgBox("هل تريد حفظ التعديلات الحالية", vbInformation + vbMsgBoxRight + vbYesNo, "تعديل") = vbNo Then Exit Sub
Set sh = Sheets("feuil1")
     With sh

For Each c In .Range("c2:c" & .Cells(Rows.Count, 3).End(xlUp).Row)
     If c = TextBox1.Text Then
         y = c.Row
         For i = 1 To 7
         .Cells(y, i + 2).Value = Me.Controls("TextBox" & i).Value
         Next i
         For i = 1 To 6
         .Cells(y - 1, i + 3).Value = Me.Controls("TextBox" & i + 7).Value
         .Cells(y + 1, i + 3).Value = Me.Controls("TextBox" & i + 13).Value
         '================
         k = Me.Controls("textBox" & i + 13).Value
         If IsNumeric(Me.Controls("textBox" & i + 13).Value) Then
                For Each c2 In .Range("b2:b" & .Cells(Rows.Count, 2).End(xlUp).Row)
                      If c2.Value = k Then
                            y2 = c2.Row
                            .Cells(y2, i + 3).Value = Me.Controls("textBox" & i + 1).Value
                            .Cells(y2 + 1, i + 3).Value = c.Offset(0, -1)
                      End If
                Next c2
         End If
         Next i
         '================
     End If
Next c
End With
Exit Sub
100:
MsgBox "قم أولا بإختيار الأسم الذي تود تعديله", vbExclamation + vbMsgBoxRight, "خطأ"

End Sub


منتظر ردك 


تقبل تحياتى وتقديرى

أثارت هذه المشاركة إعجاب: زياد عبد الجليل، Yasser Elaraby،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


13-12-2017 09:28 مساء
مشاهدة مشاركة منفردة [6]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 103
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 335
الاعجاب : 53
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
نعم هذا هو المطلوب بالضبط استاذ محمود مليون تريليون شكر و تقدير لك

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




13-12-2017 09:30 مساء
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 571
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 105
قوة السمعة : 1792
الاعجاب : 650
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
اشكرك استاذ زياد والحمد لله على ان طلبك تم كما اردت
تحياتى وتقديرى
 

أثارت هذه المشاركة إعجاب: زياد عبد الجليل،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


15-12-2017 05:44 مساء
مشاهدة مشاركة منفردة [8]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 103
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 335
الاعجاب : 53
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
استاذ محمود هل يمكن اضافة بسيطة بحيث ان الخليتين المعنيتين يتم تغيير الخط فيهما الى اللون الاحمر
جربت هذا الكود ولكن لم يعمل معي
 .Font.ColorIndex = 10 

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




15-12-2017 07:38 مساء
مشاهدة مشاركة منفردة [9]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 571
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 105
قوة السمعة : 1792
الاعجاب : 650
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
تفضل التعديل الذى اردته 
بنفس السطر الذى كتبته ولكن بمكانه الصحيح

Private Sub CommandButton2_Click()
Dim sh As Worksheet, i As Byte, y As Integer, c As Range, c2 As Range, y2 As Integer, k As String
If TextBox1 = "" Then GoTo 100
If MsgBox("هل تريد حفظ التعديلات الحالية", vbInformation + vbMsgBoxRight + vbYesNo, "تعديل") = vbNo Then Exit Sub
Set sh = Sheets("feuil1")
     With sh

For Each c In .Range("c2:c" & .Cells(Rows.Count, 3).End(xlUp).Row)
     If c = TextBox1.Text Then
         y = c.Row
         For i = 2 To 7
         If IsNumeric(Me.Controls("TextBox" & i + 12).Value) Then
         .Cells(y, i + 2).Value = Me.Controls("TextBox" & i).Value
         .Cells(y, i + 2).Font.ColorIndex = 3
         .Cells(y + 1, i + 2).Font.ColorIndex = 3
         Else
         .Cells(y, i + 2).Value = Me.Controls("TextBox" & i).Value
         End If
         Next i
         For i = 1 To 6
         .Cells(y - 1, i + 3).Value = Me.Controls("TextBox" & i + 7).Value
         .Cells(y + 1, i + 3).Value = Me.Controls("TextBox" & i + 13).Value
         '================
         k = Me.Controls("textBox" & i + 13).Value
         If IsNumeric(Me.Controls("textBox" & i + 13).Value) Then
                For Each c2 In .Range("b2:b" & .Cells(Rows.Count, 2).End(xlUp).Row)
                      If c2.Value = k Then
                            y2 = c2.Row
                            .Cells(y2, i + 3).Value = Me.Controls("textBox" & i + 1).Value
                            .Cells(y2, i + 3).Font.ColorIndex = 3
                            .Cells(y2 + 1, i + 3).Value = c.Offset(0, -1)
                            .Cells(y2 + 1, i + 3).Font.ColorIndex = 3
                      End If
                Next c2
         End If
         Next i
         '================
     End If
Next c
End With
Exit Sub
100:
MsgBox "قم أولا بإختيار الأسم الذي تود تعديله", vbExclamation + vbMsgBoxRight, "خطأ"

End Sub

 
تحياتى وتقديرى

أثارت هذه المشاركة إعجاب: زياد عبد الجليل، Yasser Elaraby،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


15-12-2017 09:07 مساء
مشاهدة مشاركة منفردة [10]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 103
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 335
الاعجاب : 53
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
بارك الله فيك استاذ محمود وزادك الله من علمه





16-12-2017 01:43 مساء
مشاهدة مشاركة منفردة [11]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 103
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 335
الاعجاب : 53
 offline 
look/images/icons/i1.gif تكرار اسم بشرط كتابة رقم صفه
السلام على جميع الاخوة الافاضل اما بعد
اردت اجراء تعديلات و تطوير في الملف لكن الاكواد لا تعمل معي بشكل جيد
حيث قمت بادراج كومبوبوكس للتنقل بين الصفحات الكود يعمل بشكل جيد لكن الخلل الموجود هو انه من المفروض يعرض البيانات الموجودة في الملف من السطر المحدد الى اخر سطر به بيانات دون اللجوء الى تحديده
Private Sub ComboBox1_Change()
Dim ws As Worksheet
Dim sName As String: sName = Me.ComboBox1.Value
Set ws = ThisWorkbook.Sheets(sName)
Dim iRow As Long: iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
 Sheets(ComboBox1.Text).Select
  keyArray = ws.Range("c4:i" & iRow).Value
 'هنا من المفروض يعرض البيانات الموجودو من السطلر المحدد الى اخر سطر به بيانات في i لكن لا يعمل بشكل جيد بالرغم من ان الكود يعمل في ملفات اخرى جيدا'
  With Me.ListBox1
         .Clear
         .List = keyArray
         .ColumnCount = 7
         .ColumnWidths = "12pt"

  End With
End Sub

2- ووضعت هذا الكود في

Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
Me.ComboBox1.AddItem ws.Name
Next
Me.ComboBox1.ListIndex = 0
End Sub

المطلوب بالضبط هو اجعل الليست بوكس يعرض البيانات الموجودة في الصفحة 1 من c 4 الى اخر سطر به بيانات دون اللجوء الى تحديده بهذه الطريقة "c4:i20"
2- اريد عند اجراء اي تعديل ان يظهر كذلك في الليست بوكس وليس فقك في الملف
وبارك الله في الجميع
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تعديل.rar   تحميل rar مرات التحميل :(7)
الحجم :(32.29) KB



تم تحرير المشاركة بواسطة :زياد عبد الجليل
بتاريخ:16-12-2017 01:48 مساء







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ايجاد اقل قيمة بشرط- حسام خطاب الصقر
12 1058 عبدالجيد
كود لجلب البيانات من ملفين للثالث بشرطين أو ثلاثة samycalls2020
18 206 YasserKhalil
كيف جمع عمود بشرط في لست بوكس واظهار المحموع في تكست بوكس رمضان بكري
13 154 زيزو العجوز
SUMPRODUCT  مع max لايجاد اكبر قيمة بشرط الصقر
9 706 محمود ابو الدهب
داله جديده معرفه للحصول على عدة نتائج بنطاق محدد بشرط اللون alsqercolor الصقر
12 559 Excelawy

الكلمات الدلالية
تكرار ، بشرط ، كتابة ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.

سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.




الساعة الآن 03:34 مساء

أعلن هنا
أعلن هنا
أعلن هنا