Çift tıklamada 3 veri aktarmak

[mcetinkaya65]

Çalışma sayfamın herhangi bir hücresine çift tıklayınca tıklanan satırdan b ve c stunundaki verileri aktarıyor.Biz buna birde d stununu ekleyebilirmiyiz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells(Target.Row, 2).Resize(, 2).Copy
Sayfa5.Range("C65536").End(3)(2, 1).PasteSpecial xlValues
Application.CutCopyMode = False
Cancel = True
End Sub

 

[Ömer BARAN]

Çalışma sayfamın herhangi bir hücresine çift tıklayınca tıklanan satırdan b ve c stunundaki
verileri aktarıyor.Biz buna birde d stununu ekleyebilirmiyiz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells(Target.Row, 2).Resize(, 3).Copy
Sayfa5.Range("C65536").End(3)(2, 1).PasteSpecial xlValues
Application.CutCopyMode = False
Cancel = True
End Sub

Merhaba.

Eğer kodlarınız mevcut haliyle çalışıyor durumdaysa; mesajınızda belirtmediğiniz
kodlarınızda Sayfa5 şeklinde bir tanımlama var ve sadece yukarıdaki değişikliği yapmanız yeterli olacaktır.
.

 

[PLİNT]

Merhaba
Şöyle olabilir.

Cells(Target.Row, 2).Resize(, [COLOR="Red"]3[/COLOR]).Copy

 

[mcetinkaya65]

Teşekkürler.
Allah razı olsun