Cell = Formula issue

**VBA Noob** · 01-04-2007, 08:36 PM

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

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

VBA Noob

**EFGMan** · 01-05-2007, 05:47 PM

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** · 01-05-2007, 05:54 PM

See attached. Change C26

VBA Noob

**EFGMan** · 01-09-2007, 12:31 PM

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** · 01-09-2007, 01:07 PM

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

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

VBA Noob