Cell Input

[fello]

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

 

[Jacob Skaria]

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("D130")
Range("D231") = varData
Range("D1") = Target.Value
End If
End If
Application.EnableEvents = True
End Sub


If this post helps click Yes

 

[fello]

Thanks Jacob
your knowledge and experience is appreciated