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

[ormann]

İyi günler ekli dosyada TextBox1'deki veriyi DropButtonClick ile kopyalama yapıyorum.Benim Yapmak istediğim DropButtonClick ile kopyalanan veri aynı zamanda TextBox2'ye yapıştırmak .Bu konu ile ilgili yardımcı olur musunuz ?
http://dosya.co/6ydmukrych2a/textbox_kopyala.rar.html

 

[turist]

Aşağıdaki gibi deneyiniz.

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

 

[ormann]

Çok teşekkür ederim

 

[turist]

Sağolun.