تعديل كود دبل كليك

[خالد القدس]

السلام عليكم

الاخوة الافاضل

هذا الكود في حدث دبل كليك في الورقة

عند الضغط دبل كليك على اى خلية في العمود رقم 2 يتم كتابة عبارة حجب في العمود رقم 92 من نفس الصف

وعند الضغط على العمود رقم 3 يتم مسح محتوى خلية العمود 92

والمشكلة ان هذا الامر ينطبق على كل العمود

والمطلوب ان يتم التطبيق في على مدى محدد مثلا من الصف رقم 20 الى الصف رقم 100

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error GoTo D_Date

If Target.Column = 2 Then Cells(Target.Row, 93) = "حجب"

If Target.Column = 3 Then Cells(Target.Row, 93) = ""

D_Date:

Application.EnableEvents = True

Application.ScreenUpdating = False

End Sub

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا  

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo D_Date
If Target.Column = 2 And Target.Row >= 20 And Target.Row <= 100 Then Cells(Target.Row, 93) = "حجب"
If Target.Column = 3 And Target.Row >= 20 And Target.Row <= 100 Then Cells(Target.Row, 93) = ""
D_Date:
Application.EnableEvents = True
Application.ScreenUpdating = False
End Sub

 

تحياتي

[خالد القدس]

السلام عليكم<br /><br />هذا هو المطلوب<br /><br />بارك الله فيك استاذ احمد ونفع بعلمك

[حمادة عمر]

السلام عليكم

اخي الكريم / احمد عبد الناصر

 

احسنت بالفعل

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

[أبو محمد أشرف]

بارك الله فيك اخي الحبيب أحمد

[خالد القدس]

السلام عليكم<br /><br />أستاذ أحمد هل لي أن أطمع في إضافة سحرية على الكود فيكون كالاتي<br /><br />عند الضغط دبل كليك في العمود الثاني في المدى المحدد اذا كان في الخلية 93 مكتوب كلمة حجب تمسح وان لم تكن مكتوبة تكتب<br /><br />يعنى بدل شرط لتنفيذ الامر عند الضغط على العمود الثانى وشرط اخر على الضغط على العمود الثالث<br /><br />جمع الشرطين في أمر واحد<br />

[خالد القدس]

السلام عليكم<br /><br />نسيت أن اذكر أن هذا الكود الرائع في الأصل من ابداعات الاستاذ الباشمهندس طارق<br /><br />جزاه الله خيرا

[احمد عبد الناصر]

السلام عليكم

 

اسعد الله صباحك استاذ خالد 

 

و تحياتي بالطبع لاستاذنا الفاضل طارق

 

جرب هذا 

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo D_Date
If Target.Column = 2 And Target.Row >= 20 And Target.Row <= 100 Then
If Cells(Target.Row, 93) = "حجب" Then Cells(Target.Row, 93).ClearContents Else Cells(Target.Row, 93) = "حجب"
Cancel = True
End If
D_Date:
Application.EnableEvents = True
Application.ScreenUpdating = False
End Sub

[خالد القدس]

لا اله إلا الله محمد رسول الله<br /><br />ساعات وأنا أحاول تعديل الكود دون جدوى<br /><br />فعلا أسال خبير ولا تسأل طبيب<br /><br />وما يبئك مثل خبير<br /><br />فتح الله عليك استاذ احمد وجزاك الله خيرا