معالجة كود لاستدعاء البيانات

[محمد لؤي]

السلام عليكم - ممكن معالجة الكود الموجود  حسب الشرح الموضح بالملف المرفق 

استدعاء البيانات.rar

[سليم حاصبيا]

تم معالجة الامر بواسطة المعادلات(عملية  VBA معقدة قليلاً)لذا فضلت المعادلة عليها

معادلة واحدة مع (Ctrl+Shift+Enter)  تسحب نزولاً وتعطيك الجواب الشافي

عسى ان ينال الاعجاب

استدعاء البيانات salim.rar

اذا كنت تريده بواسطة الماكرو اليك هذا الكود

Sub find_number_for_me()
Range("o6").FormulaArray = "=IFERROR(INDEX($C$3:$L$17,MATCH(TRUE,INDEX($C$3:$L$17,,MATCH($N6,$C$2:$L$2,0))=$O$5,0),MATCH($N6,$C$2:$L$2,0)),"""")"
Range("o6").AutoFill Range("o6:o17")
Range("o6:o17").Value = Range("o6:o17").Value
End Sub

 

تم تعديل أبريل 12, 2017 بواسطه سليم حاصبيا

[محمد لؤي]

السلام عليكم - جزيت خيرا

على المعادلات والكود

وفقك وزادتك الله من فضله

جزيت خيرا