Easy Macro

[joelbeveridge]

Hey i have Created this Easy Macro-

Sub testmacro()
'
' testmacro Macro
' A Cell adds info to other cells
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "YES"
Range("C1").Select
ActiveCell.FormulaR1C1 = "NO"
Range("D1").Select
ActiveCell.FormulaR1C1 = "NO"
Range("E1").Select
ActiveCell.FormulaR1C1 = "YES"
Range("A1").Select
End Sub


Now this Macro is a Button which i dont want. I want it so when i enter "1" into the "A" cell it adds the YES-NO-NO-YES into the other cells shown above. Any help people? Remember i dont want a button just code that works when enter "1" in cell A. Thanks

[NickHK]

Joel,
Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If Target.Value = 1 Then
Range("B1").Value = "YES"
Range("C1").Value = "NO"
Range("D1").Value = "NO"
Range("E1").Value = "YES"
Else
Range("B1:E1").ClearContents
End If
End If
End Sub

Change what you want to happen is the value <> 1.

NickHK

"joelbeveridge" <[email protected]>
wrote in message
news:[email protected]...
>
> Hey i have Created this Easy Macro-
>
> Sub testmacro()
> '
> ' testmacro Macro
> ' A Cell adds info to other cells
> '
> Range("A1").Select
> ActiveCell.FormulaR1C1 = "1"
> Range("B1").Select
> ActiveCell.FormulaR1C1 = "YES"
> Range("C1").Select
> ActiveCell.FormulaR1C1 = "NO"
> Range("D1").Select
> ActiveCell.FormulaR1C1 = "NO"
> Range("E1").Select
> ActiveCell.FormulaR1C1 = "YES"
> Range("A1").Select
> End Sub
>
>
> Now this Macro is a Button which i dont want. I want it so when i enter
> "1" into the "A" cell it adds the YES-NO-NO-YES into the other cells
> shown above. Any help people? Remember i dont want a button just code
> that works when enter "1" in cell A. Thanks
>
>
> --
> joelbeveridge
> ------------------------------------------------------------------------
> joelbeveridge's Profile:
http://www.excelforum.com/member.php...o&userid=37045
> View this thread: http://www.excelforum.com/showthread...hreadid=567724
>