Hello
Cell N15 may contain the text
[TABLE="width: 64"]
<tbody>[TR]
[TD]N 003.[/TD]
[/TR]
[TR]
[TD]N 004.[/TD]
[/TR]
[TR]
[TD]N 022.[/TD]
[/TR]
[TR]
[TD]N 040.[/TD]
[/TR]
[TR]
[TD]N 049.[/TD]
[/TR]
[TR]
[TD]N 071.[/TD]
[/TR]
[TR]
[TD]N 073.[/TD]
[/TR]
[TR]
[TD]N 081.[/TD]
[/TR]
[TR]
[TD]N 087.[/TD]
[/TR]
[TR]
[TD]N 090.[/TD]
[/TR]
[TR]
[TD]N 091.[/TD]
[/TR]
[TR]
[TD]N 093.[/TD]
[/TR]
[TR]
[TD]N 095.[/TD]
[/TR]
[TR]
[TD]N 098.[/TD]
[/TR]
[TR]
[TD]N 099.[/TD]
[/TR]
[TR]
[TD]N 103.[/TD]
[/TR]
[TR]
[TD]N 115.[/TD]
[/TR]
[TR]
[TD]N 119.[/TD]
[/TR]
[TR]
[TD]N 121.[/TD]
[/TR]
[TR]
[TD]N 127.[/TD]
[/TR]
[TR]
[TD]N 133.[/TD]
[/TR]
[TR]
[TD]N 146.[/TD]
[/TR]
[TR]
[TD]N 164.[/TD]
[/TR]
[TR]
[TD]N 166.[/TD]
[/TR]
[TR]
[TD]N 169.[/TD]
[/TR]
[TR]
[TD]N 173.[/TD]
[/TR]
[TR]
[TD]N 179.[/TD]
[/TR]
[TR]
[TD]N 180.[/TD]
[/TR]
[TR]
[TD]N 184.[/TD]
[/TR]
[TR]
[TD]N 186.[/TD]
[/TR]
[TR]
[TD]N 187.[/TD]
[/TR]
[TR]
[TD]N 196.[/TD]
[/TR]
[TR]
[TD]N 198.[/TD]
[/TR]
[TR]
[TD]N 205.[/TD]
[/TR]
</tbody>[/TABLE]
Depending on text in cell I want macro to cellect the sertain cells. If N15 contains "N 003." then select G2, if text in N15 if "N 004." Then sellect "G3" etc
I can do it this way.
but how I can shorten the code to not type all ranges ?
Thank you
Cell N15 may contain the text
[TABLE="width: 64"]
<tbody>[TR]
[TD]N 003.[/TD]
[/TR]
[TR]
[TD]N 004.[/TD]
[/TR]
[TR]
[TD]N 022.[/TD]
[/TR]
[TR]
[TD]N 040.[/TD]
[/TR]
[TR]
[TD]N 049.[/TD]
[/TR]
[TR]
[TD]N 071.[/TD]
[/TR]
[TR]
[TD]N 073.[/TD]
[/TR]
[TR]
[TD]N 081.[/TD]
[/TR]
[TR]
[TD]N 087.[/TD]
[/TR]
[TR]
[TD]N 090.[/TD]
[/TR]
[TR]
[TD]N 091.[/TD]
[/TR]
[TR]
[TD]N 093.[/TD]
[/TR]
[TR]
[TD]N 095.[/TD]
[/TR]
[TR]
[TD]N 098.[/TD]
[/TR]
[TR]
[TD]N 099.[/TD]
[/TR]
[TR]
[TD]N 103.[/TD]
[/TR]
[TR]
[TD]N 115.[/TD]
[/TR]
[TR]
[TD]N 119.[/TD]
[/TR]
[TR]
[TD]N 121.[/TD]
[/TR]
[TR]
[TD]N 127.[/TD]
[/TR]
[TR]
[TD]N 133.[/TD]
[/TR]
[TR]
[TD]N 146.[/TD]
[/TR]
[TR]
[TD]N 164.[/TD]
[/TR]
[TR]
[TD]N 166.[/TD]
[/TR]
[TR]
[TD]N 169.[/TD]
[/TR]
[TR]
[TD]N 173.[/TD]
[/TR]
[TR]
[TD]N 179.[/TD]
[/TR]
[TR]
[TD]N 180.[/TD]
[/TR]
[TR]
[TD]N 184.[/TD]
[/TR]
[TR]
[TD]N 186.[/TD]
[/TR]
[TR]
[TD]N 187.[/TD]
[/TR]
[TR]
[TD]N 196.[/TD]
[/TR]
[TR]
[TD]N 198.[/TD]
[/TR]
[TR]
[TD]N 205.[/TD]
[/TR]
</tbody>[/TABLE]
Depending on text in cell I want macro to cellect the sertain cells. If N15 contains "N 003." then select G2, if text in N15 if "N 004." Then sellect "G3" etc
I can do it this way.
Code:
If Range("N15").Text = "N 003." Then
Range("G2").Select
End If
If Range("N15").Text = "N 004." Then
Range("G3").Select
End If
If Range("N15").Text = "N 022." Then
Range("G4").Select
End If
If Range("N15").Text = "N 040." Then
Range("G5").Select
End If
and so on.
but how I can shorten the code to not type all ranges ?
Thank you