فورم سندات

[رائد داود]

بسم الله الرحمن الرحيم

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

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

h2.rar

[رائد داود]

للرفع

[رائد داود]

الأستاذ طلعت  محمد حسن

السلام عليكم

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

Private Sub TextBox1_Change()
Lr = WorksheetFunction.CountIf(Range("A4:C10000"), Val(TextBox1.Value))
If TextBox1.Value <> "" And Lr = 1 Then
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A4:C10000"), 2, 0)
TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A4:C10000"), 3, 0)
Else
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End If

End Sub

السؤال  ماذا  لو كانت الأسماء  في  ورقة  اخرى   والمجال  كان  من   a2:h500

 

عملت  هكذا  ولكن  لم  ينجح  الكود  معي

Private Sub A1_Change()
Set sh2 = Sheets("code")
LR = sh2Function.CountIf(Range("A2:h500"), Val(A1.Value))
If A1.Value <> "" And LR = 1 Then
B1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 2, 0)
C1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 3, 0)
D1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 4, 0)
E1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 5, 0)
f1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 6, 0)
h1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 7, 0)

Else
'A1.Value = ""

End If

End Sub

[طلعت محمد حسن]

السلام عليكم

اخي رائد انا لم افهم سؤالك تريد جلب بيانات لكن من اين لم افهم بالضبط ماذا تريد ارجوا التوضيح اكثر

[رائد داود]

استاذ طلعت المحترم

شكرا" على الإستجابة  .............  في  مثالك  أنت تفترض أن البيانات  في  ورقة  واحده ,,, ماذا لو كان البرنامج  فيه  عدة اوراق والبيانات  موجوده  في ورقة اخرى
ارفع  لك  المثال  الذي  انت  عملته  بعد ان  اضفت  البيانات  في  ورقة  اخرى  فالفورم  لايعمل 

علما" توصلت  الى  حل  لجلب البيانات  بنجاح  وكذلك  مسألة  الترقيم  لكل  سند  على  حدة   , لكن  تظهر  لي  مشكلة  استدعاء  السندات

أرفق  لك  الحل  الجديد  لي  للإطلاع  عليه  والمساعده  فيه

استعمال الدالة VLookup في البحث باستخدم الكود.rar

h3.rar

استاذي  الفاضل 

وجدت  الحل  لملفك   بعد أن  عملت  رينج  وسميته  bb  ونجح  الكود

شاهد  المرفق

استعمال الدالة VLookup في البحث باستخدم الكود.rar

[رائد داود]

استاذي  الكريم  استاذ طلعت المحترم

وجدت  الحل  لملفك  بعد  ان  عملت  رينج  واسميته  bb  واشتغل  الكود  بصورة  صحيحة

استعمال الدالة VLookup في البحث باستخدم الكود.rar