Replies

I didn’t get the spreadsheet but they are text.

That worked—thanks.

Format/sheet—unhide is grayed out

All the rows and columns are hidden and I can’t click on them.

Making your changes now and testing. Thank you…

so how do I get the macro to recognize my choice from the drop down and place the related text in the text field below the drop down?

May not have come over in the posted doc. In the original dot, the text form field is bookmarked as dropdown1. 1st indicates the location or position of the text in the drop down field–exemplary, solidsustain, etc. Can the macro identify the text and then add the supplemental text?

just added to the post—sorry

Attempting to get a VBA script to run in a word form that adds text in a text field based on a choice in a drop down menu. I’ve attached the dot for you to reference. The script might add the text for exemplary but doesn’t recognize solidsustained or achieve or doesn’t achieve. What’s missing in the code?
Couldn’t attach code so placing in this post.
Sub Customer_Service_Rating()
‘
‘ Customer_Service_Rating Macro
‘ Macro recorded 8/23/2006 by corders
‘
If (lstDropDown1 = Exemplary) Then
Selection.GoTo Text102
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.TypeText Text:= _
“You expertly handle difficult customer inquiries, questions, and complaints. You anticipate problems and take action to prevent them from escalating; consistently act on requests; provide solutions in a timely fashion; and follow through on customer requests. You make efforts to get customer feedback, and you consistently include customer perspective in your decision making. You are consistently clear, courteous, responsive, and professional in your communications with customers.”
Selection.GoTo (CSAddComment)
Else
If (lstDropDown1 = SolidSustained) Then
Selection.GoTo Text102
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.TypeText Text:= _
“You are able to thoroughly address most customer inquiries, questions, complaints. You routinely act on requests and provide solutions in a timely fashion by following through on customer requests. You routinely consider customer feedback and perspective in your decision making. You are clear and courteous in your communications with customers.”
Selection.GoTo (CSAddComment)
Else
If (lstDropDown1 = Achieves) Then
Selection.GoTo Text102
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.TypeText Text:= _
“You are able to address routine customer inquiries, questions, complaints. You usually act on requests and provide solutions in a timely fashion. You consider customer feedback and perspective in your decision making. You are usually clear and courteous in your communications with customers.”
Selection.GoTo (CSAddComment)
Else
If (lstDropDown1 = DoesNotAchieve) Then
Selection.GoTo Text102
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.TypeText Text:= _
“You are not consistently able to address routine customer inquires, questions, and complaints, and you require ongoing assistance by management or your peers. You are inconsistent in acting on requests and/or providing solutions in a timely manner. You are inconsistent in considering customer feedback and perspective in your decision making. You are inconsistent in clarity and courtesy in your communications with customers.”
Selection.GoTo (CSAddComment)
End If
End If
End If
End If

End Sub

Thanks…

I can’t get this to calculate—I get a formula error message about the logical test.

I need a spreadsheet that will track the dates for follow-up after clients are exited from a program. We want to plug in the exit date and have the 1st, 2nd, 3rd and 4th quarter after exit that exit date automatically calculate.
One formula I’ve tried calculates the date after a number of workdays

I get the text “same quarter” but no review date–should that display? I need the date to be in the next quarter.

This calculates beyond the 60 workdays for the first review.

So how did you do the bar charts that had three columns for one month?

Great—Thanks it works beautifully.