نقل البيانات الى تقرير بناءا على الكود

[Ali994m]

السلام عليكم 

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

وهل يمكن أن يكون مربع البحث (شكل)

طالما انك تريد الحل والإجابة بالأكواد , فكان لزاماً عليك رفع الملف بإمتداد Xlsm وذلك تجنباً لعدم اهدار وإضاعة وقت الأساتذة .... تـــــــــــم التــــعـديــــل

وجزاكم الله كل خير

 

report.xlsm

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

جرب هذا الملف

report_Ali.xlsm

[Ali994m]

جزاك الله كل خير أخي 

لكن المعادلة التي تفضلت علي بها

كانت صعبة التطبيق قليلا 

لو شرحتها بعد اذنك 

أنا أحاول في تطبيق الكود التالي لكن لم ينجح

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

 

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

 تم معالجة الامر بواسطة الكود ( الكود   اوتوماتيكي يعمل بمجرد ما تختار اي رقم  )   ولا حاجة لاستدعاءه بواسطة زر

صفحة  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

[Ali994m]

جزاك الله كل خير

 

[a.kawkab]

الكومبوبوكس لا يعمل

 

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

غادر الصفحة ثم ارجع اليها