ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   input box to allow range OR strings (https://www.excelbanter.com/excel-programming/401501-re-input-box-allow-range-strings.html)

FSt1

input box to allow range OR strings
 
hi
tricky problem. you could use a msgbox to get a yes/no responce. something
like this...
Dim rngto As Range
Dim stgto As String
If MsgBox("Do you wish to enter the mail addresses?" & vbNewLine & _
"Click yes?" & vbNewLine & _
"Or to select email addresses by range" & vbNewLine & _
"Click No") = vbNo Then
Set rngto = Application.InputBox("Select range with addressees emails
for the 'TO:' field")
Else
Set stgto = Application.InputBox("Enter emails here separated by
semicolon.")
End If

lot of extra code but it would solve the delima.

Regards
FSt1

"Greg" wrote:

Hi,

I'd like the user to either select the range of cell with email addresses or
type it OR be able to type them in directly. I can only think of one either
declare a range or string. for example, when declaring a range my code looks
like following:


Set rngTo = Application.InputBox("Select range with addressees emails
for the 'TO:' field" & _
vbNewLine & "or enter emails here separated by semicolon", "Select",
Type:=8)

This won't allow a string to be typed in...
Can anything suggest the workaround?
Thank you,
--
______
Regards,
Greg



All times are GMT +1. The time now is 01:37 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com