TextBox İçindeki Seçili Veriyi Buton İle Kopyalama

[katip16487]

Merhabalar kolay gelsin.

UserForm içinde 1 adet TextBox ve 1 adet CommantButton bulunmaktadır.

TextBox içine veriler Excel sayfasında yer alan hücreden gelmektedir.

TextBox içinde çok sayıda satır yer almaktadır.

Amacım ise TextBox içinde MANUEL OLARAK SEÇTİĞİM kısmın CommanButton ile kopyalanması..

TextBox içerisinde yer alan tüm metni;

Private Sub CommandButton1_Click()
If TextBox1 <> Empty Then
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Copy
CreateObject("WScript.Shell").popup "Hükmün TAMAMI kopyalandı, istediğiniz yere yapıştırabilirsiniz...", 3, "HÜKMÜN TAMAMINI KOPYALAMA", vbOKOnly
End If
End Sub

kodu ve butonu ile kopyalayabiliyorum, ancak dediğimi bir türlü yapamadım.

İlgilenecek arkadaşlara şimdiden teşekkür ederim...

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

Private Sub CommandButton1_Click()
If TextBox1 <> Empty Then
Set a = New DataObject
a.SetText Mid(TextBox1.Text, TextBox1.SelStart, TextBox1.SelLength + 1)
a.PutInClipboard
CreateObject("WScript.Shell").popup "Hükmün TAMAMI kopyalandı, istediğiniz yere yapıştırabilirsiniz...", 3, "HÜKMÜN TAMAMINI KOPYALAMA", vbOKOnly
End If
End Sub

 

[PLİNT]

Seçim yapılmazsa uyarı versin;
(+1 yeri düzeltildi)

Private Sub CommandButton1_Click()

If TextBox1 <> Empty Then
Dim a, tx As String
Set a = New DataObject
tx = Mid(TextBox1.Text, TextBox1.SelStart + 1, TextBox1.SelLength)
If tx = Empty Or Len(tx) = 0 Then MsgBox "seçim yapılmadı": Exit Sub
a.SetText tx
a.PutInClipboard
CreateObject("WScript.Shell").popup "Hükmün TAMAMI kopyalandı, istediğiniz yere yapıştırabilirsiniz...", 3, "HÜKMÜN TAMAMINI KOPYALAMA", vbOKOnly
End If
End Sub

 

[katip16487]

İlginize teşekkür ederim, ancak ne yazık ki;
??? veya kare
şeklinde yapıştırıyor.

 

[PLİNT]

Merhaba
İstediğiniz örnekteki gibi değilmi?
https://www.dosyaupload.com/75uv

0r2AzL.gif

Gif

hizliresim.com

 

[katip16487]

İstediğim bu ancak Word'e yapıştırmaya çalıştığımda yapıştırmıyor ne yazık ki?