كود ترحيل بيانات الخلية النشطة

**Akram Galal** · يناير 5, 2015

هل تقصد هكذا

Private Sub UserForm_Initialize()
ComboBox1.Value = ActiveCell.Value
End Sub

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

السادة أعضاء المنتدي الكرام

أ/ رجب جاويش

هل ممكن تريحل بيانات الخلية التي علي يسار الخلية النشطة الي الكمومب بوكس

مثلا الخلية النشطة a1 يرحل الخلية b1

وجزاكم الله خيراً .

ياسر خليل أبو البراء · يناير 5, 2015

جرب الكود التالي:

Private Sub UserForm_Initialize()
ComboBox1.Value = ActiveCell.offset(0,-1).Value
End Sub

**Akram Galal** · يناير 6, 2015

أ/ ياسر الكود لا يعمل

ممكن ارفاق مثال تطبيقي

جزاك الله خيرا

ياسر خليل أبو البراء · يناير 6, 2015

أخي الحبيب قم بتحديد أي خلية من النطاق A1:A3 واضغط على زر الأمر ..سيظهر في الكومبوبوكس قيمة الخلية المجاورة للخلية النشطة

**Akram Galal** · يناير 6, 2015

جزاك الله خير الجزاء

100 100

يا أخي ياسر

كود ممتاز

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