ahmed00 قام بنشر مايو 27, 2009 مشاركة قام بنشر مايو 27, 2009 السلام عليكم ورحمة الله وبركاته أخواني آمل هذه المرة الرد علي طلبي اريد ايقاف هذا الكود عند نسخ بيانات او اي خلية لا استطيع عمل النسخ في ظل عمل هذا الكود الكود بالملف آمل حل المشكل الملف كان من احد الاعضاء وليس مني أخوكم أحمد 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 رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 27, 2009 مشاركة قام بنشر مايو 27, 2009 السلام عليكم اخى الكريم النسخ يعمل مع هذا الكود ملاحظه:ليس من الضرورى تلوين كامل الصف لون على قدر الاعمده لديك رابط هذا التعليق شارك More sharing options...
ahmed00 قام بنشر مايو 27, 2009 الكاتب مشاركة قام بنشر مايو 27, 2009 أخي الكريم شكراً أولاً علي ردثانياً : حاول نسخ الارقام الموجودة في الصف رقم 10 مثلاً ستجد ان الكود عند الانتقال يغلق النسخأخوكأحمد رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 27, 2009 مشاركة قام بنشر مايو 27, 2009 هو لا يظهر في رايت كلك لكنه يكون موجود في الحافظه و تستطيع لصقه رابط هذا التعليق شارك More sharing options...
ahmed00 قام بنشر مايو 27, 2009 الكاتب مشاركة قام بنشر مايو 27, 2009 اخي انا فعلاً وجدتها في الحافظة بس الكود ده هيكون ضمن ملف سيتم ارساله الي محاسبي الفروع ومش منطقي كل المحاسبين هيعرفوا اللي انت قولته لي وكمان مكان الحافظة يعني انا بصعب عليهم المسأله لو في كود بديل يحل الموضوع دة اكون شاكرأخوك أحمد رابط هذا التعليق شارك More sharing options...
ahmed00 قام بنشر مايو 28, 2009 الكاتب مشاركة قام بنشر مايو 28, 2009 السلام عليكم ورحمة الله وبركاتهواضح ان المطلوب ليس له حل مثل طلبي السابقhttp://www.officena.net/ib/index.php?showtopic=28322شكراً تعبتكم معيأخوكمأحمد رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يونيو 2, 2009 مشاركة قام بنشر يونيو 2, 2009 السلام عليكم ورحمة الله وبركاتة تمنياتى لجميع الاخوة بالصحة والعافية والتوفيق بإذن الله الاخ احمد يمكن عمل ذلك اخى بأضافة هذا السطر فى بداية الكود الذى اشرت اليه 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 رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يونيو 2, 2009 مشاركة قام بنشر يونيو 2, 2009 السلام عليكم اخى ابو تامر رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يونيو 2, 2009 مشاركة قام بنشر يونيو 2, 2009 هل هو حلم أم حقيقة أبو تامر لقد طالت غيبتك أيها الأستاذ القدير و الله لقد اشتقنا لك و يعلم الله مدى اشتياقنا لك رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يونيو 2, 2009 مشاركة قام بنشر يونيو 2, 2009 شكرا اخى العزيز أبو اسامة شكرا اخى العزيز يحيى رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يونيو 3, 2009 مشاركة قام بنشر يونيو 3, 2009 (معدل) جزاك الله خيرا تم تعديل يونيو 3, 2009 بواسطه nasersaeed رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.