Ali994m قام بنشر أكتوبر 21, 2020 مشاركة قام بنشر أكتوبر 21, 2020 السلام عليكم أرجو المساعدة في اضافة كود لنقل المعلومات من صفحة البيانات الى صفحة التقرير بناءاً على الكود وهل يمكن أن يكون مربع البحث (شكل) طالما انك تريد الحل والإجابة بالأكواد , فكان لزاماً عليك رفع الملف بإمتداد Xlsm وذلك تجنباً لعدم اهدار وإضاعة وقت الأساتذة .... تـــــــــــم التــــعـديــــل وجزاكم الله كل خير report.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 21, 2020 مشاركة قام بنشر أكتوبر 21, 2020 جرب هذا الملف report_Ali.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر أكتوبر 21, 2020 الكاتب مشاركة قام بنشر أكتوبر 21, 2020 جزاك الله كل خير أخي لكن المعادلة التي تفضلت علي بها كانت صعبة التطبيق قليلا لو شرحتها بعد اذنك أنا أحاول في تطبيق الكود التالي لكن لم ينجح Sub ãÓÊØíáãÓÊÏíÑÇáÒæÇíÇ1_ÇäÞÑ() Dim a(250) Repport.Activate lam = Range("f11").Value Date.Activate Cells(lam + 2, 40).Select Ro = Selection.Row For i = 1 To 250 a(i) = Cells(Ro, i).Value Next i Date.Activate Cells(4, 4).Value = a(2) Cells(4, 8).Value = a(3) Cells(4, 12).Value = a(4) Cells(5, 4).Value = a(5) Cells(5, 8).Value = a(6) Cells(5, 12).Value = a(7) Cells(6, 4).Value = a(8) Cells(6, 8).Value = a(9) Cells(6, 12).Value = a(10) Cells(8, 4).Value = a(11) Cells(8, 8).Value = a(12) Cells(8, 12).Value = a(13) Cells(10, 4).Value = a(14) Cells(10, 8).Value = a(15) Cells(10, 12).Value = a(16) Cells(11, 4).Value = a(17) End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أكتوبر 21, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 21, 2020 تم معالجة الامر بواسطة الكود ( الكود اوتوماتيكي يعمل بمجرد ما تختار اي رقم ) ولا حاجة لاستدعاءه بواسطة زر صفحة Salim من هذا الملف الكود Sub By_Macro() Dim s As Worksheet Dim D As Worksheet Dim F_rg As Range Dim ro% Set s = Sheets("Salim"): Set D = Sheets("Data") s.Cells(6, 4).Resize(, 5).ClearContents If s.Cells(6, 3) = vbNullString Then Exit Sub Set F_rg = D.Range("A1").CurrentRegion.Columns(1). _ Find(s.Cells(6, 3), LookIn:=xlValues, lookat:=1) If F_rg Is Nothing Then Exit Sub ro = F_rg.Row s.Cells(6, 4).Resize(, 5).Value = _ D.Cells(ro, 2).Resize(, 5).Value End Sub report_Ali_New.xlsm 4 رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر أكتوبر 21, 2020 الكاتب مشاركة قام بنشر أكتوبر 21, 2020 جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
a.kawkab قام بنشر أكتوبر 21, 2020 مشاركة قام بنشر أكتوبر 21, 2020 الكومبوبوكس لا يعمل رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 21, 2020 مشاركة قام بنشر أكتوبر 21, 2020 غادر الصفحة ثم ارجع اليها 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان