Macro to lookup date, name and place data into it

[ExcelRytis]

Good morning all of you,

This is my first ever post in this forum and I am sincerely stuck on this on for the last week...

I am looking for a macro to lookup cells B2 and B3 in calculator sheet which are name and date and cross referencing in a productivity spreadsheet determine the cross cell into which it needs to paste the data and actually paste it as value.

Any ideas?

[TABLE="width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]date1[/TD]
[TD]date2[/TD]
[TD]date3[/TD]
[TD]date4[/TD]
[/TR]
[TR]
[TD]name1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]name2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]name3[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]name4[/TD]
[TD][/TD]
[TD][/TD]
[TD]Cross referenced[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[ExcelRytis]

Now i finally found how to return the cell address that the data needs to go to, how do i get VBA to paste it into that address?

formula to get address: =CELL("address",INDEX(Productivity!A4:JA73,MATCH(C5,Productivity!A4:A97,0),MATCH(B5,Productivity!A4:JA4,0)))

 

[ExcelRytis]

I'm looking at a VBA code something like

Application.Goto Reference:=Range("LocationToPasteTo.Value")

but it does not seem to like that... Please someone help..

 

[ExcelRytis]

Found this code, but i don't know how to implement it correctly......

[COLOR=#333333]Public Sub TesterA01()[/COLOR]
[COLOR=#333333]Dim SH As Worksheet[/COLOR]
[COLOR=#333333]Dim arr As Variant[/COLOR]
[COLOR=#333333]Dim rng As Range[/COLOR]

[COLOR=#333333]arr = Split(ActiveCell.Value, "!")[/COLOR]

[COLOR=#333333]Set SH = Sheets(arr(0))[/COLOR]
[COLOR=#333333]Set rng = SH.Range(arr(1))[/COLOR]

[COLOR=#333333]Application.Goto Reference:=rng[/COLOR]

[COLOR=#333333]End Sub[/COLOR]