نسخ بشرط

[طارق نادر]

اخواني السلام عليكم

هنالك في  sheet1  عامود فيه رقم العقوبة وعامود اخر اسم العقوبة اريد عمل قائمة منسدلة في فورم  لعمود b2:b23 بحث اذا اخترت خلية من خلايا العامود b ينسخ الخلية التي بجانبها من العامود a2:a23 في خلية ولتكن c5 بمعنى اخر اذا اخترت خلية b2 من القائمة المنسدلة تنسخ تلقائيا خلية a2 الى الخلية c5

 

اختر ملف... اضغط لاختيار ملف

Book1.rar

[ابراهيم الحداد]

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

لعل هذا ما تقصده

 

Book1.rar

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

ربما كان المطلوب

 

Bookxxx.xlsx

[طارق نادر]

لكم جزيل الشكر والتقدير....100%

[طارق نادر]

ارجو التعديل على هذا الكود بحيث يتم نسخ خلية e22 في صفحة اسمها sheet2

Private Sub ComboBox5_Change()
Dim C As Range
For Each C In Range("h2:h36")
If Me.ComboBox5.Value = C.Value Then
Range("e22").Value = C.Offset(0, -1)
End If
Next
End Sub

 

[ابراهيم الحداد]

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

غير هذا السطر

Range("e22").Value = C.Offset(0, -1)

الى

sheet2.Range("e22").Value = C.Offset(0, -1)

 

[طارق نادر]

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

Private Sub ComboBox5_Change()
Dim C As Range
For Each C In Range("h2:h36")
If Me.ComboBox5.Value = C.Value Then
Range("e22").Value = C.Offset(0, -1)
End If
Next
End Sub

 

[طارق نادر]

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

 

[طارق نادر]

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

 

[طارق نادر]

للرفع

 

[طارق نادر]

للرفع

 

[طارق نادر]

للرفع

 

[طارق نادر]

للرفع

 

[طارق نادر]

للرفع

 

[طارق نادر]

للرفع