Click to populate a cell elsewhere

[VirtualHybrid]

Hello, I created a functional Google Sheets that I am trying to replicate in Excel.
If A1:A10 all have different values and I want B1 to populate based on the cell I clicked in A1:A10, how can I do that?
I'm assuming VB.

For example: If I click A5 I need B1 to reflect A5's value, If I click on A2 I need B1's value to update to that new value from A2.

Any input is appreciated!

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Click on a value in any cell in column A .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    Range("B1") = Target
End Sub

 

[Joe4]

Welcome to the Board!

If A1:A10 all have different values and I want B1 to populate based on the cell I clicked in A1:A10, how can I do that?

If that really is accurate, you will need to tweak one line of mumps code, as his code will change B1 for any cell selected in column A, even ones below A10.
This will limit it to just A1:A10:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    Range("B1") = Target
End Sub

 

[VirtualHybrid]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Click on a value in any cell in column A .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    Range("B1") = Target
End Sub

This worked perfectly, thank you!

 

[VirtualHybrid]

Welcome to the Board!


If that really is accurate, you will need to tweak one line of mumps code, as his code will change B1 for any cell selected in column A, even ones below A10.
This will limit it to just A1:A10:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    Range("B1") = Target
End Sub

Thank you! Mumps did the job but I was wondering how to change the column range so your post clarified that for me!

 

[mumps]

You are very welcome.