textbox değerini kopyalamak

[Barons]

merhaba

Userformda mevcut textbox içindeki değerini kopyalamak ve bu değeri word yada google da arama yapacak şekilde yapıştırmak istiyorum.Aslında clipboarda kopyalamak desek daha doğru olur.

denemeler yaptım ama bir türlü olmadı.

Yardımcı olacak arkadaşlara çok teşekkürler

 

[Ömer BARAN]

Merhaba.

Kullandığınız UserForm'a ekleyeceğiniz bir CommandButton için aşağıdaki kod'u kullanabilirsiniz.
CommondButton'un numarasına dikkat ediniz.
Görüntülenen MsgBox'u, tabiki iptal edebilirsiniz.
.

[B]Private Sub CommandButton[B][COLOR="red"][SIZE="4"]1[/SIZE][/COLOR][/B]_Click()[/B]
Set brn = New DataObject
    If TextBox1 <> "" Then
        brn.SetText TextBox1.Text
        brn.PutInClipboard
[COLOR="blue"]        MsgBox "TextBox'a yazılan: " & TextBox1.Text & vbLf & _
            "kopyalandı, başka uygulamalara yapıştırabilirsiniz."[/COLOR]
    End If
[B]End Sub[/B]

 

[Barons]

Süpersiniz..Çok teşekkür ederim çok net bir çözüm olmuş..dün 3 saat uğraştım sağdan soldan bir çok kod denedim ama olmamıştı...
Allah işinizi,rızkınızı herşeyinizi kolay eylesin

 

[Barons]

Hocam olmad ya
paste dediimde yle 2 kare karakter kyor.


 

[Orion1]

Deneyiniz.

Range("A1").value = textbox1.value

 

[Ömer BARAN]

Ben oluşturduğum bir UserForm (1 textbox, 1 Commandbutton) üzerinden denediğimde;
TextBox'a, SAYISAL ve/veya METİNSEL veri girişi yaparak denediğimde sorun görmüyorum.

İsterseniz örnek belge yükleyin onun üzerinden bakılsın.
.

 

[antonio]

merhaba

Userformda mevcut textbox içindeki değerini kopyalamak ve bu değeri word yada google da arama yapacak şekilde yapıştırmak istiyorum.Aslında clipboarda kopyalamak desek daha doğru olur.

denemeler yaptım ama bir türlü olmadı.

Yardımcı olacak arkadaşlara çok teşekkürler

Alternatif:

With TextBox[COLOR="Red"][B]..[/B][/COLOR] 'Textbox un adını doğru yazınız (noktalı yer).
    .SetFocus
    .SelStart = 0
    .SelLength = (Len(.Text))
    .Copy
End With

Böylece textbox içeriği clipboard a yapışmış oldu. Sağ tık >> yapıştır veya Ctrl + V ile dilediğiniz yere yapıştırabilirsiniz.

 

[Barons]

Antonia hocam çok teşekkürler...kod sorunsuz çalışıyor...Elinize sağlık...Bizlere karşılıksız yapılan bu yardım için Rabbimde sizlere Rızık kolaylığı,sıhhat afiyet huzur versin

yardımcı olmak isteyen herkesede tekrar teşekkürler

 

[antonio]

Yardım ettiğimiz insanların sonucu (olumlu-olumsuz) paylaşması bile bize yetiyor. Güzel dualarınız cümlemize gelsin. Sağolun. (Antonio)