Using visual basic to change the formula in a cell

[Angelo Dundee]

This is a very simple question :-
How do I use visual basic to change the formula in a cell.
For example I want 2 option buttons that change the contents of a cell from mm to inches.
Therefore I require 2 routines that are triggered by option buttons.
These routines will do the following :-
When the mm button is clicked I want Cell A1 :-
format = 1 decimal place
contents = C1
When the inches is clicked I want Cell A1 :-
format = 2 decimal place
contents = C1/25.4


Private Sub OptionButton2_Click()
'American - inches click
Range("A1").Select
Selection.NumberFormat = "0.00"

End Sub

What is the line missing above, which will change the formula in the cell, to C1/25.4 ?

Thanks, Angelo Dundee

ray:

Ali, shall return !!!

 

[R_Stephens]

Hi there,

To put a formula in your selected cell add the following line

Selection.Value = "=C1/25.4"

Basically type the formula that you would put into the excel cell within "" marks (including the = at the beginning)

Hope this helps

Richard

 

[jindon]

Hi,

try

Private Sub OptionButton1_Click()
With Me
        If .OptionButton1 = True Then
                .OptionButton2 = False
                With .Range("a1")
                    .NumberFormat = "0.0"
                    .Value = .Range("c1").Value / 25.4
                End With
        End If
End With
End Sub

Private Sub OptionButton2_Click()
With Me
        If .OptionButton2 = True Then
                .OptionButton1 = False
                With .Range("a1")
                    .NumberFormat = "0.00"
                    .Value = .Range("c1").Value
                End With
        End If
End With
End Sub

hope this helps

jindon

 

[Angelo Dundee]

rICHARD, AND jINDON, THANKS ALOT FOR YOUR HELP.

rOB.