bir hücredeki veriyi kopyalarken ek bir verdiğinde beraberinde kopyalamak

[u.L.a.s]

Merhaba

G sütununda herhangi bir hücredeki veriyi ctrl+c veya çift tıklayınca o veri ne ise yanında sabit bir verdiğinde eklemesi. Ben örneğin notepad e yapıştır diyince o sabit veri ile birlikte yapıştırması gerekiyor
Örneğin g36 hücresinde "123" verisi var. Sabit verim ise " nolu devre iptali"

çift tıkladım veya ctrl+c yaptım kopyalanan veri aslında su şekilde olmuş olacak
"123 nolu devre iptali"

Bilgilerinizi rica ederim

 

[hamitcan]

Aşağıdaki kod işinizi görebilir. Yalnız, kodu tuş kombinasyonu ile çalıştırmak için ek bir kod daha yazmak gerekir.

Sub Clipboard()
    Dim MyData As DataObject
    Set MyData = New DataObject
    MyData.SetText [A1] & " Deneme"
    MyData.PutInClipboard
End Sub

 

[u.L.a.s]

Bu kod a1 hücresindeki veri ile diğer veriyi birleştiriyor
Ben â sütünü içerisinde hangi hücreye tıklarsam o hücredeki veriyle birleştirsin istiyorum.

Şöyleki g36 ya tıkladım g36 daki veri neyse onunla birleştirsin
G65 e tıkladım g65 takı veri ile bu metin birleşmiş kopyalanmış olsun

Ben bu kodunuzu tuş kombinasyonuna değilde cıvatalama sub ini altın yzdim

 

[u.L.a.s]

Aşağıdaki kod düzeneğinde çift tıkladığım zaman sabit veriyi kopyalıyor ama hücresindeki veriyi kopyalamiyor yardımlarınızı rica ederim
[CODEPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim deger As String
If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub
If Target.Column = 7 Then
deger = Cells(ActiveCell, Row, "G").Value & " nolu devrenin iptal edilmesini rica ederim"
End If
End Sub

[/CODE]

 

[esalci]

Aşağıdaki kod G kolonundaki herhangi bir hücreyi seçtiğin an istediğin sonucu verecektir. Çift tıklama yada Ctrl+C yapmana gerek yok. Bu kodu ilgili sayfanın makrosuna eklemelisin.

Option Explicit
 
Private Sub SeciliDevreyiKopyala(ByVal Target As Range)    
    Dim obj As New DataObject
    Dim devreno As String
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("G:G")) Is Nothing Then
            devreno = Selection.Value & " nolu devrenin iptal edilmesini rica ederim."
            obj.SetText devreno
            obj.PutInClipboard
        End If
    End If
End Sub

 

[u.L.a.s]

Teşekkürler üstadım emeğine bilgine saglik