Cell = Formula issue

[EFGMan]

I'm am working on an Excell based quote sheet and have run into an issue that I'm not sure how to handle.
I want a cell to equal it'self * a number.

Example: I want a number to be typed into a cell, lets say 3.
Once that cell is exited I want it to change to the equivilant of 3 * 15.
So instead of the outcome being 3 it is now 45.
That way I am not using multiple collums or rows for a single equation.

I tried the formula within cell c26 as followes:
c26*15, but Excell doesn't like that at all and I get a blue dot saying "unprotected formula".

An ideal result is similar to when you specify a change of decimal place.
It automaticly changes from the number you entered into that number devided or multiplied by 10, 100, etc...
If I can control that kind of functionality that would be awsome.

Please advise if something like this is even possible.
Any help would be greatly appreciated.
Thanks in advance.
EFGMan

[VBA Noob]

Hi,

Try this code. To add the code right click on the sheet name and select view code. Paste the code in and then close VB

Please Login or Register  to view this content.

VBA Noob

[EFGMan]

Thank you for the reply. I did what you sudjested, but nothing seams to be happening. I type 3 and $3.00 is substituted, same as before. I'll go ahead and paste the current code below.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target(1), Range("C26")) Is Nothing Then
Application.EnableEvents = False
With Target(1)
'Assuming your Constant/Multiplier is 15:
.Value = .Value * 15
End With
Application.EnableEvents = True
End If
End Sub

Private Sub Workbook_Open()

End Sub

Tx EFGMan

[VBA Noob]

See attached. Change C26

VBA Noob

[EFGMan]

TY - That is exactly what I want to happen, but I am a true nub at this.

I don't even know what to look for to to see how you did it.

I viewed the code and nothing was there.

Doesn't look like there is any formatting or conditions.

What am I missing?

EFGMan

[VBA Noob]

Hi,

It done with code. It is called by a Change Event and the code is on the actual sheet.

Right click the sheet tab and select view code.

When the target is cell C26 and you add a figure it multiplies by 15

These link might help with change events and adding the code

http://www.cpearson.com/excel/events.htm

http://www.contextures.com/xlvba01.html#Worksheet

Please Login or Register  to view this content.

VBA Noob

[EFGMan]

UDMan. Perfect in every way. Thank you so much.
Happy EFGMan

[VBA Noob]

Glad I could help

Thanks for the feedback

VBA Noob

[EFGMan]

blablablab