ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Input boxes - writing entry to cell (https://www.excelbanter.com/excel-programming/336037-input-boxes-writing-entry-cell.html)

Janet H[_2_]

Input boxes - writing entry to cell
 
I'm a total newbie to this. When the normal rate on the worksheet has to use
a substitute rate, I have an input box prompt for the substitute value. I
want the value to write to a certain cell to be used in a calculation. The
macro is doing what I want except writing the input value to the cell - H14.
What am I doing wrong?

ActiveSheet.Unprotect
Range("E14").Select
ActiveCell = "TTD Rate Override Applies"
myNum = Application.InputBox("Enter TTD Rate Override")
Range("h14").Select
ActiveSheet.Protect


Bob Phillips[_6_]

Input boxes - writing entry to cell
 
Range("h14").Value = myNum

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Janet H" wrote in message
...
I'm a total newbie to this. When the normal rate on the worksheet has to

use
a substitute rate, I have an input box prompt for the substitute value.

I
want the value to write to a certain cell to be used in a calculation.

The
macro is doing what I want except writing the input value to the cell -

H14.
What am I doing wrong?

ActiveSheet.Unprotect
Range("E14").Select
ActiveCell = "TTD Rate Override Applies"
myNum = Application.InputBox("Enter TTD Rate Override")
Range("h14").Select
ActiveSheet.Protect




Karthik Bhat - Bangalore

Input boxes - writing entry to cell
 
Hi Janet

Your code does not have the instruction to do what you want (input the
substitute value in cell H14). This code should take care of it:

ActiveSheet.Unprotect
Range("E14").Select
ActiveCell = "TTD Rate Override Applies"
myNum = Application.InputBox("Enter TTD Rate Override")
Range("h14") = my Num
ActiveSheet.Protect

Thanks
Karthik Bhat
Bangalore



All times are GMT +1. The time now is 03:41 AM.

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