ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA input box MSG (https://www.excelbanter.com/excel-programming/295487-vba-input-box-msg.html)

Adrix

VBA input box MSG
 
HI,

I would like to ask the user to insert a address in a msgb box, but
that inputbox should allow the user to drag the address directely in
the excel sheet . Just like when we are entering a formula and appear
that button in right side of the input formula box.

if it is possible mail me the answer.

thank you in advance

Adri

--
Message posted from http://www.ExcelForum.com


Tom Ogilvy

VBA input box MSG
 
dim rng as Range
On error resume Next
set rng = application.InputBox("use mouse to select range", type:=8)
On Error goto 0
if not rng is nothing then
msgbox rng.Address & " was selected"
else
msgbox "You clicked cancel"
End if

Post it here, read it here.

--
Regards,
Tom Ogilvy

"Adrix " wrote in message
...
HI,

I would like to ask the user to insert a address in a msgb box, but
that inputbox should allow the user to drag the address directely int
the excel sheet . Just like when we are entering a formula and appears
that button in right side of the input formula box.

if it is possible mail me the answer.

thank you in advance

Adrix


---
Message posted from http://www.ExcelForum.com/




chris: forgot 'end if'

VBA input box MSG
 
Function IsAlpha(x) As Boolea
Dim y As Long, z As Lon
y = Len(x
For z = 1 To
If Mid(x, z, 1) Like "[0-9]" The
IsAlpha = Fals
Exit Functio
End If <<<<<<<<
Nex
IsAlpha = Tru
End Functio


Bob Phillips[_6_]

VBA input box MSG
 
Note that this allows you to select a range, whose dares is loaded into the
InputBox, there is no drag and drop needed (better IMO),

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Tom Ogilvy" wrote in message
...
dim rng as Range
On error resume Next
set rng = application.InputBox("use mouse to select range", type:=8)
On Error goto 0
if not rng is nothing then
msgbox rng.Address & " was selected"
else
msgbox "You clicked cancel"
End if

Post it here, read it here.

--
Regards,
Tom Ogilvy

"Adrix " wrote in message
...
HI,

I would like to ask the user to insert a address in a msgb box, but
that inputbox should allow the user to drag the address directely int
the excel sheet . Just like when we are entering a formula and appears
that button in right side of the input formula box.

if it is possible mail me the answer.

thank you in advance

Adrix


---
Message posted from http://www.ExcelForum.com/







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

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