Moving data from sheet 2 to sheet 1

[Skiman]

Hello all,

Is there a way to click on a cell from sheet 2 and have its data transfer over to a specific on sheet 1?

Thanks in advance.

[Palmetto]

You would need to use VBA to do this.
Something along the lines of:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing And _
        Target.Value <> vbNullString Then
        Sheet1.Range("A1") = Target.Value
    End If

End Sub

Where, when you select cell A1 on sheet2, the code makes cell A1 on sheet1 contain the same value.

The above code would need to go in the sheet module for sheet2.

[Skiman]

Thanks for the reply.

Would it work the same way if I wanted A2 on sheet 2 to go to A1 on sheet 1 and then I wanted A9 on sheet 2 to go to A2 on sheet 1? Basically random selections on sheet two to populate the cells on sheet 1 in a certain order?

Thanks again-

[Palmetto]

Basically random selections on sheet two to populate the cells on sheet 1 in a certain order?

This code will place the value of any cell selected on sheet2 into the first empty cell in column-A on sheet 1. Is this what you mean?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim lrow As Long
    
    lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    lrow = lrow + 1
    
    Sheet1.Cells(lrow, 1).Value = Target.Value

End Sub

[Skiman]

Correct. Always starting in sheet 2, cells chosen would populate sheet 1. The order would be a1,a2,a3,etc.