Fill cell A with data from cell B by clicking cell C

[rfinnegan]

Hi All:

I'm stumped on this. Please help -

I want to click on cell H13 and have the info from W13 appear in O7. Or click I13 and have the info from X13 appear in O7, etc... (O7 will simply be set with a barcode font).

Thanks in advance.

 

[adam087]

Perhaps this code might help. Paste it in to the code module for the worksheet you want it to run on, and change the 'Clickable Range' as you see fit.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim clickableRange      As Range
    Set clickableRange = Range("H:I")       'edit this as you see fit
    
    If Not Intersect(Target, clickableRange) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(0, 15).Value = Range("O7").Value
    End If
    
End Sub

Hope that helps.

/AJ

 

[rfinnegan]

Thanks Adam. It didn't quite work, but I managed to steal some of it and add it to a different piece of code I had.

Here was the final result -

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "" Then Range("o7").Value = Target.Offset(0, 15)
End Sub

thanks again

 

[adam087]

Oh yeah. Might have helped if I'd read the question thoroughly. Glad it helped though, thanks for the feedback

/AJ