VBA: Sort values with IF condition

L

Legacy 143009

Guest
Hi Guys,

I have some Text ## values in a A1 and B1. And some text values in A2, A3, A4.
Example:
A
1. T ##
2. D
3. H
4. F
What I need a script which sorts the text values in their alphabetical order variations according to conditions given below:
Code: 
[TABLE="width: 632"]
<colgroup><col><col><col><col><col><col><col><col></colgroup><tbody>[TR]
[TD]Sort (A2:A4)[/TD]
[TD]as[/TD]
[TD]ABC[/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]1[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]13[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]2[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]3[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]4[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]5[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]6[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]5[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]7[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]8[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]9[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]10[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]9[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]11[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]12[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]13[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]Exit Sub[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Sort (A2:A4)[/TD]
[TD]as[/TD]
[TD]ACB[/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]1[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]2[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]13[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]3[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]4[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]5[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]6[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]7[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]5[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]8[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]9[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]10[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]11[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]9[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]12[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]13[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]Exit Sub[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Sort (A2:A4)[/TD]
[TD]as[/TD]
[TD]BAC[/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]1[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]2[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]3[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]13[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]4[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]5[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]6[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]7[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]8[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]5[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]9[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]10[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]11[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]12[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]9[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]13[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]Exit Sub[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Sort (A2:A4)[/TD]
[TD]as[/TD]
[TD]BCA[/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]1[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]2[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]3[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]4[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]13[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]5[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]6[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]7[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]8[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]9[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]5[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]10[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]11[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]12[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]13[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]9[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]Exit Sub[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Sort (A2:A4)[/TD]
[TD]as[/TD]
[TD]CAB[/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]1[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]9[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]2[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]3[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]4[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]5[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]13[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]6[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]7[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]8[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]9[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]10[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]5[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]11[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]12[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]13[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]Exit Sub[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Sort (A2:A4)[/TD]
[TD]as[/TD]
[TD]CBA[/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]1[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]2[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]9[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]3[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]4[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]5[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]6[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 2)=[/TD]
[TD="align: right"]13[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]7[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]8[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 1) =[/TD]
[TD="align: right"]9[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]10[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]11[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]5[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]12[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]IF Right(Range("A1").Value, 2) =[/TD]
[TD="align: right"]13[/TD]
[TD]AND[/TD]
[TD]Right(Range("A1").Value, 1)=[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]as[/TD]
[TD]Exit Sub[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

Thanks a lot!
 
Last edited by a moderator:
Sort by date Sort by votes
You must log in or register to reply here.

Similar threads

R
  • Question Question
Required Transposed Values instead of Row Items of Duplicate Invoice no with Each GSTIN which is displaying the SUM of 12+18+28
Replies
1
Views
111
rk_rk
R
T
  • Question Question
COUNTIFS with on Dates
Replies
6
Views
213
Alex Blakenburg
A
J
  • Question Question
Novice question
Replies
2
Views
112
MARK858
MARK858
willow1985
  • Solved
VBA For workbooks.open, if file doesnt exist goto on error
Replies
3
Views
194
Logit
Logit
B
  • Solved
Search vlookup more than 1 column
2 3
Replies
23
Views
859
DanteAmor
DanteAmor

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top