ارجو المساعدة بكود لجلب ارقام الشهر التى تحتها حرف غ

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

مرفق الملف موضح به المطلوب

وجزاكم الله كل خير على كل ماتقدمونه

 

غ.rar

[فضل حسين]

للرفع

[فضل حسين]

للرفع

[فضل حسين]

الى خبراء واعضاء هذا الصرح العظيم

ارجو المساعدة بكود لتحقيق المطلوب

وللجميع وافر الشكر والاحترام والعرفان والتقدير

[فضل حسين]

للرفع

[عبدالله المجرب]

السلام عليكم 

ضع هذا الكود في زر أمر في الورقة 1

Sub Abu_Ahmed()
Dim Cel As Range
Dim I As Integer, MyStrt As Integer, Myend As Integer
Range("E10:E100").ClearContents
MyName = [C10]
Select Case [E9].Value
    Case Is = "سبتمبر"
     MyStrt = 3
     Myend = 12
Case Is = "اكتوبر"
     MyStrt = 15
     Myend = 24
Case Is = "نوفمبر"
     MyStrt = 27
     Myend = 36
End Select
For Each Cel In Sheets("ورقة2").Range("B6:B94")
If Cel = MyName Then
For I = MyStrt To Myend
If Sheets("ورقة2").Cells(Cel.Row, I) = "غ" Then
Range("E" & [E10000].End(xlUp).Row + 1) = Sheets("ورقة2").Cells(2, I).Value
End If
Next
GoTo 1
End If
Next
1 MsgBox "تم العملية "
End Sub

 

 

للعلم فالكود يعتمد على الأسم والشهر

[فضل حسين]

^{استاذى الفاضل / المايسترو}

^{اسعدك الله ياحبيبى كما تسعدنا باعمالك الجميلة . وبارك الله فيك وجزاك الله عنا كل خير .}

^{مفيش احسن ياحبيبى من كدة ولااجمل من كده . كل الشكر والتقدير والمحبة لشخصكم الكريم}

^{نفسى ياسيدى الفاضل ان اقابلك وجها لوجه واصافحك واحييك على اعمالك الرائعة .}

^{فأنت شخصية جميلة معطائه عظيمة تستحق كل التقدير والاحترام}

^{ولاننسى ياخلق هوووووه ان هو ده مايسترو الاكسل يمتعنا دائما بأعماله}

^فضل

تم تعديل أبريل 8, 2013 بواسطه فضل 1