TextBox1'deki Kopyalanan Veriyi TextBox2'ye Yapıştırma

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,109
Beğeniler
556
Excel Vers. ve Dili
2013 64Bit
English
#2
Aşağıdaki gibi deneyiniz.
Rich (BB code):
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
      Sheets("Sayfa1").TextBox2 = Empty
     Sheets("Sayfa1").TextBox2 = Sheets("Sayfa1").TextBox1
    End If

End Sub
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,109
Beğeniler
556
Excel Vers. ve Dili
2013 64Bit
English
#4
Sağolun.
 
Üst