تعديل في هذا الكود

[ahmed00]

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

أخواني آمل هذه المرة الرد علي طلبي اريد ايقاف هذا الكود عند نسخ بيانات او اي خلية لا استطيع عمل النسخ في ظل عمل هذا الكود الكود بالملف آمل حل المشكل

الملف كان من احد الاعضاء وليس مني

أخوكم

أحمد

   Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    If Target.Cells.Count = 1 Then
        With Rows(Target.Row).Interior
            .ColorIndex = 22
            .Pattern = xlSolid
        End With
    End If
End Sub

__________________.zip

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

السلام عليكم

اخى الكريم النسخ يعمل مع هذا الكود

ملاحظه:ليس من الضرورى تلوين كامل الصف

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

[ahmed00]

أخي الكريم شكراً أولاً علي رد

ثانياً : حاول نسخ الارقام الموجودة في الصف رقم 10 مثلاً ستجد ان الكود عند الانتقال يغلق النسخ

أخوك

أحمد

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

هو لا يظهر في رايت كلك لكنه يكون موجود في الحافظه

و تستطيع لصقه

[ahmed00]

اخي انا فعلاً وجدتها في الحافظة بس الكود ده هيكون ضمن ملف سيتم ارساله الي محاسبي الفروع ومش منطقي كل المحاسبين هيعرفوا اللي انت قولته لي
وكمان مكان الحافظة يعني انا بصعب عليهم المسأله
لو في كود بديل يحل الموضوع دة اكون شاكر

أخوك

أحمد

[ahmed00]

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

واضح ان المطلوب ليس له حل مثل طلبي السابق

http://www.officena.net/ib/index.php?showtopic=28322

شكراً تعبتكم معي

أخوكم

أحمد

[omar elhosseini]

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

تمنياتى لجميع الاخوة بالصحة والعافية والتوفيق بإذن الله

الاخ احمد

يمكن عمل ذلك اخى

بأضافة هذا السطر فى بداية الكود الذى اشرت اليه

If Application.CutCopyMode Then Exit Sub

وهو يعمل على ايقاف الكود عند قيامك بالنسخ ثم اضف هذا الروتين الذى يعمل على تشغيل الكود بعد اكتمال عملية اللصق

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

شاهد المرفق اخى

Highlight_omar.rar

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

السلام عليكم

اخى ابو تامر

[يحيى حسين]

هل هو حلم أم حقيقة

أبو تامر

لقد طالت غيبتك أيها الأستاذ القدير

و الله لقد اشتقنا لك

و يعلم الله مدى اشتياقنا لك

[omar elhosseini]

شكرا اخى العزيز أبو اسامة

شكرا اخى العزيز يحيى

[ناصر سعيد]

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

تم تعديل يونيو 3, 2009 بواسطه nasersaeed