Spin Button changing Time.

[user21136]

Hi,

I'm trying to change the hour and minutes 00:00 of selected cells using 2 spin buttons (one for hour and one for minute).

Using a Control spin button this is what I have but it just changes the date

Sub SpinButton1_GotFocus()
    ActiveCell.Activate
End Sub

Sub SpinButton1_SpinUp()
    With ActiveCell
        .Value = .Value + 1
    End With
End Sub

Sub SpinButton1_SpinDown()
    With ActiveCell
        .Value = .Value - 1
    End With
End Sub

Any ideas please?

Cheers, Glenn.

 

[mole999]

1 = a day

0.5 = 12 hours, think that's the problem

0.0066666666666667 = 1 minute

 

[user21136]

1 = a day

0.5 = 12 hours, think that's the problem

0.0066666666666667 = 1 minute

Thanks!

Change hours: .Value = .Value + 1 / 24
Change minutes: .Value = .Value + 1 / 1440

Cheers.

 

[user21136]

One other thing...

I noticed the "Forms" buttons look nicer than the Control variety

Is there a way to use the above code with a Forms spin button. I noticed if I add a Forms spin button it's called "Spinner 393".

Thanks.

 

[mole999]

not sure about forms buttons, i've just recently started using shapes (ANY SHAPE), and making them run a macro, they seem to run so much faster, just don't do a nice visual up / down