Copy range to the following sheet by using hyperlink [VBA]

[Martin_H]

Hi team,

let there be an Excel workbook, with 5 worksheets inside.

Worksheets are named: Monday, Tuesday, Wednesday, Thursday, Friday.

Inside each sheet, there is a column Q.

These cells (see below) within column Q are occupied with special symbol ► which is set as a hyperlink.

Range("Q5:Q8,Q10:Q13,Q15:Q18,Q20:Q23,Q25:Q28,Q30:Q33,Q35:Q38,Q40:Q43,Q45:Q48,Q50:Q53,Q55:Q57,Q58,Q60:Q63,Q65:Q68,Q70:Q73,Q75:Q78,Q80:Q83,Q85:Q88,Q90:Q93,Q95:Q98,Q100:Q103,Q105:Q108,Q110:Q113,Q115:Q118,Q120:Q123,Q125:Q128,Q130:Q133,Q135:Q138,Q140:Q143,Q145:Q148")

Now the example:

When I click on that hyperlinked symbol (►), for example in row 5 (cell Q5), I want to copy this range (see below)

Range("G5,I5,J5,K5:L5,M5,N5,O5")

to the following worksheet, to the exactly same range.

One more example:

When I click on that hyperlinked symbol (►), for example in row 27 (cell Q27), I want to copy this range (see below)

Range("G27,I27,J27,K27:L27,M27,N27,O27")

to the following worksheet, to the exactly same range.

So if I am in sheet Monday I want to copy it to the sheet Tuesday.
If I am in sheet Tuesday I want to copy it to the sheet Wednesday and so on.
Do nothing for sheet Friday, only first 4 days.

Would it be possible?

Thank you.
Much appreciated.

 

[Martin_H]

+1