can tthis countdown be done

Acehole

Board Regular
Joined
Sep 29, 2009
Messages
249
hello,
trying to count down from a number in a cell, C3 for exmaple, this will contain a random number.
i want excel to see this number then populate the rest of the cells c4 c5 c6 etc with the number decreasing.
so c3 will be 25 c4 will be 24 c5 will be 23 until it gets to 1
can this be done ?

regards

acehole
 

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.
One way:-
Code:
[COLOR="Navy"]Sub[/COLOR] MG20Mar52
[COLOR="Navy"]Dim[/COLOR] Tem [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]With[/COLOR] Range("C3")
    Tem = .value
    .value = 1
    .AutoFill Destination:=Range("C3").Resize(Tem), Type:=xlFillSeries
    .Resize(Tem).Sort Range("C3"), xlDescending
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Wow,
that works a treat as I suspected the forum would come up with the goods,
final question if possible
i have the numbers now counting down in cell c3 onwards
the cells a3 and b3 have information I would like to copy down to the last number in cell c
so it would look like this
a3. B3. C3


1234. 5. 25
1233. 5. 24
1234. 5. 23


cells a and b will not increase or decrease in value just need to copy down


thanks for the help
Acehole
 
Upvote 0
If you're referring to my code then try this:-

Code:
[COLOR="Navy"]Sub[/COLOR] MG20Mar43
[COLOR="Navy"]Dim[/COLOR] Tem [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]With[/COLOR] Range("C3")
    Tem = .value
    .value = 1
    .AutoFill Destination:=Range("C3").Resize(Tem), Type:=xlFillSeries
    .Resize(Tem).Sort Range("C3"), xlDescending
    Range("A3:B3").Resize(Tem).value = .Offset(, -2).Resize(, 2).value
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Hi mick thank you for the replies
i am trying your formula now but can't get it to work, being a novice I guess I am putting the code in the wrong place?
any suggestions
thanks
acehole
 
Upvote 0
hi Mick,
when your code runs i get this error message come up on this line

.AutoFill Destination:=Range("C3").Resize(Tem), Type:=xlFillSeries

looks like it fills the numbers down but not the columns a and b and their infomation

regards
acehole
 
Upvote 0

Forum statistics

Threads
1,213,536
Messages
6,114,210
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top