إدخال قيمة إلى خلية بواسطة كمبوبوكس بشرط

[أبو أنس حاجب]

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

أساتذتي الأفاضل حفظكم الله

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

أبو أنس ناصر حاجب

مشكلة كمبوبوكس.rar

[الـعيدروس]

السلام عليكم

تفضل

Private Sub ComboBox2_Change()

With ComboBox2

Range("A65536").End(xlUp).Offset(1, 0).Select

ActiveCell.Value = .Value

End With

End Sub

[أبو أنس حاجب]

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

أستاذي وسيدي النبيل أبا نصارحفظكم الله

كل الشكر والتقدير والأحترام لكم

بارك الله لكم وبك وفيكم وذريتكم من بعدكم.

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

اللهم بلغه مأمنه يوم القيامة ولاتخزه واستره واعفو عنه وارضى عنه ومتعه بالنظر إلى وجهك الكريم

أبو أنس

[الـعيدروس]

السلام عليكم

الاخ الحبيب أبو أنس حاجب

جزاك الله كل خير على دعائك وكلماتك الطيبه

ولك مثل دعائك اضعاف مضاعفه ان شاء الله

تفضل هذا الكود بعد التعديل لطلبك الاخير

Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then Ali_Val

End Sub

Private Sub Ali_Val()

X = Range("A65536").End(xlUp).Offset(1, 0).Row

With Cells(X, 1)

.Value = ActiveSheet.ComboBox2.Value

.Select

End With

End Sub

تم تعديل نوفمبر 6, 2012 بواسطه عباد

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أبا نصار حفظكم الله وأهليكم جميعاً

مبدع ومحترف ومتقن .......

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

اللهم لا تنظر إلى ضعفي وقلت حيلتي ولا إلى ذنوبي ومعاصي كي تستجيب دعوتي ولكن إلى استحقاقهم لفضلهم علينا من بعدك المستمد من إيمانهم بما عندك كي تجزيهم به فلا تردنا ربي خائبين (أنا محسني الظن بك).

أبو أنس ناصر حاجب