ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   code failure (https://www.excelbanter.com/excel-programming/363612-code-failure.html)

dreamz[_45_]

code failure
 

i can't figure out what's wrong with this code:


Code
-------------------

Private Sub cbMSA_Change()
If cbMSA.Value = "Please select MSA" Then
Range("D42:Y42").AutoFilter Field:=2
Else
Range("D42:Y42").AutoFilter Field:=2, Criteria1:=cbMSA.Value
End If
End Sub

-------------------


i copied and pasted from another section and made the necessary change
to the names. i get: run-time error 1004: autofilter method of rang
class failed.

any ideas

--
dream
-----------------------------------------------------------------------
dreamz's Profile: http://www.excelforum.com/member.php...fo&userid=2646
View this thread: http://www.excelforum.com/showthread.php?threadid=54963


dreamz[_46_]

code failure
 

interesting. i have two separate pieces of code that do something, an
now i'm just testing. whenever i run the first macro, the error pops u
in the second one, even though cbMSA was not touched. what's going on?


Code
-------------------

Private Sub cbForm_Change()
If cbForm.Value = "Please select formulary" Then
Range("D42:Y42").AutoFilter Field:=1
Range("D42:Y42").AutoFilter Field:=2
Else
Range("D42:Y42").AutoFilter Field:=1, Criteria1:="Last Update"
Range("D42:Y42").AutoFilter Field:=2, Criteria1:="Abilene, TX"
End If
End Sub

Private Sub cbMSA_Change()
'If cbMSA.Value = "Please select MSA" Then
' Range("D42:Y42").AutoFilter Field:=2
'Else
Range("D42:Y42").AutoFilter Field:=2, Criteria1:="Abilene, TX"
'End If
End Sub

-------------------

--
dream
-----------------------------------------------------------------------
dreamz's Profile: http://www.excelforum.com/member.php...fo&userid=2646
View this thread: http://www.excelforum.com/showthread.php?threadid=54963



All times are GMT +1. The time now is 11:51 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com