Syntax Error

[jfalcone1]

What is wrong with my syntax? :x


Sub Button84_Click()
With Sheets("Database")
ActiveSheet.Unprotect "COMPS"
If .Selection.AutoFilter Field:=10, Criteria1:="X" Then .Range("C6:J6").Copy
End If
ActiveSheet.Protect "COMPS"
End With

End Sub


someone must know?.?.?.

 

[Norie]

You can't use Selection like that.

It's not a worksheet property, also you are trying to unprotect the ActiveSheet not the Database worksheet.

Now that sheet might be the active sheet but it's not guaranteed.

I can't really help with the Selection problem, as I don't actually know what is selected or what you want to filter.

But this is how you would do the unprotect/protect.

With Sheets("Database")
     .Unprotect "COMPS"
     ' other code
     .Protect "COMPS"
End With

 

[jfalcone1]

Im trying to say that If the cell lets say a7, is sorted using criteria 'X' then the following range should copy to the given destination cell.

 

[Norie]

Sorry you've lost me there.

I don't see how that code would do that.

 

[jfalcone1]

yea I think thats what I am looking for, something that WOULD do that. Its a really far fetched idea, i just dont have the skills.


So there is no way to create a condition based on an operation in autofilter? If not, I will move on to another idea.

 

[Scott Huish]

You can't use the AutoFilter like you have, but it's still not clear to me what you are trying to do. It looks like you want C6:J6 copied if there is any X in whatever column you are looking for it to be in, please specify. If you only want this one specific range copied, why do you need AutoFilter at all? But then you mention A7, which certainly is not in Field10 (where did that come from?). Why are you using Selection? Is there a specific range you want to look in?
Please provide specific details about what you are trying to accomplish exactly, examples if you can, what the range you are looking in, etc.

 

[jfalcone1]

You can't use the AutoFilter like you have, but it's still not clear to me what you are trying to do. It looks like you want C6:J6 copied if there is any X in whatever column you are looking for it to be in, please specify.

What I have is a database defined in rows, that is sorted using a series of variables in columns. The variables are defined in the column headers whose range is from c6:ae6. If these various criteria are applicable to a specific row, an 'X' is used to designate it in the autofilter.

Edit: MOD: html deleted. To the OP - only post representative samples of your data, not dozens of columns / rows as it tends to mess with the display.

 

[Scott Huish]

There is no output in your output sample sheet.

An X based in what column? What kind of data are you trying to return? From where?

 

[jfalcone1]

blank post?

 

[Scott Huish]

Scroll up and see your sample output, as you see it shows a formula but no data.