Fill a cell with a number I click on in another cell

[CopperheadFA]

I know there's a way to do it but I'm clueless. I have a good bit of experience with Excel but one thing troubles me. How do I fill a cell with a number I click on in another cell?
Example: I click on let's say cell C3. I want it to be filled with the number that's in cell H6. How do I do that?

 

[darko757]

Re: Hello And Thanks For Having Me!

=H6?

 

[My Aswer Is This]

Re: Hello And Thanks For Having Me!

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C3")) Is Nothing Then
If Target.Cells.CountLarge > 1 Then Exit Sub
Target.Value = Range("H6").Value
End If
End Sub

 

[CopperheadFA]

Re: Hello And Thanks For Having Me!

Yes Sir, =H6

 

[CopperheadFA]

Re: Hello And Thanks For Having Me!

If I'm not mistaken, to do this I need to right-click on the sheet name then click View Code. If that's the case, I tried your suggestion but it didn't work with what I'm trying to do.

 

[My Aswer Is This]

Re: Hello And Thanks For Having Me!

I'm confused what you want. You seemed happy with the first answer. =H6

With the script I provided if you click on Range("C3") the value in Range("H6") will now be entered into Range("C3")

 

[CopperheadFA]

Re: Hello And Thanks For Having Me!

OK, I guess what I'm wanting to do is click on ANY cell in the "C" column and have it populated by ANY cell I click on in the array of cells with all the numbers in them. Hopefully this screenshot will help describe what I'm talking about.

 

[CopperheadFA]

Re: Hello And Thanks For Having Me!

My mistake, that was obviously the wrong way to submit a screenshot.

 

[CopperheadFA]

Re: Hello And Thanks For Having Me!

 

[Eric W]

Re: Hello And Thanks For Having Me!

Right click on H6, select Copy, right click on C3, select Paste (or Paste Special/Values).