Bir hücredeki veriyi başka bir sheete copy paste yapmak

[u.L.a.s]

Merhabalar

Aşağıdaki gibi bir kod düzeneğim var.
Bir sheetimde ilk sütuna çift tıkladığım zaman tıkladığım hücrenin bulunduğu satırdaki B ve C hücresindeki verileri başka bir sheette ilk boş gördüğü yerde A ve B hücrelerine yapıştırıyor.
Buraya kadar herşey tamam bu şekilde çalışıyordum fakat ben biraz kodu geliştirmek istedim ama işin içinden çıkamadım
Şöyleki
Diğer sheette A hücresine B hücresindeki veri yapışıyor C hücresinede bu veriyi yapıştırmak istiyorum ama yanına birde sabit bir veri yazdırmak istiyorum.
O sabit veriyi dim komutu ile tesis string olarak tanımladım ve bu tesisin içeriğinide " Adsl Hat Tesisi" olarak yazdım

Yani C hücresine A hücresindeki veri ile birlikte bu tesis verisinide yazmasını istiyorum


aşağıdaki kod düzeneğindeki kalın olarak işaretlediğim kodu ben yapmaya çalıştım ama hata veriyor.

Örnek dosyada aşağıdaki linktedir

Bilgi ve yardımlarınızı rica ederim

http://www.dosya.tc/server8/tpzsjz/copypaste.rar.html

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim tesis As String
    If Target.Column = 1 Then
    Son = Sheet12.Range("A65536").End(3).Row + 1
    tesis = " Adsl Hat Tesisi"
    Range("B" & Target.Row).Copy
    Sheet12.Range("A" & Son).PasteSpecial
    [b]Sheet12.Range("C" & atmtesis & Son).PasteSpecial[/b]
    Range("C" & Target.Row).Copy
    Sheet12.Range("B" & Son).PasteSpecial

    Sheets("Tesisler").Select
    End If

 

[PLİNT]

Merhaba
Aşağıdaki gibi; kopyalama sonunda "atmtesis" hücreye eklenebilir.

[SIZE="2"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim atmtesis As String
Dim s1, s2 As Worksheet
Set s1 = [COLOR="Red"]Sheets(1)[/COLOR]
Set s2 = [COLOR="Red"]Sheets(2)[/COLOR]
If Target.Column = 1 And Target.Value <> "" And Target.Row <> 1 Then
Son = s2.Range("A65536").End(3).Row + 1
atmtesis = " Atm Nok-Nok Adsl Hat Tesisi"
s1.Range("B" & Target.Row & ":C" & Target.Row).Copy s2.Range("A" & Son)
[COLOR="Blue"]s2.Range("C" & Son) = s2.Range("A" & Son) & atmtesis[/COLOR]
s1.Select
End If
End Sub [/SIZE]

 

[u.L.a.s]

Üstadım emeğine bilgine sağlık çok teşekkür ederim