Excel 2010 User Getting Run Time Error 438 -
i have series of recorded macros tied control buttons. can see, there's quite bit going on here. have excel 2013. 2010 user receiving run time error: 438 message when use controls--however, have no issue controls. recommendations on what's causing this? i've researched quite bit , nothing appears resolve problem.
sub pipesum_allwin_types() ' ' pipesum_allwin_types macro ' ' application.screenupdating = false sheets("pipesum-agingtable").visible = true sheets("pipesum-agingtable").select activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable1").pivotfields("win type eligible") .pivotitems("").visible = false sheets("pipesum-agingtable").visible = false end sheets("pipesum-stage-wintype").visible = true sheets("pipesum-stage-wintype").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible") .pivotitems("").visible = false sheets("pipesum-stage-wintype").visible = false end sheets("pipesum_openedvclosed").visible = true sheets("pipesum_openedvclosed").select activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable2").pivotfields("win type eligible") .pivotitems("").visible = false end range("h5").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible") .pivotitems("").visible = false sheets("pipesum_openedvclosed").visible = false application.screenupdating = false end sheets("pipeline summary").select end sub sub pipesum_incrphys() ' ' pipesum_incrphys macro ' ' application.screenupdating = false sheets("pipesum-agingtable").visible = true sheets("pipesum-agingtable").select activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="incr" sheets("pipesum-agingtable").visible = false sheets("pipesum-stage-wintype").visible = true sheets("pipesum-stage-wintype").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="incr" sheets("pipesum-stage-wintype").visible = false sheets("pipesum_openedvclosed").visible = true sheets("pipesum_openedvclosed").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="incr" range("a5").select activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="incr" sheets("pipesum_openedvclosed").visible = false application.screenupdating = false sheets("pipeline summary").select end sub sub pipesum_acq() ' ' pipesum_acq macro ' ' application.screenupdating = false sheets("pipesum-agingtable").visible = true sheets("pipesum-agingtable").select activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="acq" sheets("pipesum-agingtable").visible = false sheets("pipesum-stage-wintype").visible = true sheets("pipesum-stage-wintype").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="acq" sheets("pipesum-stage-wintype").visible = false sheets("pipesum_openedvclosed").visible = true sheets("pipesum_openedvclosed").select activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="acq" range("h5").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="acq" sheets("pipesum_openedvclosed").visible = false application.screenupdating = false sheets("pipeline summary").select end sub sub pipesum_bgc() ' ' pipesum_bgc macro ' ' application.screenupdating = false sheets("pipesum-agingtable").visible = true sheets("pipesum-agingtable").select activeworkbook.showpivottablefieldlist = true activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="bgc" sheets("pipesum-agingtable").visible = false sheets("pipesum-stage-wintype").visible = true sheets("pipesum-stage-wintype").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="bgc" sheets("pipesum-stage-wintype").visible = false sheets("pipesum_openedvclosed").visible = true sheets("pipesum_openedvclosed").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="bgc" range("a4").select activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="bgc" sheets("pipesum_openedvclosed").visible = false application.screenupdating = false sheets("pipeline summary").select end sub sub pipesum_hosp() ' ' pipesum_hosp macro ' ' application.screenupdating = false sheets("pipesum-agingtable").visible = true sheets("pipesum-agingtable").select activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="hosp" sheets("pipesum-agingtable").visible = false sheets("pipesum-stage-wintype").visible = true sheets("pipesum-stage-wintype").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="hosp" sheets("pipesum-stage-wintype").visible = false sheets("pipesum_openedvclosed").visible = true sheets("pipesum_openedvclosed").select activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="hosp" range("h5").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="hosp" sheets("pipesum_openedvclosed").visible = false application.screenupdating = false sheets("pipeline summary").select end sub sub pipesum_ws() ' ' pipesum_ws macro ' ' application.screenupdating = false sheets("pipesum-agingtable").visible = true sheets("pipesum-agingtable").select activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable1").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="ws" sheets("pipesum-agingtable").visible = false sheets("pipesum-stage-wintype").visible = true sheets("pipesum-stage-wintype").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="ws" sheets("pipesum-stage-wintype").visible = false sheets("pipesum_openedvclosed").visible = true sheets("pipesum_openedvclosed").select activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable3").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="ws" range("a5").select activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ clearallfilters activesheet.pivottables("pivottable2").pivotfields("win type eligible"). _ pivotfilters.add2 type:=xlcaptioncontains, value1:="ws" sheets("pipesum_openedvclosed").visible = false application.screenupdating = false sheets("pipeline summary").select end sub
Comments
Post a Comment