ربط ثلاثة كومبكس مع بعض وتعديل ظهور التاريخ

[أبو قاسم]

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

جزاكم الله خير الجزء على ماتقدمونة 

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

ربط 3 كمبوبوكس.rar

 

[رجب جاويش]

السلام عليكم

استخدم هذا الكود

Private Sub Nawa_Change()
Dim ii As Integer
Dim sh As Worksheet
Set sh = Sheets("تحديد القطاعات")
If Nawa.Text = "" Then Me.TextBox_mycode = ""
For ii = 6 To sh.Range("C" & Rows.Count).End(xlUp).Row
If Sanf.Text = Cells(ii, 3) And Nawa.Text = Cells(ii, 4) Then
Me.TextBox_mycode = Cells(ii, 5)
Exit For
End If
Next
End Sub

 

ربط 2 كمبوبوكس.rar

[أبو قاسم]

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

[رجب جاويش]

هل تقصد هكذا

 

ربط 2 كمبوبوكس.rar

تم تعديل فبراير 10, 2016 بواسطه رجب جاويش

[أبو قاسم]

جزاك الله عنا الف خير لاتوفي كلماتي لشكرك ولابداعك