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

**إبراهيم ابوليله** · مارس 8, 2013

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

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

مرفق شيت

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

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

**حسين العصلوجى** · مارس 8, 2013

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

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

الثاني كود

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

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

**إبراهيم ابوليله** · مارس 8, 2013

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

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

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

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

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

ولى طلب اخر

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

مرفق شيتBook1.rar

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

**حسين العصلوجى** · مارس 8, 2013

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

تفضل المرفق

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

**إبراهيم ابوليله** · مارس 10, 2013

الاخ حسين

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

بارك الله فيك

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

الردود الموصى بها