ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   count how many times a button is pressed (https://www.excelbanter.com/excel-discussion-misc-queries/69731-count-how-many-times-button-pressed.html)

Mike

count how many times a button is pressed
 
Hi i am using excel to print out cells from a form button using this macro
"ActiveSheet.Range("a8:b8").PrintOut preview:=False" is there a way i can
modify it to count how many times the button is pressed and that amount shown
in an adjecent cell please
--
thanks

Paul B

count how many times a button is pressed
 
Mike, you could add a line of code to your macro like this, will add 1 to
sheet1 range A1 each time it is run

Sheets("Sheet1").Range("A1").Value = _
Sheets("Sheet1").Range("A1").Value + 1


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Mike" wrote in message
...
Hi i am using excel to print out cells from a form button using this macro
"ActiveSheet.Range("a8:b8").PrintOut preview:=False" is there a way i

can
modify it to count how many times the button is pressed and that amount

shown
in an adjecent cell please
--
thanks




Leith Ross

count how many times a button is pressed
 

Hello Mike,

Add this code to a VBA module in your workbook. It will place the
number of times the button has been pushed in the cell to the right of
the button and then call the print function.

______________________________
Public Sub ButtonCount()

Dim Col As Long
Dim Row As Long

With ActiveSheet.Shapes(Application.Caller)
Row = .TopLeftCell.Row
Col = .BottomRightCell.Column
End With

With Cells(Row, Col)
.Value = .Value + 1
End With

ActiveSheet.Range("a8:b8").PrintOut preview:=False
End Sub
______________________________

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=508788



All times are GMT +1. The time now is 02:51 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com