COPYING ONLY A HIGHLIGHTED SELECTION OF USERFORM TEXTBOX TEXT TO A CELL ON ANOTHER SHEET

[chazrab]

As above. The following code copies the entire Textbox1 container, not just the highlighted selection.

Private Sub CommandButton1_Click()
    Dim MyData As New DataObject
    MyData.SetText TextBox1.Text  ---> copies entire textbox text - not what I want
    MyData.PutInClipboard
End Sub

Textbox1 text is on Userform1. Code is in a button on Usrform1.
1. The desired text anywhere in Textbox1 is highlighted
2. The button code "reads" and copies only the highlighted text to the clipboard
3. And pastes that highlighted selection in cell A1 of a sheet named VSEDITS
That's it. Images below may help to explain better.

Thanks for anyone's help. My difficulty is in "trapping" only the highlighted selection of any textbox text.

 

[DanteAmor]

It is not necessary to put it in memory and then put it in the cell.
You can do it directly:

Private Sub CommandButton1_Click()
  Sheets("VSEDITS").Range("A1").Value = TextBox1.SelText
End Sub

 

[DanteAmor]

But if you want it in memory and then to the cell, then:

Private Sub CommandButton1_Click()
  Dim MyData As New DataObject
  
  MyData.SetText TextBox1.SelText, 1
  MyData.PutInClipboard
  Sheets("VSEDITS").Range("A1").Value = MyData.GetText(1)
End Sub

 

[chazrab]

Hi Dante, first of all thanks for helping. You've helped me greatly in past posts to enhance this application - however in this case, neither of your code does what I want it to - unless i'm missing something. I just copied your code in the button and ran it. It did not paste the highlighted text with changes in cell A1 of sheet VSEDITS. The cell was left blank.

What I want to do is make any changes needed in a specific selected section of a textbox - then highlight that text with
the mouse - grab it, then copy it to a cell on a new sheet. It's exactly the same thing as the copy item on a context menu, except
I want to put that code sequence in a button, so that when clicked, the selection highlighted is automatically copied and pasted into cell AI
of VSEDITS with wany changes made.

Thanks for all your help
cr

 

[DanteAmor]

Hi @chazrab

Both options work for me.
I share my file for you to analyze.

SelText.xlsm

drive.google.com

 

[chazrab]

Hi Dante. Thanks again for your help. I couldn't open your file. The link opened in a Google viewer.

Private Sub cmdEDITVERSE_Click()
 Sheets("VSEDITS").Range("A1:B1").ClearContents
 Sheets("VSEDITS").Range("A1").Value = NASB.SelText  'this one line of code only worked one time. NASB is just the sheet name
'When I added the line above to clear the contents for new values, nothing pasted into cell A1 of sheet VSEDITS.
'Don't see any reason why not.  

The code below I wrote works great but still copies the entire textbox 'even though I only highlighted the top 4 lines.  It copies the verse
in Textbox8 on the same sheet, along with the value highlighted(supposed to) and just pastes x in cell A1 and the highlighted text in cell
B1 of sheet VSEDITS.

'******************************************works great but copies all text instead of just the highlighted text
   Sheets("VSEDITS").Range("A1:B1").ClearContents
    Dim x As String, ws As Worksheetst
    x = Me.TextBox8.Value
    With BIBLETEXTWINDOW.NASB
       .SelStart = 0
       .SelLength = Len(.Text)
      .Copy
   End With
 cmdEDITVERSE.SetFocus
Set ws = Sheets("VSEDITS")
ws.Cells(1, 1).Value = x
ws.paste Destination:=ws.Range("B1")
     
'******************************************works great but copies all text instead of just the highlighted text

I haven't figured out why this code is not "trapping" on the text highlighted and copying it.
And I don't know why your one line of code in option 1 works for you and not for me every time.

It must be something very simple to fix. This seems way too easy.

Thanks again for all your help.

cr

 

[DanteAmor]

I couldn't open your file.

You must download the file to your computer.

To pass the selected part to the cell, you must use the SelText property of the textbox.



Try a new userform with a single textbox, select the text and press the button:

That's all. You don't need more lines of code.

 

[chazrab]

code now works great. Thanks again for all your help.
cr