Using Excel
Closed
Charles
-
Jan 9, 2012 at 01:36 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jan 17, 2012 at 10:33 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jan 17, 2012 at 10:33 AM
Related:
- Using Excel
- Excel marksheet - Guide
- Number to words in excel - Guide
- Excel apk for pc - Download - Spreadsheets
- Kernel for excel - Download - Backup and recovery
- Excel date format dd.mm.yyyy - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Jan 17, 2012 at 10:33 AM
Jan 17, 2012 at 10:33 AM
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