ragnorak
Altın Üye
- Katılım
- 4 Haziran 2016
- Mesajlar
- 204
- Excel Vers. ve Dili
- Excel 2021
- Altın Üyelik Bitiş Tarihi
- 03-09-2026
Yukarıdaki gibi özel karakterleri kullanabilmek için bir userform hazırladım.
Kod:
Public WithEvents lbt As MSForms.Label
Private Sub lbt_click()
Set MyData = New DataObject
MyData.SetText lbt.Caption
MyData.PutInClipboard
End Sub
Kod:
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
userform1.Show
End If
End Sub
Sorunum şu; Bu tabloda tıkladığım verinin sağ tıklayarak açtığım Textbox'a kopyalanmasını istiyorum.