مساعدة في الانتقال من خلية إلى أخرى على صف واحد

[الجزيرة]

السلام عليكم ورحمة الله وبركاته

تم الشرح في المرفق ، بارك الله فيكم : )

Book____1.rar

[مصطفى كمال]

السلام عليكم ورحمة الله وبركاته

أخي الكريم حسب فهمي للملف

هل ينفع إخفاء الأعمدة التي تفصل بين العمودين ويصير العمودان متلاصقان فيسهل العمل في هذه الحالة

[علي سالم 75]

السلام عليكم ورحمة الله وبركاته

ادخل هذا الكود في موديل الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Target.Column = 8 And Target.Row > 2 Then

    If IsNumeric(Target) Then

        MsgBox "ادخل التاريخ"

        Cells(Target.Row, "R").Select

    End If

End If

End Sub

هذا ما تعلمناه من هذا المنتدى

[الجزيرة]

وعليكم السلام ورحمة الله وبركاته

أخي مصطفى كمال

فكرتك جميلة ولكن يتوجب بعد إدخال التاريخ إعادة الأعمدة المخفية

أشكر لك حضورك الطيب : )

------------

أخي بليش روغ

أبدعت ، فجزاك الله الف خير

وبارك الله لنا ولك في هذا المنتدى العظيم : )

[احمد فضيله]

السلام عليكم ورحمة الله وبركاته

ادخل هذا الكود في موديل الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Target.Column = 8 And Target.Row > 2 Then

    If IsNumeric(Target) Then

        MsgBox "ادخل التاريخ"

        Cells(Target.Row, "R").Select

    End If

End If

End Sub

هذا ما تعلمناه من هذا المنتدى

السلام عليكم ورحمة الله و بركاته

الاستاذ / بليش روغ

عمل رائع .. جزاك الله كل خير حل ممتاز لفكرة الاستاذ / ابو عبد الله

بارك الله فيك و علمك ما ينفعك و نفعك بما علمك

و السلام عليكم ورحمة الله و بركاته