Automatic Feed

[philb99]

Hi - I have 28 Support Leaders each have a Group number allocated to them from 1-28. I am trying to get an automatic feed into a column next to where once you select a support leader their group number will automatically feed into the next column.

However there will be occasions when a Support Leader will not be required and N/A entered. In the next column we have the date a SL has been assigned therefore is there anyway that when N/A has been selected an automatic N/A is entered.

I'm sure its something simple.

 

[philb99]

I tested the macro using the file you posted and it worked as you requested. Are macros enabled in your workbook? If they are, then please upload a copy of the file that isn’t working for you, de-sensitized if necessary.

Thanks – the macro can now be run when I key partner, with Not Required and N/A self-populate the columns

However when I key John Mumber Run time error 438 appears which points to the code

Set fnd = Sheets("Sheet2").Range("A:A").Fid(Target.Value, LookIn:=xlValues, lookat:=xlWhole)

Even when I delete John Mumber and / or Partner the Run time error appears.

Dropbox

www.dropbox.com

 

[mumps]

Oops!! There was a typo in that line. Replace that line of code with this one:

Set fnd = Sheets("Sheet2").Range("A:A").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)

 

[philb99]

Oops!! There was a typo in that line. Replace that line of code with this one:

Set fnd = Sheets("Sheet2").Range("A:A").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)

Works a treat - thank you.

How would I change the code if the columns were moved to Columns Q, R & S as opposed to B,C & D

 

[mumps]

You are very welcome.

How would I change the code if the columns were moved to Columns Q, R & S as opposed to B,C & D

Replace this line of code:

If Target.Column <> 2 Then Exit Sub

with this line:

If Target.Column <> 17 Then Exit Sub

 

[philb99]

You are very welcome.

Replace this line of code:

If Target.Column <> 2 Then Exit Sub

with this line:

If Target.Column <> 17 Then Exit Sub

perfect - thank you for your support

 

[mumps]

My pleasure.