Macro and Triangle

[dennisli]

How to write Macro to automatically link the latest diagonal to the column which is shown in the table? Thanks


45 23 12 44 45 56 56
56 12 23 89 46 46
68 10 45 78 78
91 23 56 56
79 45 45
52 52

 

[SIXTH SENSE]

Hi!
Do you mean like this?

Book1
	A	B	C	D	E	F	G	H
1	45	23	12	44	45	56		56
2	56	12	23	89	46			46
3	68	10	45	78				78
4	91	23	56					56
5	79	45						45
6	52							52
Sheet2

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Triangle()
    lastrow = Range("a65536").End(xlUp).Row
    maxcol = lastrow
    <SPAN style="color:#00007F">For</SPAN> i = lastrow<SPAN style="color:#00007F">To</SPAN> 1<SPAN style="color:#00007F">Step</SPAN> -1
        Range(Cells(i, maxcol + 2), Cells(i, maxcol + 2)).Value = Range(Cells(i, maxcol - i + 1), Cells(i, maxcol - i + 1))
    <SPAN style="color:#00007F">Next</SPAN> i<SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[dennisli]

Thanks, I will test tomorrow.
Good night.
Best regards.
Dennis

 

[dennisli]

Thanks, I will test tomorrow.
By the way, can you tell me how you pasted the Excel format you showed here on the board?
Good night.
Best regards.
Dennis

 

[SIXTH SENSE]

Theres a dowlloadable file below this post, name colo's html maker. its an add in to make java script of your worksheet.
you can use that to post your sheet here in this board.
Good nyt! Have a peaceful nyt!

 

[Yogi Anand]

Hi Dennis:

Here is a formula based solution ...

Book1
	A	B	C	D	E	F	G	H	I
1	45	23	12	44	45	56	56		56
2	56	12	23	89	46	46			46
3	68	10	45	78	78				78
4	91	23	56	56					56
5	79	45	45						45
6	52	52							52
Sheet4

I know you asked for a macro based solution, so the preceding formula-based solution may or may not be of any interest to you.