VBA coding for the question

[vishwajeet_chakravorty]

Dear Sir, Suppose I write any number (Example 100) in Cell A1, the cells A2 to A12 should be filled with the same number automatically. And again in cell A4 I write any other number, the cell from A5 to A12 should be filled with the same number automatically. How to write a VBA code for this thing to happen?

 

[vishwajeet_chakravorty]

You should be able to see a pattern emerging:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 15 Then
    Select Case Target.Column
        Case 1, 3, 6
            Application.EnableEvents = False
            Range(Cells(Target.Row + 1, Target.Column), Cells(15, Target.Column)).Value = Target.Value
            Application.EnableEvents = True
    End Select
End If
End Sub

Sir, This is working from A1 to A15 But I want from A5 to A15,C5 to C15 and E5 to E15. I want to see the whole pattern to learn.

 

[VoG]

This is not difficult

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then
    Select Case Target.Column
        Case 1, 3, 5
            Application.EnableEvents = False
            Range(Cells(Target.Row + 1, Target.Column), Cells(15, Target.Column)).Value = Target.Value
            Application.EnableEvents = True
    End Select
End If
End Sub