To duplicate action

Hi,

 

Hi i have this formula which when a value is key in a box lets say A1, the value will move to B1 move to new box C2 etc when a value is key. However I cant seem to duplicate for the next row.

How can it be done? Please help.

Formula below -:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim col As Integer

 

If Target.Address = “$K$8” Then

col = Range(“W7”).End(xlToLeft).Column + 1

Cells(7, col).Value = Range(“K7”).Value

Range(“K7”).Value = “”

End If

End Sub

By: idham

Leave a Reply

Your email address will not be published. Required fields are marked *