Hi,

 

Paste the below macro in the ThisWorkbook module :

 

Private Sub Workbook_Open()

    Application.OnKey "{UP}", "Plus"

    Application.OnKey "{DOWN}", "Minus"

End Sub

 

Paste the bellows macros in a standard module :

 

Sub Plus()

    With Sheets("Sheet1")

        If ActiveSheet.Name = .Name Then

            .[H11] = Application.Min(.[H11] + 1, 16)

        End If

    End With

End Sub

 

Sub Minus()

    With Sheets("Sheet1")

        If ActiveSheet.Name = .Name Then

            .[H11] = Application.Max(.[H11] - 1, 0)

        End If

    End With

End Sub

 

Regards.

 

Daniel

 

De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Cab Boose
Envoyé : samedi 3 septembre 2011 03:13
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Counter in a Cell

 

Hi

 

In attached Sheet1, I want the cell to count from 0 to 16 up and down in
between. The count is of times up arrow and down arrow are pressed.

 

To set speed from, 0 to 16 for model railroad project.

 

Your advice appreciated.

 

Thanks

 

Charlie Harris

-- 
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at  <http://exceldailytip.blogspot.com>
http://exceldailytip.blogspot.com

To post to this group, send email to  <mailto:excel-macros@googlegroups.com>
excel-macros@googlegroups.com
 
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
 <http://www.facebook.com/discussexcel> http://www.facebook.com/discussexcel

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to