Çift Tıklayınca Aktarsın

[mcetinkaya65]

Data sayfasında C stununda Kişi ad ve soy adına çift tıkladığımızda B stunundan I stununa kadar olan satırı Sözleşme sayfasının G3 G4 G5 G6 G7 G8 G9 G10 hücrelerini önce temizleyip, sonra aktarması mümkün mü?
Saygılarımla..

 

[Necdet]

Merhaba,

Aşağıdaki kodları Data sayfasının kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Range("B" & Target.Row & ":I" & Target.Row).Copy
    Sheets("Sözleşme").Range("G3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    With Sheets("Sözleşme").Range("G3:G9")
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

End Sub

 

[mcetinkaya65]

Allah Razı olsun.
İlginize çok teşekkür ederim.