VBA help - Auto populate phrase based on conditions

[AlwaysLearning2018]

Hello all,

I am trying to automate a report that is run daily so I think I have to use VBA so it does not have to be touched. What I'm trying to figure out to do is for each instance in a row where I see "SA" in column J, I need the phrase "Load" to populate in every row in column O. Also if any row in column J = SWP and any row in column N = "invalid" then I need every row in column O that satisfies both criteria to = "Sweep".

Any ideas anyone can give would be greatly appreciated!!

Regards

 

[Fluff]

You're welcome & thanks for the feedback

 

[AlwaysLearning2018]

Hi Fluff,

Is there a way to use this same .Auto filter function to write code, if column F = "Option" and column N = "OK" to have Column O page l populate "Option Do not Instruct". I tried to add this to the end of what you had already given me but can't seem to get it to work.

 

[Fluff]

What have you tried?

 

[AlwaysLearning2018]

I tried the below, which is added to what you have already provided to me. I get an error that says No Cells were found.

.Auto filter 6, "Option"
.Auto filter 14, "OK"
.Columns(15).Offset(1).Resize(.Rows. count - 1).SpecialCells(xlvisible).Value = "Option do not instruct"
.Parent.AutoFilterMode = False

 

[Fluff]

You'll need to clear the filter on cols 10 & 11, like

.AutoFilter 10

and then the same again for 11

 

[AlwaysLearning2018]

Thanks as always! Worked after I cleared. So awesome.

 

[Fluff]

You're welcome

 

[AlwaysLearning2018]

Hi Fluff,

With the Auto filter function, is there a way to not have the macro "debug" if some of the criteria (ie Option isn't always in column 6 it may not be a choice on any given day) doesn't always appear on a report? I want to account for it when it does appear, but is there a way to have this code sort of skip over that filter if it's not available/ not on the sheet? When the criteria isn't in the column, the macro breaks.

Thanks!!!

 

[Fluff]

Put

On Error resume next

Just before the With statement &

On Error Goto 0

after the End With

 

[AlwaysLearning2018]

Worked, as usual. Thank you so much!