طلب مساعدة في تصحيح الكود في الملف المرفق يا كرام

[aljuhani]

مع التحية والتدير 

آمل مساعدتي في تصحيح الكود في الملف المرفق بحيث أنه بعد تعبئة الخلية a1 وبعد مرور ثانية ينتقل المؤشر للخلية a2 ، وتستمر العملية لـ a3 ثم a4 إلخ ... 

حيث أن الكود المرفق لم يعمل ود أعياني ذلك . 

ولكم خالص الود وأكمله

011.xlsm

[aljuhani]

للتوضيح احتاج هذا الكود في قراءة جهاز الباركود 

أي بعد تعبئته للبيانات في الخلية A1 ينتقل بشكل أتوماتيكي للخلية A2  وبعدها للخلية A3 الخ 

ارجوا المساعدة مع الشكر الجزيل 

[aljuhani]

هل من مساعد لي في ذلك . 

[عبدالله بشير عبدالله]

السلام عليكم 

حسب فهمى لطلبك انك تكتب في الخلية A1  يبقى الكود ثانية ثم ينتقل الى الخلايا التي بعدها في نفس العمود والفارق الزمني ثانيةواحدة  بين نقلة واخري

الكود ينتقل الى اخر خلية فيها بيانات ثم يتوقف

يمكن تعديل الزمن في الكود الى اي مدة 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next

    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        If Target.Value <> "" Then
            Application.OnTime Now + TimeValue("00:00:01"), "MoveToNextCellContinuously"
        End If
    End If
End Sub
Sub MoveToNextCellContinuously()
    Static NextCell As Range
    On Error Resume Next
    If NextCell Is Nothing Then
        Set NextCell = Worksheets("Sheet1").Range("A2")
    Else
        Set NextCell = NextCell.Offset(1, 0)
    End If
    
    If NextCell.Row <= Worksheets("Sheet1").Rows.Count And NextCell.Value <> "" Then
        NextCell.Select
        Application.OnTime Now + TimeValue("00:00:01"), "MoveToNextCellContinuously"
    End If
End Sub

الملف

011.xlsm