No, Just one space to the next dropdown. However it now works. the issue was cell formatting on the sheet causing the code to not work, but because of the on error line it wasnt showing as an error it was just moving to the next operation which ended the routine
Posts by Houdin
-
-
Thank you, However I tried that and still cant seem to get it to work. Any suggestions on placement?
-
Good day all,
Any help would be greatly appreciated.
I have an estimating program that utilizes macros to set up drop down lists and set formulas. all works fine except for the last item.
scenario is you pick from thew first drop down. depending on the answer certain actions occur. for the last item "Pipe" once it is picked the cursor jumps to a new drop down. Once you pic from that the cursor jumps again to a new drop down. the issue? the second jump doesnt occur. The code doesnt error out. it just does nothing.
Here is a sample
Code
Display MoreElseIf Target.Value = "Pipe" Then Target.Offset(, 1).FormulaR1C1 = "=RC[1]&"""""" Sch.""&RC[2]&"" Pipe""" 'Target.Offset(, 2).Select Set rTarget = Target.Offset(, 2) rTarget.Select With rTarget.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=SizeList" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = False End With rTarget.Activate If rTarget.Text = "1/8" Then rTarget.Offset(, 1).Select With rTarget.Offset(, 1).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=List1\8" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = False End With rTarget.Offset(, 1).Select ElseIf rTarget.Text = "1/4" Then With rTarget.Offset(, 1).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=List1\4" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = False End With
I originally had the block at the end as a seperate global macro called Macro1. but either way whether calling it up that way or embedded in the main code it still does nothingAny help would be greatly appreciated
I am actually going to upload the file. The sheet im currently woking in is labeled L&M#1. Once that one works I will be reusing the code for other sheets.
Houdin