Please Help, how to transfer specific values in textbox1 to textbox2 when a command button is click

Ase · Jan 26, 2011

****** http-equiv="Content-Type" content="text/html; charset=utf-8">****** name="ProgId" content="Word.Document">****** name="Generator" content="Microsoft Word 12">****** name="Originator" content="Microsoft Word 12"><link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml"><link rel="themeData" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx"><link rel="colorSchemeMapping" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml"><style> <!-- /* Font Definitions */ @font-face {font-family:"Cambria Math"; panose-1:0 0 0 0 0 0 0 0 0 0; mso-font-charset:1; mso-generic-font-family:roman; mso-font-format

ther; mso-font-pitch:variable; mso-font-signature:0 0 0 0 0 0;} @font-face {font-family:Calibri; panose-1:2 15 5 2 2 2 4 3 2 4; mso-font-charset:0; mso-generic-font-family:swiss; mso-font-pitch:variable; mso-font-signature:-1610611985 1073750139 0 0 159 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-unhide:no; mso-style-qformat:yes; mso-style-parent:""; margin-top:0in; margin-right:0in; margin-bottom:10.0pt; margin-left:0in; line-height:115%; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} .MsoChpDefault {mso-style-type:export-only; mso-default-props:yes; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} .MsoPapDefault {mso-style-type:export-only; margin-bottom:10.0pt; line-height:115%;} @page Section1 {size:8.5in 11.0in; margin:1.0in 1.0in 1.0in 1.0in; mso-header-margin:.5in; mso-footer-margin:.5in; mso-paper-source:0;} div.Section1 {page:Section1;} --> </style>Please help

I have 1 userform with two textbox, for argument sake their names are textbox1 and textbox2.

The function would be this. When I paste a data in textbox1 (please see below sample);

Reference: 000000000000
Title: Mr.
First name: AAA
Last name: BB
address 1: aaa
address 2: bbb
Serial Numer: 11111111
Sex: M
Tel number: 11

The Title, First Name and Last name would appear in textbox2 first line and then address 1 and address 2 on the second line. Third line will be the telephone number (Please see sample below);
Mr AAA BB
aaa bbb
11

Only copying the value of the references and disregarding other lists.
Please see below codes that I already made but unable to proceed;

Private Sub CommandButton1_Click()
'TextBox2 = TextBox1
'TextBox1 = ""
Dim arr1() As String

arr1 = Split(TextBox1, vbCrLf)

TextBox2 = Right(arr1(0), InStr(arr1(0), vbTab) - 2) & vbCrLf
TextBox2 = TextBox2 & Right(arr1(1), InStr(arr1(1), vbTab) - 2) & " " & Right(arr1(2), InStr(arr1(2), vbTab) - 2) & vbCrLf

'For i = 0 To UBound(arr1)
' TextBox2 = arr1(i)
'Next
End Sub

Can you please help me what is wrong on the above example? I already been doing this for a month and I haven’t complete it yet.

Thank you

Please Help, how to transfer specific values in textbox1 to textbox2 when a command button is click

Ase

New Member

Excel Facts

Similar threads

Forum statistics

Share this page

Please Help, how to transfer specific values in textbox1 to textbox2 when a command button is click

Ase

New Member

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock