رائد داود قام بنشر ديسمبر 8, 2016 قام بنشر ديسمبر 8, 2016 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركااته عملت فورم لإختيار نوع السندات ,, وتمت عملية ترقيم كل سند على حده وفيه مشكلة في جلب ارقام واسم الحساب عند تكست a3 وموضحة الطلبات داخل البرنامج h2.rar
رائد داود قام بنشر ديسمبر 10, 2016 الكاتب قام بنشر ديسمبر 10, 2016 الأستاذ طلعت محمد حسن السلام عليكم هذا كود اقتبسته من حضرتك بمشاركة لكم حول دالة 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
طلعت محمد حسن قام بنشر ديسمبر 10, 2016 قام بنشر ديسمبر 10, 2016 السلام عليكم اخي رائد انا لم افهم سؤالك تريد جلب بيانات لكن من اين لم افهم بالضبط ماذا تريد ارجوا التوضيح اكثر
رائد داود قام بنشر ديسمبر 12, 2016 الكاتب قام بنشر ديسمبر 12, 2016 استاذ طلعت المحترم شكرا" على الإستجابة ............. في مثالك أنت تفترض أن البيانات في ورقة واحده ,,, ماذا لو كان البرنامج فيه عدة اوراق والبيانات موجوده في ورقة اخرى ارفع لك المثال الذي انت عملته بعد ان اضفت البيانات في ورقة اخرى فالفورم لايعمل علما" توصلت الى حل لجلب البيانات بنجاح وكذلك مسألة الترقيم لكل سند على حدة , لكن تظهر لي مشكلة استدعاء السندات أرفق لك الحل الجديد لي للإطلاع عليه والمساعده فيه استعمال الدالة VLookup في البحث باستخدم الكود.rar h3.rar استاذي الفاضل وجدت الحل لملفك بعد أن عملت رينج وسميته bb ونجح الكود شاهد المرفق استعمال الدالة VLookup في البحث باستخدم الكود.rar
رائد داود قام بنشر ديسمبر 12, 2016 الكاتب قام بنشر ديسمبر 12, 2016 استاذي الكريم استاذ طلعت المحترم وجدت الحل لملفك بعد ان عملت رينج واسميته bb واشتغل الكود بصورة صحيحة استعمال الدالة VLookup في البحث باستخدم الكود.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.