Xima Alfadni قام بنشر أكتوبر 21, 2014 مشاركة قام بنشر أكتوبر 21, 2014 السلام عليكم في المثال المرفق المرجو تصحيح كود الحذف حيث انى اريد حذف نطاق متغير في ورقة 2 من زر في ورقة 1 وشكرا Del.zip رابط هذا التعليق شارك More sharing options...
وائل احمد المصري قام بنشر أكتوبر 21, 2014 مشاركة قام بنشر أكتوبر 21, 2014 برجاء الاطلاع على المرفق Del3.rar رابط هذا التعليق شارك More sharing options...
وائل احمد المصري قام بنشر أكتوبر 21, 2014 مشاركة قام بنشر أكتوبر 21, 2014 لعل المانع خيرا" هل وفى المرفق الغرض ان كان رجاء الرد حتى نغلق هذا الامر شكرا" رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 21, 2014 مشاركة قام بنشر أكتوبر 21, 2014 برجاء الاطلاع على المرفق تسلم أخي الحبيب وائل .. حل رائع اسمح لي أن أقوم بإضافة سطر واحد لكودك بحيث لا يحذف العناوين إذا تم الضغط مرتين على زر الحذف Dim ER As Integer Dim ws As Worksheet Set ws = Sheets("User") Application.ScreenUpdating = False tsheet = ActiveSheet.Name ws.Select ER = [L15000].End(xlUp).Row If ER = 1 Then Exit Sub Range("K2:L" & ER).Select Selection.ClearContents Sheets(tsheet).Select Application.ScreenUpdating = True 1 رابط هذا التعليق شارك 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.