اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

قام بنشر

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

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



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

قام بنشر

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information