اخذ الراى

[احمد عـــزام]

السلام عليكم / اشكركم على المجهود المبذول من جانب جميع الاعضاء وخاصه كل الشكر لكل القائمين بهذا العمل

انا اعمل فى مجال الموارد البشريه ومرفق ملف احتاج الى مساعده فيه

باختصار شديد نظام العمل بالشركه التى اعمل بها 24 ساعه عمل منقسمه الى

نوبتين نوبه صباحيه منالساعه 8 الى الساعه 20

ونوبه مسائيه من الساعه 20 الى الى الساعه 8

اقوم بتفريغ ذلك على شيت اكسل يدويا طبقا للنوذج المرفق

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

وكل ما طلبه هلى يوجد شى اسهل من الذى اقوم به

ابريل2011.rar

[عبد الفتاح كيرة]

عليكم السلام

هذا كود لتنفيذ المطلوب

Sub MakeX()

Dim myrng As Range, myc As Range

Set myrng = Range("kemas")

For Each myc In myrng

    If myc = "" Then

        myc = "X"

    End If

Next myc

Set myrng = Nothing

End Sub

المرفق

ابريل2011kemas.rar

[دغيدى]

أخى الفاضل / أبو عمر

الله ينور عليك وعلى والديك

أنا قاعد وفاضى .. ومستمتع بالفرجة

استبدلت ( x ) بلفظ الجلالة فكانت روعة

[احمد عـــزام]

بارك الله فيك وجزاك الله كل خير

عليكم السلام

هذا كود لتنفيذ المطلوب

Sub MakeX()

Dim myrng As Range, myc As Range

Set myrng = Range("kemas")

For Each myc In myrng

    If myc = "" Then

        myc = "X"

    End If

Next myc

Set myrng = Nothing

End Sub

المرفق

[احمد عـــزام]

طب لو انا عايز اعملها على خلايا متباعده زى name manger لكن كلهم بعيد عن بعض الكود يبقى اذاى

Sub MakeX()

Dim myrng As Range, myc As Range

Set myrng = Range("kemas")

For Each myc In myrng

If myc = "" Then

myc = "X"

End If

Next myc

Set myrng = Nothing

End Sub

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

اخي الفاضل

بعد اذن الاستاذ الفاضل ابوعمر

الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت

فما هو المقصود name manger

ابواحمد

[احمد عـــزام]

ابو عمر و ابو احمد اشكركم كثيرا

مرفق الملف الموضح به ماذا اريد

اشكركم جدا على تعاونكم

اخي الفاضل

بعد اذن الاستاذ الفاضل ابوعمر

الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت

فما هو المقصود name manger

ابواحمد

نطاق متعدد.rar

[احمد عـــزام]

اشكركم تم فعلها بااضافه , بعد اسم النطاق

Set myrng = Range("azzam1,azzam2,azzam3")

ابو عمر و ابو احمد اشكركم كثيرا

مرفق الملف الموضح به ماذا اريد

اشكركم جدا على تعاونكم

اخي الفاضل

بعد اذن الاستاذ الفاضل ابوعمر

الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت

فما هو المقصود name manger

ابواحمد

[احمد عـــزام]

طب هل فى امكانيه لمسح علامه ْX بعد عملها

بمعنى بعد الضغط على ذر وضع X اريد بيضاء مره اخرى

[عبد الفتاح كيرة]

الأخ جمال

شكرا كثيرا لك

ولك مثل دعائك لى

==

الأخ azzam egy

منبهر به و هو يسأل و يعلم نفسه

أعتقد السؤال الثانى أسهل

طب هل فى امكانيه لمسح علامه ْX بعد عملها

سيكون التعديل فى جملة if

If myc = "" Then

تصير

If myc = "x" Then

myc = ""

وفقك الله

[احمد عـــزام]

اخى الفاضل ابو عمر لم يفعل رجاء توضيخ

ub azzamdelletex()

Dim myrng As Range, myc As Range

Set myrng = Range("page1,page2,page3,page4,page5,page6,page7,page8,page9,page10,page11,page12,page13")

For Each myc In myrng

If myc = "x" Then

myc = ""

End If

Next myc

Set myrng = Nothing

End Sub

[عبد الفتاح كيرة]

هذه ال page(s)

ما هى

هل هى نطاقات أم صفحات ؟