مساعدة بسيطة في LISTBOX

[رامي الخبيري]

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

تحياتي ,,

برجاء المساعدة في المثال الموجود في الملف المرفق

و المطلوب هو : عمل USERFORM به 2 LISTBOX

LISTBOX الأول يأخد بياناته من العمود A

إذا تم إختيار أحد أو بعض البيانات من LISTBOX1 يتم نقلها إلى LISTBOX2 و حذفها من LISTBOX1 و يتم أيضا حذفها من العمود A

help.zip

[عبدالله باقشير]

السلام عليكم

شاهد المرفق 2003

help.rar

في امان الله

[رامي الخبيري]

جزاك الله عن كل خير أخي الكريم . .

ما سعدت بالملف قدر سعادتي بمرورك الكريم على موضوعي . . . شرف لي

تحياتي

[عبدالله باقشير]

السلام عليكم

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

وانا لي الشرف

استدراك:

استبدل هذا بالكود المثيل السابق

Private Sub UserForm_Terminate()

Range("a2:b21").ClearContents

If Me.ListBox1.ListIndex = -1 Then GoTo 1

With Me.ListBox1

Range("a2").Resize(.ListCount, 1).Value = .List

End With

1:

If Me.ListBox2.ListIndex = -1 Then GoTo 2

With Me.ListBox2

Range("b2").Resize(.ListCount, 1).Value = .List

End With

2:

End Sub

[رامي الخبيري]

و الله ي أخي الكريم ما أنا عارف أقولك ايه ؟؟؟

بالفعل قابلني error عند الخروج من الفورم دون إختيار شيئ , و أعياني البحث عن حل ,,

و قلت أرجع للمشاركة لأراجع الكود .. فوجدتك أضفت الكود الجديد الذي عالج الخطأ ,, و لم أكن أراه من قبل

تحية لإخلاصك و صدقك في توصيل المعلومة