VBA Macro to automate a tedious task - fast help needed

[alombia]

Hello guys,

I am doing some tedious data entry work on excel. Please have a look at the following image:

I have been given the task of creating a huge number of excel files. My task is to:
1. Copy and past data (which is "a,b,c,d") into cells J5:J24 as shown above.
2. Based on the abcd value of J5:J24 I am to insert an 'X' into cells F5:I24 as shown above.

My question: how can i create a vba macro to automate this inserting 'X' into the relevant cells. i.e if J5=a then insert X in F5 else if J5=b then insert X in G5 else if J5=c insert X in H5 else if J5=d then insert X in I5 etc and then continue this if/ese until J24

Your help will be immensely appreciated.

Thanks in advance.

 

[MickG]

Try This:-

[COLOR="Navy"]Sub[/COLOR] MG09Sep53
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range("J5", Range("J" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    Dn.Offset(, -(69 - Asc(UCase(Dn.Value)))) = "X"
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[alombia]

Wow! You are a life saver mate. Thank you very much.

 

[MickG]

You're welcome