تعبئة بيانات جدول

[هاني بدر]

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

ارجو المساعده بالكود في تعبئة بيانات جدول النتائج بناء على التغيرات في جدول البيانات الاساسيه والتي تخرج بياناتها من قاعدة البيانات الاساسيه وكل الجداول في صفحه واحده هى صفحة Data

تقبلوا تحياتي

Test Data.rar

[بن علية حاجي]

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

لست أدري إن كنت قد فهمت المطلوب جيدا، هذه محاولة في الملف المرفق...

بن علية

Test Data.rar

[هاني بدر]

1 دقيقه مضت, بن علية حاجي said:

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

لست أدري إن كنت قد فهمت المطلوب جيدا، هذه محاولة في الملف المرفق...

بن علية

Test Data.rar

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

نعم اخي الكريم هو المطلوب ولكن بالكود وليس بالمعادلات

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

تحياتي

[ياسر خليل أبو البراء]

أخي العزيز هاني

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

Sub Test()
    Dim Rng As Range
    Set Rng = Sheet1.Range("DL11:EP" & Sheet1.Cells(Rows.Count, "CC").End(xlUp).Row)
    
    With Rng
        .Formula = "=IF(CC11=0,"""",INDEX($C:$C,MATCH(CC11,$B:$B,0)))"
        .Value = .Value
    End With
End Sub

 

[هاني بدر]

منذ ساعه, ياسر خليل أبو البراء said:

أخي العزيز هاني

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

Sub Test()
    Dim Rng As Range
    Set Rng = Sheet1.Range("DL11:EP" & Sheet1.Cells(Rows.Count, "CC").End(xlUp).Row)
    
    With Rng
        .Formula = "=IF(CC11=0,"""",INDEX($C:$C,MATCH(CC11,$B:$B,0)))"
        .Value = .Value
    End With
End Sub

 

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

اخي الحبيب استاذ ياسر بارك الله فيك تم التجربه بنجاح والامر خفيف على الجهاز لا يستغرق وقت

تقبل تحياتي

[ياسر خليل أبو البراء]

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

الحمد لله الذي بنعمته تتم الصالحات

الكود لا يستغرق وقت لأنه مباشر جداً وسريع حيث توضع المعادلات في كافة خلايا النطاق مرة واحدة وتحول لقيم ..

تقبل وافر تقديري واحترامي