ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Cell J1 to reflect activecell Row a2:a500 (https://www.excelbanter.com/excel-programming/406821-cell-j1-reflect-activecell-row-a2-a500.html)

Gordy99

Cell J1 to reflect activecell Row a2:a500
 
This is the code I put in per Rick R.:
Private Sub worksheet_selectionchange(ByVal target As Range)
Range("j1").Value = Cells(ActiveCell.Row, 1).Value
End Sub

Can't find it on the macro list and I don't see it running. I know I've done
something wrong. Must have something to do with the name of the worksheet.
Gordy


JP[_4_]

Cell J1 to reflect activecell Row a2:a500
 
This is sheet code, did you put it in the right place?

"Where do I paste the code that I want to use in my workbook"
http://www.rondebruin.nl/code.htm

--JP



"Gordy99" wrote in message
...
This is the code I put in per Rick R.:
Private Sub worksheet_selectionchange(ByVal target As Range)
Range("j1").Value = Cells(ActiveCell.Row, 1).Value
End Sub

Can't find it on the macro list and I don't see it running. I know I've
done
something wrong. Must have something to do with the name of the worksheet.
Gordy




Gordy99

Cell J1 to reflect activecell Row a2:a500
 
I put the code into a VBA Sheet with the rest of the code for that workbook.

"JP" wrote:

This is sheet code, did you put it in the right place?

"Where do I paste the code that I want to use in my workbook"
http://www.rondebruin.nl/code.htm

--JP



"Gordy99" wrote in message
...
This is the code I put in per Rick R.:
Private Sub worksheet_selectionchange(ByVal target As Range)
Range("j1").Value = Cells(ActiveCell.Row, 1).Value
End Sub

Can't find it on the macro list and I don't see it running. I know I've
done
something wrong. Must have something to do with the name of the worksheet.
Gordy





Gordy99

Cell J1 to reflect activecell Row a2:a500
 
Thankyou sooooo much.
Gordy

"JP" wrote:

This is sheet code, did you put it in the right place?

"Where do I paste the code that I want to use in my workbook"
http://www.rondebruin.nl/code.htm

--JP



"Gordy99" wrote in message
...
This is the code I put in per Rick R.:
Private Sub worksheet_selectionchange(ByVal target As Range)
Range("j1").Value = Cells(ActiveCell.Row, 1).Value
End Sub

Can't find it on the macro list and I don't see it running. I know I've
done
something wrong. Must have something to do with the name of the worksheet.
Gordy






All times are GMT +1. The time now is 02:13 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com