اريد كود في فورم بحث

[الـعيدروس]

السلام عليكم

الاخوة الخبراء حفظكم الله

لدي فورم للاستاذ خبور خير

اريد اضافة كود يحل محل الانتر او الماوس

بمعنى عند البحث عن صنف كامل

وعند ظهوره في الليست بوكس وحده دون اصناف شبيه

يقوم الكود بختيارة دون الدوس على الليست بوكس لاختيارة

وارجو من لديه الكود لايبخل علينا

تلميذكم أبو نصار

[الـعيدروس]

السلام عليكم

ربما لم يفهم المطلوب

ارفقت الملف وفيه الفورمز

ومااريده عند البحث برقم الحساب

وظهور رقم الحساب في listbox

نتيجة واحدة اضغط انتر بدل النقر بالماوس

ارجو ان اكون وضحت

ترحيل.rar

[احمد حمور-ابوعبدالله]

حاولت ولكن دون فائده

ساحاول مجددا

[الـعيدروس]

بارك الله فيك استاذ احمد حمور

انشاء الله تزبط معاك

عشمي كبير فيكم

وفقك الله

[الـعيدروس]

السلام عليكم

عيدكم مبارك

اعاده الله علينا وعليكم باليمن والبركه

تقبل الله منا ومنكم صالح الاعمال

توصلت لما اريد وذلك بالغاء الليست بوكس

بحث عن طريق TextBox

وعند النقر انتر من الكيبورد يحفز الفتره

(البحث برقم الحساب)

ارجو منكم تعديل الكود ليبحث في كل الاعمدة

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

ترحيل1.rar

[الـعيدروس]

السلام عليكم

ارجو التعديل على الكود لما يتناسب مع ملفي

اريد الكود يقوم بترحيل الفارغ الى ورقة (ص-م) ويطبع مقابل كل اسم في عمود (ص) غ في ورقة (ص-م)

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

في عمود (م) بمعنى ترحيل الفترة المسائية يختلف عن الفترة الصباحيه و يعمل عملية تحقق

ارجو ان اكون وفقت بتوضيح طلبي

ملحوظة : التحقق يكون على رقم الكود

هذا كود الفترة الصباحية

Sub shift_empty()

lastr = [A10000].End(xlUp).Row

Sheets("ص-م").Range("A3:A10000").EntireRow.Delete Shift:=xlUp

For i = 4 To lastr

	If Cells(i, "c") <> "a" Then

	Range("A" & i & ":c" & i).Copy (Sheets("ص-م").[A10000].End(xlUp).Offset(1, 0))

	End If

Next i

aal = [A10000].End(xlUp).Row

For g = 4 To aal

If Sheets("فترة صباحية").Cells(g, 4) <> "" Then

Sheets("ص-م").Cells(g, 2).Offset(-1, 2).Value = "غ"

End If

Next g

End Sub

كود الفترة المسائية

Sub abood()

aal = [A10000].End(xlUp).Row

For g = 4 To aal

If Sheets("فترة مسائية").Cells(g, 4) <> "" Then

Sheets("ص-م").Cells(g, 2).Offset(-1, 3).Value = "غ"

End If

Next g

End Sub

والمرفق وعليه الاكواد

ترحيل3.rar