Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > microsoft.public.excel.programming > #108045
| From | Claus Busch <claus_busch@t-online.de> |
|---|---|
| Newsgroups | microsoft.public.excel.programming |
| Subject | Re: Manage errors with multiple InPut Boxes |
| Date | 2015-09-28 14:26 +0200 |
| Organization | A noiseless patient Spider |
| Message-ID | <mubbis$qs2$1@dont-email.me> (permalink) |
| References | <8b195265-26d2-499d-ae33-03a9284868e0@googlegroups.com> <mub495$v0f$1@dont-email.me> <f93d10f9-0d00-421e-96bc-3026cf2e8c2a@googlegroups.com> <cd7656f3-bbe4-4014-96a7-9ff69f26bade@googlegroups.com> <592f6a1a-731b-416e-9586-0301eb8b29c4@googlegroups.com> |
Hi Howard,
Am Mon, 28 Sep 2015 05:10:22 -0700 (PDT) schrieb L. Howard:
> With Sheets("Master")
> Sheets("Master").Range("A" & Rows.Count).End(xlUp)(2).Resize(rowsize:=arrC.Cells.Count) _
> = WorksheetFunction.Transpose(myArr)
> End With
sorry for the delay. I was not at home.
Try:
Sub Inputbox_Comma()
Dim Empl_Info, i As Long
Dim myArr As Variant
Empl_Info = InputBox("Enter Employee Info, separated by commas")
myArr = Split(Empl_Info, ",")
With Sheets("Master")
.Cells(Rows.Count, 1).End(xlUp)(2) _
.Resize(columnsize:=UBound(myArr) + 1) = myArr
End With
End Sub
Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional
Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-09-28 01:42 -0700
Re: Manage errors with multiple InPut Boxes Claus Busch <claus_busch@t-online.de> - 2015-09-28 12:22 +0200
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-09-28 04:15 -0700
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-09-28 05:05 -0700
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-09-28 05:10 -0700
Re: Manage errors with multiple InPut Boxes Claus Busch <claus_busch@t-online.de> - 2015-09-28 14:26 +0200
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-09-28 05:48 -0700
Re: Manage errors with multiple InPut Boxes Claus Busch <claus_busch@t-online.de> - 2015-09-28 12:28 +0200
Re: Manage errors with multiple InPut Boxes GS <gs@v.invalid> - 2015-09-28 08:59 -0400
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-09-28 07:21 -0700
Re: Manage errors with multiple InPut Boxes Claus Busch <claus_busch@t-online.de> - 2015-09-28 17:43 +0200
Re: Manage errors with multiple InPut Boxes GS <gs@v.invalid> - 2015-09-28 12:21 -0400
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-09-28 09:45 -0700
Re: Manage errors with multiple InPut Boxes GS <gs@v.invalid> - 2015-09-28 17:54 -0400
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-09-29 19:01 -0700
Re: Manage errors with multiple InPut Boxes GS <gs@v.invalid> - 2015-09-30 20:36 -0400
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-10-01 00:15 -0700
Re: Manage errors with multiple InPut Boxes GS <gs@v.invalid> - 2015-10-02 14:40 -0400
Re: Manage errors with multiple InPut Boxes "L. Howard" <lhkittle@comcast.net> - 2015-10-02 13:41 -0700
Re: Manage errors with multiple InPut Boxes GS <gs@v.invalid> - 2015-10-02 16:46 -0400
Re: Manage errors with multiple InPut Boxes GS <gs@v.invalid> - 2015-10-03 13:21 -0400
csiph-web