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

[إبراهيم ابوليله]

الاخوه الكرام

تحيه طيبه وبعد

مرفق شيت

اريد استخراج البيانات

بناء على الرقم والسنهBook1.rar

 

 

 

[حسين العصلوجى]

تفضل اخي المرفق

الاول بالمعادلات

الثاني كود

لعله يفى بالغرض

Book1.rar

Book2.rar

تم تعديل مارس 8, 2013 بواسطه حسين العصلوجى

[إبراهيم ابوليله]

الاخ الكريم حسين

بارك الله فيك ومشكورا على الاهتمام

ولكنى مازلت انتظر من الاخوه كود بودون معادلات داخله

وذلك لمزيد من تنوع الحلول

ولكن اخى حسين الكود ممتاز ويفى بالغرض

ولى طلب اخر

ارجو المساعده فيه

مرفق شيتBook1.rar

بارك الله فيكم

 

[حسين العصلوجى]

Dim ws As Worksheet
Set ws = Sheets("58")
i = 1
For x = 1 To 14
If Cells(x, 5) = 1 Then
ws.Cells(10 + i, 1) = Cells(x, 1)
i = i + 1
End If
Next

 

 

تفضل المرفق

لعله يكون المطلوب

Book1-h.rar

[إبراهيم ابوليله]

الاخ حسين

مشكورا على الاهتمام

بارك الله فيك

وذادك من فضله وعلمه