Hi
I have a data in Sheet1 as below:
[TABLE="width: 448"]
<tbody>[TR]
[TD="width: 64"]Data1~[/TD]
[TD="width: 64"]Data2~[/TD]
[TD="width: 64"]Data3~[/TD]
[TD="width: 64"]Data4*~[/TD]
[TD="width: 64"]Data5*[/TD]
[TD="width: 64"]Data6~[/TD]
[TD="width: 64"]Data7~[/TD]
[/TR]
[TR]
[TD]Data8~[/TD]
[TD]Data16~[/TD]
[TD]Data24~[/TD]
[TD]Data32~[/TD]
[TD]Data40[/TD]
[TD]Data48~[/TD]
[TD]Data56~[/TD]
[/TR]
[TR]
[TD]Data9~[/TD]
[TD]Data17~[/TD]
[TD]Data25~[/TD]
[TD]Data33~[/TD]
[TD]Data41~[/TD]
[TD]Data49~[/TD]
[TD]Data57~[/TD]
[/TR]
[TR]
[TD]Data10~[/TD]
[TD]Data18~[/TD]
[TD]Data26~[/TD]
[TD]Data34~[/TD]
[TD]Data42~[/TD]
[TD]Data50~[/TD]
[TD]Data58~[/TD]
[/TR]
[TR]
[TD]Data11*~[/TD]
[TD]Data19~[/TD]
[TD]Data27~[/TD]
[TD]Data35~[/TD]
[TD]Data43~[/TD]
[TD]Data51~[/TD]
[TD]Data59~[/TD]
[/TR]
[TR]
[TD]Data12[/TD]
[TD]Data20~[/TD]
[TD]Data28~[/TD]
[TD]Data36~[/TD]
[TD]Data44~[/TD]
[TD]Data52~[/TD]
[TD]Data60~[/TD]
[/TR]
[TR]
[TD]Data13~[/TD]
[TD]Data21~[/TD]
[TD]Data29~[/TD]
[TD]Data37*[/TD]
[TD]Data45~[/TD]
[TD]Data53~[/TD]
[TD]Data61~[/TD]
[/TR]
[TR]
[TD]Data14~[/TD]
[TD]Data22~[/TD]
[TD]Data30~[/TD]
[TD]Data38~[/TD]
[TD]Data46~[/TD]
[TD]Data54~[/TD]
[TD]Data62*~[/TD]
[/TR]
[TR]
[TD]Data15~[/TD]
[TD]Data23~[/TD]
[TD]Data31~[/TD]
[TD]Data39~[/TD]
[TD]Data47~[/TD]
[TD]Data55~[/TD]
[TD]Data63~[/TD]
[/TR]
</tbody>[/TABLE]
Now in each cell if the last character is not ~ or if the 2nd last character is * it will give error in column A on the other sheet as:
[TABLE="width: 179"]
<tbody>[TR]
[TD]Format Error in Row 1, Col D[/TD]
[/TR]
[TR]
[TD]Format Error in Row 1, Col E[/TD]
[/TR]
[TR]
[TD]Format Error in Row 2, Col E[/TD]
[/TR]
[TR]
[TD]Format Error in Row 5, Col A[/TD]
[/TR]
[TR]
[TD]Format Error in Row 6, Col A[/TD]
[/TR]
[TR]
[TD]Format Error in Row 7, Col D[/TD]
[/TR]
[TR]
[TD]Format Error in Row 8, Col G
How can I acheive it through VBA. Also I want to expand the logic checking in Sheet1 eg. the length of each cell should be greater than 3 and if it is <=3 it will give an error statement in the next sheet.[/TD]
[/TR]
</tbody>[/TABLE]
I have a data in Sheet1 as below:
[TABLE="width: 448"]
<tbody>[TR]
[TD="width: 64"]Data1~[/TD]
[TD="width: 64"]Data2~[/TD]
[TD="width: 64"]Data3~[/TD]
[TD="width: 64"]Data4*~[/TD]
[TD="width: 64"]Data5*[/TD]
[TD="width: 64"]Data6~[/TD]
[TD="width: 64"]Data7~[/TD]
[/TR]
[TR]
[TD]Data8~[/TD]
[TD]Data16~[/TD]
[TD]Data24~[/TD]
[TD]Data32~[/TD]
[TD]Data40[/TD]
[TD]Data48~[/TD]
[TD]Data56~[/TD]
[/TR]
[TR]
[TD]Data9~[/TD]
[TD]Data17~[/TD]
[TD]Data25~[/TD]
[TD]Data33~[/TD]
[TD]Data41~[/TD]
[TD]Data49~[/TD]
[TD]Data57~[/TD]
[/TR]
[TR]
[TD]Data10~[/TD]
[TD]Data18~[/TD]
[TD]Data26~[/TD]
[TD]Data34~[/TD]
[TD]Data42~[/TD]
[TD]Data50~[/TD]
[TD]Data58~[/TD]
[/TR]
[TR]
[TD]Data11*~[/TD]
[TD]Data19~[/TD]
[TD]Data27~[/TD]
[TD]Data35~[/TD]
[TD]Data43~[/TD]
[TD]Data51~[/TD]
[TD]Data59~[/TD]
[/TR]
[TR]
[TD]Data12[/TD]
[TD]Data20~[/TD]
[TD]Data28~[/TD]
[TD]Data36~[/TD]
[TD]Data44~[/TD]
[TD]Data52~[/TD]
[TD]Data60~[/TD]
[/TR]
[TR]
[TD]Data13~[/TD]
[TD]Data21~[/TD]
[TD]Data29~[/TD]
[TD]Data37*[/TD]
[TD]Data45~[/TD]
[TD]Data53~[/TD]
[TD]Data61~[/TD]
[/TR]
[TR]
[TD]Data14~[/TD]
[TD]Data22~[/TD]
[TD]Data30~[/TD]
[TD]Data38~[/TD]
[TD]Data46~[/TD]
[TD]Data54~[/TD]
[TD]Data62*~[/TD]
[/TR]
[TR]
[TD]Data15~[/TD]
[TD]Data23~[/TD]
[TD]Data31~[/TD]
[TD]Data39~[/TD]
[TD]Data47~[/TD]
[TD]Data55~[/TD]
[TD]Data63~[/TD]
[/TR]
</tbody>[/TABLE]
Now in each cell if the last character is not ~ or if the 2nd last character is * it will give error in column A on the other sheet as:
[TABLE="width: 179"]
<tbody>[TR]
[TD]Format Error in Row 1, Col D[/TD]
[/TR]
[TR]
[TD]Format Error in Row 1, Col E[/TD]
[/TR]
[TR]
[TD]Format Error in Row 2, Col E[/TD]
[/TR]
[TR]
[TD]Format Error in Row 5, Col A[/TD]
[/TR]
[TR]
[TD]Format Error in Row 6, Col A[/TD]
[/TR]
[TR]
[TD]Format Error in Row 7, Col D[/TD]
[/TR]
[TR]
[TD]Format Error in Row 8, Col G
How can I acheive it through VBA. Also I want to expand the logic checking in Sheet1 eg. the length of each cell should be greater than 3 and if it is <=3 it will give an error statement in the next sheet.[/TD]
[/TR]
</tbody>[/TABLE]