1 reply
TrowaD
- Posts
- 2693
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- January 18, 2021
Hi Charles,
Don't think this can be done by using a formula, so try this code:
To implement the code, right-click on the sheets tab and select "view code". A new window opens up, now copy-paste the code in the big white field. You can close the newly opened window and check if the code does what you want by entering numbers in C3 of that particular sheet.
Best regards,
Trowa
Don't think this can be done by using a formula, so try this code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Intersect(Target, Range("C3")) Is Nothing Then Exit Sub
x = 11
Do
Range("E" & x - 1).Copy Destination:=Range("E" & x)
x = x - 1
Loop Until x = 4
Range("C3").Copy Destination:=Range("E4")
End Sub
To implement the code, right-click on the sheets tab and select "view code". A new window opens up, now copy-paste the code in the big white field. You can close the newly opened window and check if the code does what you want by entering numbers in C3 of that particular sheet.
Best regards,
Trowa
Subscribe To Our Newsletter!
