Masta
New Member
- Joined
- Feb 22, 2022
- Messages
- 33
- Office Version
- 2021
- 2019
- 2016
- Platform
- Windows
I have TextBox1, TextBox2, TextBox3, TextBox4 and i have
Private Sub CommandButton1_Click()
TextBox5.Paste
If TextBox5.Value <> "" Then
With New MSForms.DataObject
.SetText TextBox5.Text
.PutInClipboard
End With
End If
End Sub
When i paste this data 1181117 9401670 GR1326GN 11.08.2022 to TextBox5 i need to split them in tha way TextBox1 1181117, TextBox2 9401670, TextBox3 GR1326GN and TextBox4 11.08.2022 . I have bunch load of this data in other program base so i need to select and copy data from there than i need to click on Private Sub CommandButton1_Click() to paste data, and after that data needed to be splited in TextBoxes. Thanks.
Private Sub CommandButton1_Click()
TextBox5.Paste
If TextBox5.Value <> "" Then
With New MSForms.DataObject
.SetText TextBox5.Text
.PutInClipboard
End With
End If
End Sub
When i paste this data 1181117 9401670 GR1326GN 11.08.2022 to TextBox5 i need to split them in tha way TextBox1 1181117, TextBox2 9401670, TextBox3 GR1326GN and TextBox4 11.08.2022 . I have bunch load of this data in other program base so i need to select and copy data from there than i need to click on Private Sub CommandButton1_Click() to paste data, and after that data needed to be splited in TextBoxes. Thanks.