Ekli kod TextBox2 'yi rapor sayfasında D15 hücresine kopyalıyor.Benim yapmak istediğim aynı kod tekrar D15 hücresine kopyalanan veriyi değer olarak kopyalayacak(Yatay:İki yana yasla,Dikey:Üst olarak kopyalayacak). Sonra yapıştırmasını ben siteye Ctrl V olarak yapacağım.Kopyalama yapıldıktan sonra Konu : ..............içeriği kopyalandı .Uyarısı vermesi .
Kod:
Private Sub CommandButton119_Click()
Dim sat As Long
Dim s1 As Worksheet
On Error Resume Next
Set s1 = Worksheets("RAPOR")
s1.Range("D15") = Replace(Replace(Replace(TextBox2.Value, Chr(13), " "), Chr(32), " "), Chr(9), " ") 'KONU
End Sub