مشكله نرجوا من الله ثم من الأخوه الأعضاء ح&#16

[MGS]

مشكلتى انه استخدمت 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 ) ما السبب افيدونى

[امان]

السلام عليكم

لو كان بالامكان ارفاق الملف أو نسخة منه ليتمكن الأخوة من معرفة سبب الخلل لكان أفضل

[MGS]

هذا هو الملف ارجو ان يصل

[MGS]

لم اتمكن من ارفاق الملف لوجود مشكله فى الأبلود

[MGS]

الحمد لله تمكنت من ارفاقه

auto.rar

[يحيى حسين]

اليلام عليكم و رحمة الله

جرب هذا الكود اخي و هو نفس كودك و لكن مع اضافة اول سطر

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

[الحسامي]

السلام عليكم

اخي الحبيب يحيى حسين دائما متميز ومبدع

وبعد إذن أخي يحيى لأثراء الموضوع

اخي الكريم استخدم الكود التالي في الحدث 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

[MGS]

افادكم الله ممتاز والله بارك الله فيكم وزادكم من فضله وعلمه وجعلكم عونا للجميع