check box in the cell

[ابو اسامة العينبوسي]

السلام عليكم

قد تحتاج احيانا الى وضع علامه على صف تمت مراجعته

او قيد محسابي تم تدقيقه

في العمود E يتم وضع علامه

check.rar

تم تعديل يوليو 24, 2007 بواسطه ابو اسامة العينبوسي

[أبوعبد الله]

أخي الحبيب أبو أسامة

جزاك الله خيرا على الفكرة الجميلة ولكن كيف يمكن نقلها لملف آخر للإستفادة منها خاصة أنني لم ألاحظ وجود أكواد بالملف إلا إذا كان كود مخفي ، رجاء توضيح الطريقة مع جزيل الشكر .

أبو عبدالله

[ابو اسامة العينبوسي]

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iOffset As Integer
On Error GoTo err_handler
Application.EnableEvents = False
If Not Application.Intersect(Target, Columns("E")) Is Nothing Then
If IsEmpty(Target.Value) Then
With Target
.Font.Name = "Wingdings"
.Value = Chr(252)
End With
Target.Offset(0, iOffset).Select
Else
Target.Value = ""
Target.Offset(0, iOffset).Select
End If
End If
err_handler:
Application.EnableEvents = True
End Sub

هو موجود في الورقه الاولى

[سمير هنداوي]

أخي أبو أسامة

طريقة جميلة و رائعة للمراجعة لأنني أعمل محاسب مالي

و يوجد حاجة بسيطة في الكود عند تحديد اي صف يتم مسح البيانات الموجودة بالصف

برجاء المراجعة

أخوك

سمير هنداوي

تم تعديل يوليو 24, 2007 بواسطه سمير هنداوي

[ابو اسامة العينبوسي]

حاضر اخ سمير

لم اعمل مسح حتى لا تفقد البيانات لكن تعمل اخفاء

تم تعديل يوليو 24, 2007 بواسطه ابو اسامة العينبوسي

[أبو عادل]

أخونا أبو أسامة

جزاك الله كل خير والله انت موهوب

ما شاء الله لا قوة إلا بالله

[سمير هنداوي]

مشكور اخي ابو ابو أسامة

مازالت الكود يمسح البيانات عند التاشير بالماوس على رأس اي صف

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

أما الباقي فتمام الله يفتح عليك

برجاء المراجعة

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

أخوك المحب

سمير هنداوي

[ابو اسامة العينبوسي]

السلام عليكم

check2.rar

[سمير هنداوي]

رائع ابو اسامة

بارك الله فيك

فاضل حد المسح بس

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

انا تعبتك معي ابو أسامة و الله

انا أسف

إن شاء الله ربنا هيهديك لها

أخوك

سمير هنداوي

تم تعديل يوليو 25, 2007 بواسطه سمير هنداوي

[ابو اسامة العينبوسي]

السلام عليكم

لك ما طلبت

لكن لا فائده بعد ذلك من التحديد(حسب رايي)

check2.rar

[سمير هنداوي]

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

و جعله في ميزان حسناتك يوم القيامة

[wik]

thanks a lot