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

[عامر ياسر]

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

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

كـ ارقام بدون الفارزة العشرية مثلا عند إيجاد متوسط الاعداد يكون بعض المرات العدد 56،43 اريده يكتب 56 فقط بدون فارزة عشرية   مع التقدير.

 

استدعاء بيانات اعمدة.xlsm

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

لا حاجة للكود في هذه الحالة يكفي المعادلة التالية في الخلية DC24

و سحيها يساراً ثم نزولاً

=IFERROR(INDEX($A$24:$CX$500,ROWS($A$1:A1),MATCH(DC$21,$A$23:$CX$23,0)),"")

 

[عامر ياسر]

5 دقائق مضت, سليم حاصبيا said:

لا حاجة للكود في هذه الحالة يكفي المعادلة التالية في الخلية DC24

و سحيها يساراً ثم نزولاً

=IFERROR(INDEX($A$24:$CX$500,ROWS($A$1:A1),MATCH(DC$21,$A$23:$CX$23,0)),"")

 

انا اريدها كود هل ممكن ... اريد البيانات بدون معادلة تنزل كقيم ارقام .... مع كامل احترامي لشخصكم وسرعة الإجابة ...... 

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

الماكرو المطلوب

Option Explicit

Sub calculate_by_VBA()
Dim My_rg As Range
Dim lr%
lr = Sheets("رصد الدرجات").Cells(Rows.Count, 1).End(3).Row
Set My_rg = Sheets("رصد الدرجات").Range("DC24").Resize(lr - 23, 8)
My_rg.Formula = "=IFERROR(INDEX($A$24:$CX$500,ROWS($A$1:A1),MATCH(DC$21,$A$23:$CX$23,0)),"""")"
My_rg.Value = My_rg.Value
End Sub

 

[عامر ياسر]

2 ساعات مضت, سليم حاصبيا said:

الماكرو المطلوب

Option Explicit

Sub calculate_by_VBA()
Dim My_rg As Range
Dim lr%
lr = Sheets("رصد الدرجات").Cells(Rows.Count, 1).End(3).Row
Set My_rg = Sheets("رصد الدرجات").Range("DC24").Resize(lr - 23, 8)
My_rg.Formula = "=IFERROR(INDEX($A$24:$CX$500,ROWS($A$1:A1),MATCH(DC$21,$A$23:$CX$23,0)),"""")"
My_rg.Value = My_rg.Value
End Sub

 

زادك الله علماً ورفع من قدرك شكرا جزيلاً لأجابتك الرائعة أستاذ

سليم حاصبيا شكراً لك مع تقديري واحترامي