[Yardım]  TextBox İçeriğindeki Yazıyı Kopyalama

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

TextBox İçeriğindeki Yazıyı Kopyalama

İleti#1)  Metin1981 » 30 May 2018 13:21

İ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?
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 655
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: TextBox İçeriğindeki Yazıyı Kopyalama

İleti#2)  feraz » 30 May 2018 19:14

Merhaba.

Alttaki kodları sayfa koduna ekleyiniz.Textbox ta ... çıkacak tıklayınca ona basınca kopyalanır.

Kopyalarken yazıyı iki yana yasla şeklinde kopyalayabilir mi? olayını bilmiyorum baştan söyleyeyim :)

Kod: Tümünü seç
Private Sub TextBox1_DropButtonClick()
    Dim d As New DataObject
    If Sheets("Sayfa1").TextBox1.Text = "" Then
        MsgBox ("textbox1 kopyalanacak veri bulunamadý")
    Else
        d.SetText Sheets("Sayfa1").TextBox1.Text
        d.PutInClipboard
    End If

End Sub


Kod: Tümünü seç
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Sheets("Sayfa1").TextBox1.DropButtonStyle = fmDropButtonStyleEllipsis
    Sheets("Sayfa1").TextBox1.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: TextBox İçeriğindeki Yazıyı Kopyalama

İleti#3)  Metin1981 » 30 May 2018 19:42

Sayın Feraz çok teşekkür ederim.Ellerinize sağlık birde yazısı iki yana yasla şeklinde kopyalayabilseydik on numara olacaktı.Yine de çok teşekkür ederim.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 655
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: TextBox İçeriğindeki Yazıyı Kopyalama

İleti#4)  feraz » 30 May 2018 19:47

Rica ederim.
Kodların yarısı bana ait :)

İki yana yaslama olayını anlamadım.
Textbox içindeki yazımı yoksa hücre içindeki yazımı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: TextBox İçeriğindeki Yazıyı Kopyalama

İleti#5)  Metin1981 » 30 May 2018 19:53

Kopyladığım veri iki yana yaslanmış şekilde olacak.Yani brn bu yazıyı bir word yada başla bir yere yapıştırdığım zaman iki yana ysslanmış şekilde olacak
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 655
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: TextBox İçeriğindeki Yazıyı Kopyalama

İleti#6)  feraz » 30 May 2018 20:24

Bimiyorum inanın.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: TextBox İçeriğindeki Yazıyı Kopyalama

İleti#7)  Metin1981 » 31 May 2018 09:19

Sayın Feraz günaydın;
asıl dosyamda aşağıdaki makroda hata verdi
Kod: Tümünü seç
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Sheets("Sayfa1").TextBox2.DropButtonStyle = fmDropButtonStyleEllipsis
    Sheets("Sayfa1").TextBox2.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End Sub
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 655
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: TextBox İçeriğindeki Yazıyı Kopyalama

İleti#8)  Metin1981 » 31 May 2018 09:26

Sayın Feraz günaydın;
asıl dosyamda aşağıdaki makroda hata verdi

Kod: Tümünü seç
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Sheets("Sayfa1").TextBox2.DropButtonStyle = fmDropButtonStyleEllipsis
    Sheets("Sayfa1").TextBox2.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End Sub


RAPOR PROGRAMI.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 655
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: TextBox İçeriğindeki Yazıyı Kopyalama

İleti#9)  feraz » 31 May 2018 14:08

Günaydın Metin üstadım.

Sheets("Sayfa1") yerine
Sheets("ANASAYFA") yazmalısınız ve resimdeki yeretıklamannız gerek.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe