This is a little off
 

rng.Offset(R12, c23).Value = .Range(r & ActiveCell.Row, c61)

I'm stumped.


--
famdamly
------------------------------------------------------------------------
famdamly's Profile: http://www.excelforum.com/member.php...o&userid=29382
View this thread: http://www.excelforum.com/showthread...hreadid=519240

This is a little off
 

little short on detail, but maybe

rng.Offset(12, 23).Value = .Range("R" & ActiveCell.Row, Range("C61"))

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"famdamly" wrote in
message ...

rng.Offset(R12, c23).Value = .Range(r & ActiveCell.Row, c61)

I'm stumped.


--
famdamly
------------------------------------------------------------------------
famdamly's Profile:
http://www.excelforum.com/member.php...o&userid=29382
View this thread: http://www.excelforum.com/showthread...hreadid=519240

This is a little off
 

I have this macro in my worksheet.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column 61 Then GJN


This is the macro that runs when the user selects a cell.

Sub GJN()
Set rng = Worksheets("sheet1").Cells.End(xlUp)(1)
'(Rows.Count,1)
With Worksheets("Sheet1")

rng.Offset(10, 23).Value = .Range("R" & ActiveCell.Row, Range("C61"))
End With

End Sub


The user will be selecting from a list that is updated and sorted as
they enter the screen, therefore the data in those cells is never the
same. That is why I need to pluck the number from column 61 on the row
they select.
When they select a cell they will be taken to a new screen with the
case relevant data in front of them. The case relevant data is
contigent on a number that is in cell w12 This is where I need this
plucked number to be.

I'm sure I'm doing everything extremely unconventionally as it is just
my nature. So I hope it's not too confusing.


--
famdamly
------------------------------------------------------------------------
famdamly's Profile: http://www.excelforum.com/member.php...o&userid=29382
View this thread: http://www.excelforum.com/showthread...hreadid=519240

This is a little off
 

So to get this clear, if they change anything on a sheet, then you want to
get the value in column 61 of that row (BJ?) and store in somewhere on
Sheet1? Where on Sheet1?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"famdamly" wrote in
message ...

I have this macro in my worksheet.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column 61 Then GJN


This is the macro that runs when the user selects a cell.

Sub GJN()
Set rng = Worksheets("sheet1").Cells.End(xlUp)(1)
'(Rows.Count,1)
With Worksheets("Sheet1")

rng.Offset(10, 23).Value = .Range("R" & ActiveCell.Row, Range("C61"))
End With

End Sub


The user will be selecting from a list that is updated and sorted as
they enter the screen, therefore the data in those cells is never the
same. That is why I need to pluck the number from column 61 on the row
they select.
When they select a cell they will be taken to a new screen with the
case relevant data in front of them. The case relevant data is
contigent on a number that is in cell w12 This is where I need this
plucked number to be.

I'm sure I'm doing everything extremely unconventionally as it is just
my nature. So I hope it's not too confusing.


--
famdamly
------------------------------------------------------------------------
famdamly's Profile:
http://www.excelforum.com/member.php...o&userid=29382
View this thread: http://www.excelforum.com/showthread...hreadid=519240

This is a little off
 

Thanks for your help Bob, I really do appreciate it.

In sheet1 in cell w12 or R12,C23


--
famdamly
------------------------------------------------------------------------
famdamly's Profile: http://www.excelforum.com/member.php...o&userid=29382
View this thread: http://www.excelforum.com/showthread...hreadid=519240

This is a little off
 

I would do this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column 61 Then
Worksheets("sheet1").Range("W12").Value = _
.Cells(Target.Row,61).Value
End If

End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"famdamly" wrote in
message ...

Thanks for your help Bob, I really do appreciate it.

In sheet1 in cell w12 or R12,C23


--
famdamly
------------------------------------------------------------------------
famdamly's Profile:
http://www.excelforum.com/member.php...o&userid=29382
View this thread: http://www.excelforum.com/showthread...hreadid=519240