Only a VBA event code suggestion.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Me.Range("G47")) Is Nothing Then Exit Sub
On Error GoTo enditall
Application.EnableEvents = False
With Target
If .Value < "" Then
.Value = .Value * 7.15
End If
End With
enditall:
Application.EnableEvents = True
End Sub

This is sheet event code. Right-click on the sheet tab and "View Code".

Copy/paste into that sheet module. Alt + q to return to Excel window.

NOTE: there will be no error checking or "paper trail" with this automatic
method.

You might do better with entering values in one column and have a helper column
show the final value as Biff suggests.


Gord Dibben MS Excel MVP

On Fri, 28 Dec 2007 15:33:01 -0800, Chey wrote:

this still is not working for what I want. I want to type the value in B47
and return my answer in B47 so if I were to type in 160 in B47 and hit return
it would be 1144.

Any other suggestions?

Thanks

"T. Valko" wrote:

It would be easier if you use a formula to do this.

B47 = some number

Enter this formula in say, C47:

=IF(ISNUMBER(B47),B47*7.15,0)

--
Biff
Microsoft Excel MVP


"Chey" wrote in message
...
This is going to be a locked form. Many users are going to use it. It
would
be easier if they could just type in a number amount. This represents
hours
worked. Our min wage is 7.15 an hour.

Thanks

"Wigi" wrote:

Hi Chey

Then first, move your cursor to that cell.

Start typing:

=160*7.15

and once you've done that, hit the Enter key.

Are you succeeding?

--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"Chey" wrote:

In cell B47 I want to type in a number example 160 and it multiply by
7.15
and give the answer. Can someone assit me in how to do this.

Thanks
Chey