Help with a text box option

K

ksquirt

I'm missing a line or something... it ends with the dollars option.
Please help!



'Text Box, enter which month you want
Aswr = Application.InputBox(prompt:="Choose one" _
& vbCrLf & "Hours" _
& vbCrLf & "Dollars", _
Title:="Do you want to enter FTE hours or dollars?", Default:="hours")

'Sets the correct value based on Aswr


If Aswr = "Hours" Then Range("D" & CStr(LSearchRow)).Value = "00060"
Range("E" & CStr(LSearchRow)).Value = "y"
Range("D" & CStr(LSearchRow)).Value = "00060_SALARYBEN"


If Aswr = "Dollars" Then Range("D" & CStr(LSearchRow)).Value = "00060"
Range("E" & CStr(LSearchRow)).Value = "n"
Range("D" & CStr(LSearchRow)).Value = "00060_SALARYBEN"

If Aswr = False Then
Exit Sub
End If
If RSort <> "Hours" Then
If RSort <> "Dollars" Then

End If
End I
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Please help! with find/copy/replace 1
Help with Macro that contains text and not looks at case 2
Help With VBA Copy Code 6
paste row into Sheet2 in next row 1
Copy Row If Value is Between 9
Confusing Macro and references.... 0
Pasting rows below the last row with data? 1
Copying to next unused row 5

Top