See if this works. I change the Intersect Range and I'm using Offset from
the target location to place the random number

Sub worksheet_change(ByVal target As Range)

Set isect = Application.Intersect(target, Range("A1:A50"))
If Not isect Is Nothing Then
If target.Value = "Y" Then
Target.Offset(0,2).Value = Rnd()
End If
End If

End Sub


"Azrael" wrote:

I made a tweak and it works perfectly!! Now I have one question to follow,
which may seem mediocre, nut as I said, I'm new to this.

This is working perfectly for one row. Now I need to create a similar macro
for each row in the form.(up to 50) To ensure that they won't interfere with
each other. is there some way of saving the macro's to the form under a
custom name for each row, because I find that when I attempt to create a
macro for the next row, it states that I have an ambigous name in
worksheet_change, and if I change it, the macro won't trigger properly.

Is this only because it is used in the same window?

"Joel" wrote:

Remove the number of C1 then run this macro. I'm not using the random number
in B1.

Sub worksheet_change(ByVal target As Range)

Set isect = Application.Intersect(target, Range("A1"))
If Not isect Is Nothing Then
If target.Value = "Y" Then
Range("C1").Value = Rnd()
End If
End If

End Sub


"Joel" wrote:

The following code must be placed in the VBA sheet where you hav ethe data.
What do you mean by doesn't repeat? You can test if cell C1 is empty and
only move the data when C1 is empty. You can clear cell C1 with a worksheet
open.

What I would dois generate the random number in the macro.




Sub worksheet_change(ByVal target As Range)

Set isect = Application.Intersect(target, Range("A1"))
If Not isect Is Nothing Then
If target.Value = "Y" Then
Range("C1").Value = Range("B1").Value
End If
End If

End Sub


"Azrael" wrote:

I have hit a brick wall with my spreadhseet, due mainly to my lack of
experience with Macros (I didn't even know they existed until last Friday).

My requirements are as follows:
I have a spreadsheet that generates a random number once certain
requirements are met in other cells. This I have managed to create with no
real problems, but every time the spreadsheet refreshes, it changes the value
of every random number in the form.

I require a Macro, that triggered by the entry of a "Y" into cell A1, runs a
one time Macro, that doesn't repeat, to copy the entry in Cell B1, and paste
the value only into cell C1.

I have tried many approaches to this issue, and none have worked in the way
I want it to.