to convert suits into mirrors as per table

[piter]

to convert suits into mirrors as per table
table=
0 1 2 3 4
5 6 7 8 9
example
75 the macro will see by the table
5 vale = 7 vale 2 and 5 vale 0 therefore = the pair mirror = 20
has to be guided by the table.
if you have 9 it's mirror 4 and the other way around
if you have 4 the mirror is 9

 

[piter]

http://www.mediafire.com/file/u2hm70ua3x3c01z/pasta_mirror.xlsm

 

[steve the fish]

Maybe this?

Function CV(r As range)

Dim orig, repl
Dim a As String, b As String
Dim i As Integer

orig = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".")
repl = Array("5", "6", "7", "8", "9", "0", "1", "2", "3", "4", ".")

For i = 1 To Len(r)
    a = a & repl(Application.Match(Mid(r, i, 1), orig, 0) - 1)
Next

CV = a

End Function

 

[wideboydixon]

Is the mirror table static?

Book1
	A	B	C	D	E	F	G
5	25	60	79		70	15	24
6	45	60	79		90	15	24
7	13	58	64		68	03	19
8	30	58	64		85	03	19
Planilha1

Cell Formulas
Range	Formula
E5	=MOD(INT(A5/10)+5,10)*10+MOD(MOD(A5,10)+5,10)

WBD

 

[wideboydixon]

If it's not static then it's a trickier problem:

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
5	25	60	79		70	15	24			0	1	2	3	4
6	45	60	79		90	15	24			5	6	7	8	9
7	13	58	64		68	03	19
8	30	58	64		85	03	19
Planilha1

Cell Formulas
Range	Formula
E5	{=INDEX($J$5:$N$6,ROW($J$7)-MIN(IF($J$5:$N$6=INT(A5/10),ROW($J$5:$N$6))),MIN(IF($J$5:$N$6=INT(A5/10),COLUMN($J$5:$N$6)-COLUMN($I$5))))*10+INDEX($J$5:$N$6,ROW($J$7)-MIN(IF($J$5:$N$6=MOD(A5,10),ROW($J$5:$N$6))),MIN(IF($J$5:$N$6=MOD(A5,10),COLUMN($J$5:$N$6)-COLUMN($I$5))))}
Press CTRL+SHIFT+ENTER to enter array formulas.

WBD

 

[piter]

Hello, thanks, steve and wide can put in the planilla and activate and put in attachment? Please, thank you for the hard work.

 

[piter]

hello wide yes, yes Is the mirror table static! fix

 

[wideboydixon]

So just put the formula above in E5 and copy across and down ...

WBD

 

[piter]

Não funciona, coloque na planilha

 

[wideboydixon]

Sorry. I have you two solutions and all you have to do is put this formula into E5:

=MOD(INT(A5/10)+5,10)*10+MOD(MOD(A5,10)+5,10)

Then copy the formula across and down. I'm not messing around putting formulas in sheets and uploading them for you.

WBD