ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   how to reset data entry cells to 0 or empty (https://www.excelbanter.com/excel-programming/355799-how-reset-data-entry-cells-0-empty.html)

Bruce[_9_]

how to reset data entry cells to 0 or empty
 
Is there a form button a spreadsheet user can use to reset data entry cells
to 0 or empty?

TIA
Bruce



Chip Pearson

how to reset data entry cells to 0 or empty
 
You'd have to code the cells yourself. E.g.,

Private CommandButton1_Click()
Range("A1").Value = ""
Range("B1").Value = ""
' etc
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Bruce" wrote in message
...
Is there a form button a spreadsheet user can use to reset data
entry cells to 0 or empty?

TIA
Bruce




Bruce[_9_]

how to reset data entry cells to 0 or empty
 
PS
I posted this question on 8.3.06, but cannot access the response from Norman
Jones.

Bruce



Tom Ogilvy

how to reset data entry cells to 0 or empty
 
Hi Bruce,

Try assigning the following code to a button:

'=============
Public Sub Tester()
Dim rng As Range

Set rng = Range("DataEntry") '<<==== CHANGE

rng.ClearContents

End Sub
'<<=============


---
Regards,
Norman


"Bruce" wrote in message
...
PS
I posted this question on 8.3.06, but cannot access the response from

Norman
Jones.

Bruce





Bruce[_9_]

how to reset data entry cells to 0 or empty
 
Thanks Tom and Chip.
I eventually got access to a reply from Norman, which mirrors yours. It
works fine, just a shame macros have to be enabled.

Cheers
Bruce


Hi Bruce,

Try assigning the following code to a button:

'=============
Public Sub Tester()
Dim rng As Range

Set rng = Range("DataEntry") '<<==== CHANGE

rng.ClearContents

End Sub
'<<=============


---
Regards,
Norman


"Bruce" wrote in message
...
PS
I posted this question on 8.3.06, but cannot access the response from

Norman
Jones.

Bruce








All times are GMT +1. The time now is 11:58 PM.

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