MGS قام بنشر يوليو 18, 2010 مشاركة قام بنشر يوليو 18, 2010 مشكلتى انه استخدمت AUTO COUNTER ( Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" And Target.Value <> "" Then Target.Offset(1, 2).Value = Target.Offset(1, 2).Value + 1 Target.Select End If End Sub ) فى تنفيذ عد فواتير وذلك على خليه يكتب فيها اسم الفاتورة ثم قمت بعمل ماكرو يمسح الفاتورة وكذلك الأسم ولكن حدث خطأ(Sub clear() ' ' clear Macro ' MGS ' ' Range("A4").Select ActiveWindow.SmallScroll Down:=0 Range("A4:A37").Select ActiveWindow.SmallScroll Down:=-39 Selection.ClearContents Range("C4:C37").Select Selection.ClearContents Range("b1").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=-27 End Sub ) ما السبب افيدونى رابط هذا التعليق شارك More sharing options...
امان قام بنشر يوليو 18, 2010 مشاركة قام بنشر يوليو 18, 2010 السلام عليكم لو كان بالامكان ارفاق الملف أو نسخة منه ليتمكن الأخوة من معرفة سبب الخلل لكان أفضل رابط هذا التعليق شارك More sharing options...
MGS قام بنشر يوليو 19, 2010 الكاتب مشاركة قام بنشر يوليو 19, 2010 هذا هو الملف ارجو ان يصل رابط هذا التعليق شارك More sharing options...
MGS قام بنشر يوليو 19, 2010 الكاتب مشاركة قام بنشر يوليو 19, 2010 لم اتمكن من ارفاق الملف لوجود مشكله فى الأبلود رابط هذا التعليق شارك More sharing options...
MGS قام بنشر يوليو 19, 2010 الكاتب مشاركة قام بنشر يوليو 19, 2010 الحمد لله تمكنت من ارفاقه auto.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يوليو 19, 2010 مشاركة قام بنشر يوليو 19, 2010 اليلام عليكم و رحمة الله جرب هذا الكود اخي و هو نفس كودك و لكن مع اضافة اول سطر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$1" Then Exit Sub If Target.Address = "$B$1" And Target.Value <> "" Then Target.Offset(1, 2).Value = Target.Offset(1, 2).Value + 1 Target.Select End If End Sub رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 19, 2010 مشاركة قام بنشر يوليو 19, 2010 السلام عليكم اخي الحبيب يحيى حسين دائما متميز ومبدع وبعد إذن أخي يحيى لأثراء الموضوع اخي الكريم استخدم الكود التالي في الحدث Change Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b1")) Is Nothing Then If Target.Value <> "" Then Target.Offset(1, 2).Value = Target.Offset(1, 2).Value + 1 Target.Select End If End If End Sub ولكود المسح استخدم الكود التالي Range("b1,A4:a37,C4:C37,d4:d37").ClearContents رابط هذا التعليق شارك More sharing options...
MGS قام بنشر يوليو 19, 2010 الكاتب مشاركة قام بنشر يوليو 19, 2010 افادكم الله ممتاز والله بارك الله فيكم وزادكم من فضله وعلمه وجعلكم عونا للجميع رابط هذا التعليق شارك 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.