TextBox İçeriğindeki Yazıyı Kopyalama

[ormann]

İyi günler ;
Sayfa1.TextBox1.copy dediğim de Hem TextBox1 i tamamen kopyalıyor.Benim yapmak istediğim textbox1'in içerisindeki yazının kopyalanması .Yardımcı olur musunuz?

 

[Zeki Gürsoy]

Yazı belleğe kopyalanır... (Ctrl + C gibi)

Dim d As New DataObject

d.SetText TextBox1.Text
d.PutInClipboard

 

[ormann]

Zeki bey bu kodu nereye yazacağım.Böyle olmadı

Sub kopyala()

Dim d As New DataObject

d.SetText TextBox2.Text
d.PutInClipboard


End Sub

 

[işsiz123]

Sayfa 1 kod bölümüne

 

[ormann]

Kodda sıkıntı var.Çalıştıramadım.

 

[işsiz123]

Bende çalıştı hangi hatayı veriyor

 

[işsiz123]

bide böyle dene

Dim d As New DataObject
Sub kopyala()
If TextBox2.Text = "" Then
MsgBox ("textbox2 kopyalanacak veri buunamadı")
Else
d.SetText TextBox2.Text
d.PutInClipboard
End If
End Sub

 

[ormann]

d.SetText TextBox1.Text

burda hata var

 

[ormann]

If TextBox1.Text = "" Then

Burda hata verdi

 

[işsiz123]

örnek Dosya ekleyin yardımcı olmaya çalışalı

 

[ormann]

Ektedir
http://dosya.co/cjdxqqp25t6k/örnek.xls.html

 

[işsiz123]

ek dosyada kodları modül e yatıştırmışsınız Sayfa1 kod bölümüne yapıştırınız
sayfa1 e yapıştırdığım da çalıştı

 

[işsiz123]

http://s7.dosya.tc/server6/z1uc93/ornek.xls.html

 

[ormann]

Yalnız ekli kod asıl dosyamda hata verdi .ana sayfa üzerindeki kopyala butonu TextBox2
http://dosya.co/pqxkc03tjfm5/RAPOR_PROGRAMI1.rar.html?killcode=0suup5jbaz

 

[ormann]

Çok teşekkür ederim.Şimdi oldu gayet güzel çalışıyor.Ellerinize sağlık

 

[işsiz123]

rica ederim iyi çalışmalar

 

[ormann]

Bu koda işave olarak şöyle bir şey yapışabilr mi?
Kopyalarken yazıyı iki yana yasla şeklinde kopyalayabilir mi?

 

[derisa963]

If TextBox1.Text = "" Then

Burda hata verdi

veriyi aktarma istediginiz hücre diyelim ki sayfa 1 deki a1 hücresi.

Dim veri As Variant
Worksheets("Sayfa1").Range("A1").value = Textbox1.Value

Veriyi Kopyalamak için:

Dim veri As Variant
veri = Textbox1.Value

yani Textbox.text yerine Textbox1.value Kullanıyorum ben.
.Text kullanmak C# İçin geçerli.

 

[ormann]

Sayın derisa teşekkür ederim.Bilgilendirme için ekli kod textbox içerisindeki veriyi kopyalıyor.Fakat benim istediğim bu kopyalama başka bir yere yapıştıdığım zaman iki yana yasla şeklinde olması

Dim d As New DataObject
Sub kopyala()
If TextBox1.Text = "" Then
MsgBox ("textbox1 kopyalanacak veri buunamadı")
Else
d.SetText TextBox1.Text
d.PutInClipboard
MsgBox TextBox1.Value & ("  Verisi kopyalandı")
End If
End Sub

 

[derisa963]

anladım pardon o zaman sizdeki kodları .text yerine .value şeklinde değiştirebilirsiniz.