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
ElseIf 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 nothing
Any 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