Cift Tiklayarak hucreleri baska hucrelere value yapistirma

[mustafaine1]

Arkadaslar ornekteki G,H,I sutunlarindaki hucrelerin g sutunundaki hucreye cift tiklandiginda L,M,N hucrelerine value yapismasini istiyorum, tesekkurler..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [G7:G13]) Is Nothing Then Exit Sub
    Cancel = True
    Range("L" & Target.Row, "N" & Target.Row).Value = Range("G" & Target.Row, "I" & Target.Row).Value
End Sub

 

[mustafaine1]

Hocam cok guzel olmus yalniz ben sorumu eksik ve yanlis sormusum,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
    Cancel = True
    Range("M" & Target.Row).Value = Range("G" & Target.Row).Value
    Range("P" & Target.Row, "Q" & Target.Row).Value = Range("H" & Target.Row, "I" & Target.Row).Value
    Range("C" & Target.Row, "K" & Target.Row).Font.Bold = True
    Range("G" & Target.Row, "I" & Target.Row).ClearContents
End Sub

bu sekilde edit yaptim ama

 Range("P" & Target.Row, "Q" & Target.Row).Value = Range("H" & Target.Row, "I" & Target.Row).Value

bu bolumun value olarak degil icerik olarak yapismasini istiyorum bunu nasil yaparim..

 

[mustafaine1]

   Range("P" & Target.Row, "Q" & Target.Row).Formula = Range("H" & Target.Row, "I" & Target.Row).Formula

bu sekilde istedigim gibi olmasini sagliyorum sanirim dogru olan budur, bu sekilde kullanmaktir oyle degil mi ?