Cell Input
 

I am trying to input a number in Cell B -1 that will then appear in Cell
D-1 , and when there is a new entry in Cell B-1 , Cell D-1 will accept the
new entry from Cell B-1 and the old input will drop from Cell D-1 to Cell D-2
and so on all the way to Cell D-31 . Is it possible to do this ?
thank you

Cell Input
 

This can be done using the worksheet change event. Right click the sheet
tab View code and paste the below code..Try entering values in B1..

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
If Target.Count = 1 And Target.Value < "" Then
varData = Range("D1:D30")
Range("D2:D31") = varData
Range("D1") = Target.Value
End If
End If
Application.EnableEvents = True
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"fello" wrote:

I am trying to input a number in Cell B -1 that will then appear in Cell
D-1 , and when there is a new entry in Cell B-1 , Cell D-1 will accept the
new entry from Cell B-1 and the old input will drop from Cell D-1 to Cell D-2
and so on all the way to Cell D-31 . Is it possible to do this ?
thank you

Cell Input
 

Thanks Jacob
your knowledge and experience is appreciated

"Jacob Skaria" wrote:

This can be done using the worksheet change event. Right click the sheet
tab View code and paste the below code..Try entering values in B1..

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
If Target.Count = 1 And Target.Value < "" Then
varData = Range("D1:D30")
Range("D2:D31") = varData
Range("D1") = Target.Value
End If
End If
Application.EnableEvents = True
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"fello" wrote:

I am trying to input a number in Cell B -1 that will then appear in Cell
D-1 , and when there is a new entry in Cell B-1 , Cell D-1 will accept the
new entry from Cell B-1 and the old input will drop from Cell D-1 to Cell D-2
and so on all the way to Cell D-31 . Is it possible to do this ?
thank you