Filling data in specific way.

[Matrix335]

[/CODE]
I am working on a project which requires to fill the data in specific way. After filling the 3 values in Col3, i should fill the data in Col4. After that i will start filling the data in the Col1 with new row and so on
Please check the following code.

Thank you.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Dim tAd As Variant
    tAd = Split(Target.Address, "$")
    Dim rowRemainder As Long
    rowRemainder = tAd(2) Mod 3
    
    If tAd(1) = "A" Then
        Range("B" & Target.Row).Activate
    ElseIf tAd(1) = "B" Then
        Range("C" & Target.Row).Activate
    ElseIf tAd(1) = "C" Then
        Range("D" & Target.Row).Activate
    ElseIf tAd(1) = "D" Then
          If rowRemainder = 1 Then
            Range("A" & Target.Row + 1).Activate
         Else
            Range("D" & Target.Row + 1).Activate
            
        End If
    End If
    
End Sub

 

[bebo021999]

It works like this:
1- select A2
2- Type 1
3- Enter
4- Type 1
5- Enter .
....

 

[Matrix335]

It works like this:
1- select A2
2- Type 1
3- Enter
4- Type 1
5- Enter .
....

View attachment 53928

Can we modify the code to enter 5 values on each column of D, E and F instead of 3 in each sequence?

 

[bebo021999]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x&, y&, rT&, cT&
Dim sCell As Range
Set sCell = Range("A2") ' adjust actual start cell
rT = (Target.Row - sCell.Row) Mod 5 ' 3 is rows number each sequence
cT = (Target.Column - sCell.Column) Mod 6 ' 6 is columns number each sequence
If Intersect(Target, sCell.Resize(100000, 6)) Is Nothing Then Exit Sub
    Select Case cT
        Case Is < 3
            x = 0: y = 1
        Case Is < 5
            Select Case rT
                Case Is < 4
                x = 1: y = 0 'x,y is offset steps of target cell
                Case Else
                x = -4: y = 1
            End Select
        Case Else
             Select Case rT
                Case Is < 4
                x = 1: y = 0
                Case Else
                x = 1: y = -5
             End Select
   End Select
Target.Offset(x, y).Select
End Sub