excel - Subscript out of range for If function in VBA -
i'm doing payroll application , keep getting message when trying if function vba script.
its first line of if statement giving me hard time.
sub payperiod() if sheets("sheet30").range("e17") = "1" 'error here sheets("week 1").select elseif sheets("sheet30").range("e17") = "2" sheets("week 2").select elseif sheets("sheet30").range("e17") = "3" sheets("week 3").select elseif sheets("sheet30").range("e17") = "4" end if end sub
try using variables , declare them properly. need qualify sheet location. declare variables @ top, assign them desired values once , use variable in code. way, if sheet names or cell references change, can adjust macro in 1 place. (i've left .select
statement in example, note hardly ever need select elements work them.
option explicit sub payperiod() dim ws worksheet dim rng range set ws = thisworkbook.sheets("sheet30") set rng = ws.range("e17") if rng = "1" ws.range("week1").select [rest of code] end sub
Comments
Post a Comment