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

[حرود]

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

[حرود]

ماإصدارOffice لديك

[حرود]

الملف يعمل بنجاح

 

هل من طريقة تحعل  المواشير في عمود الكمية عمود f  مباشرا  عند اختيار الصنف من الفورم

Invoice full.zip

تم تعديل فبراير 12, 2015 بواسطه حرود

[KHMB]

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

اخي حرود

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

[حرود]

لسلام عليكم ورحمة الله وبركاته بارك الله فيك اخي  KHMB على الاهتمام بالموضوع مشكلة لقد كنت في الكود اسم ورقة اقد تما تعديل عليه اخي الجموعي بارك الله فيه

 

 

الكود الااول كانا

 

 

 

Const Cont As Integer = 5

Sub Item()
Dim Ary()
Dim r As Long, RR As Long, LR As Long
Dim c As Integer, cc As Integer
Dim txt As String
txt = KH_T_SEARSH.TextBox1
KH_T_SEARSH.ListBox1.Clear
With æÑÞÉ1
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
For r = 2 To LR
If InStr(1, .Cells(r, "A"), KH_T_SEARSH.TextBox1, vbTextCompare) = 1 Then
RR = RR + 1
ReDim Preserve Ary(1 To Cont, 1 To RR)
For c = 1 To Cont
cc = Choose(c, 1, 2, 3, 4, 5)
Ary(c, RR) = .Cells(r, cc).Value
Next
End If
Next
End With
If RR Then KH_T_SEARSH.ListBox1.Column = Ary
Erase Ary
End Sub

 

كود تاني

 

Const Cont As Integer = 5

Sub Item()
Dim Ary()
Dim r As Long, RR As Long, LR As Long
Dim c As Integer, cc As Integer
Dim txt As String
txt = KH_T_SEARSH.TextBox1
KH_T_SEARSH.ListBox1.Clear
With Sheets("codes")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
For r = 2 To LR
If InStr(1, .Cells(r, "A"), KH_T_SEARSH.TextBox1, vbTextCompare) = 1 Then
RR = RR + 1
ReDim Preserve Ary(1 To Cont, 1 To RR)
For c = 1 To Cont
cc = Choose(c, 1, 2, 3, 4, 5)
Ary(c, RR) = .Cells(r, cc).Value
Next
End If
Next
End With
If RR Then KH_T_SEARSH.ListBox1.Column = Ary
Erase Ary
End Sub

تم تعديل فبراير 12, 2015 بواسطه حرود

[حرود]

لي طلبين هل من طريقة لي تسهيل البحت في الفوريم عندما اكتب الحرف اول من الصنف بي يطلع وطلب تاني  تحعل  المواشير في عمود الكمية عمود f  مباشرا  عند اختيار الصنف من الفورم

[KHMB]

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

اخي حرود

1- حسب طلبك تم عمل البحث بأول حرف

2- تقدر تدخل الكمية من مربع الادخال وسينتقل المؤشر صنف جديد

إن شاء الله حسب مبتغاك

مرفق الملف

Invoice full.rar

تم تعديل فبراير 12, 2015 بواسطه KHMB

[ابا اسماعيل]

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

لقد وجدت موضوع حيث أنه موضوع رائع جدا واريد تطبيقه على ملف العمل الخاصه

بى.اناهو يعمل جيد

اريد  الكود ان يظهارلي في الفورم  كل من اسم

 

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

 

2015.zip

تم تعديل فبراير 12, 2015 بواسطه ابا اسماعيل

[حرود]

جزاك الله خيرا الأخ الكريم KHMB اللهم يسر لك أمرك كما جعلك سببًا للتيسير علينا

[الجموعي]

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

لقد وجدت موضوع حيث أنه موضوع رائع جدا واريد تطبيقه على ملف العمل الخاصه

بى.اناهو يعمل جيد

اريد  الكود ان يظهارلي في الفورم  كل من اسم

 

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

 

تفضل أخي  لعله المطلوب

2015.zip

[ابا اسماعيل]

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الجموعي على الاهتمام بالموضوع

ارجومنك تعديل في كود البحت عندما اكتب الحرف اول من الصنف  اريد ان يطلع جميع اصنف الدي تبداء بي سم الصنف اما الكود الاان بي يطهار لي سوا 3 اصنف وعند استدعاء صنف لي الفاتورة, لا يضعه في مكانه صحيح

 

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

 

بي يضع لي سعر في مكان الكمية

تم تعديل فبراير 12, 2015 بواسطه ابا اسماعيل

[الجموعي]

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الجموعي على الاهتمام بالموضوع

ارجومنك تعديل في كود البحت عندما اكتب الحرف اول من الصنف  اريد ان يطلع جميع اصنف الدي تبداء بي سم الصنف اما الكود الاان بي يطهار لي سوا 3 اصنف وعند استدعاء صنف لي الفاتورة, لا يضعه في مكانه صحيح

 

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

 

بي يضع لي سعر في مكان الكمية

أخي الكريم عند إستدعاء بيانات من الفورم للفاتورة لا بد من الوقوف على الخلايا في العمود E

مثلا: الخلية  E15 دبل كليك سيظهر الفورم عند البحث ستظهر النتائج في الليست بوكس

دبل كليك على السطر المراد استدعاء بيانته سيستدعى للفاتورة : الكود/ الصنف/ سعر البيع

[ابا اسماعيل]

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

 

تجعل  المواشير في عمود الكمية عمود G  مباشرا  عند اختيار الصنف من الفورم

[الجموعي]

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

 

تجعل  المواشير في عمود الكمية عمود G  مباشرا  عند اختيار الصنف من الفورم

تفضل المواشير في عمود الكمية عمود G

2015_2.zip

[ابا اسماعيل]

جزاكم الله عنا خير الجزاء وفى ميزان حسناتك

[ابا اسماعيل]

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

ارجو الا اكون قد اثقلت عليك بي طلبتي اريد عندا عمل دبل كليك فيالخلية  E سيظهر الفورم  يطهارلي فيه الا الصف مباشر قبل كتابات اي حرف

تم تعديل فبراير 12, 2015 بواسطه ابا اسماعيل

[الجموعي]

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

ارجو الا اكون قد اثقلت عليك بي طلبتي اريد عندا عمل دبل كليك فيالخلية  E سيظهر الفورم  يطهارلي فيه الا الصف مباشر قبل كتابات اي حرف

جرب المرفق أخي

ان شاء الله هو المطلوب

بالنسبة للكود رقم 140 في شيت codes

لماذا اسم الصنف فارغ لان عند البحث بالتكست بوكسوالتراجع عن البحث البيانات في الليست بوكس تمسح ما عدا هذا الرقم

قمت بكتابة اي شيء في اسم الصنف للكود 140 عمل بنجاح

2015_2_2.zip

[ابا اسماعيل]

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

هل من طريقة ستخدام لي سحب بي  دبوس في الوسط الماوس سحب البيانات في الفوم اسفل واعلى

2015..zip