Soru Çift tık ile hücre kopyalama

[sirkülasyon]

B2:B aralığında herhangi bir hücreye çift tıklama ile hücreyi kopyalayacak ve hücreden çıkacak bir koda ihtiyacım var.
Rica etsem yardımcı olabilir misiniz?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Target.Copy: Cancel = True: End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Column = 2 Then
Application.CutCopyMode = False
End If
End Sub

 

[YUSUF44]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Target.Copy: Cancel = True: End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Column = 2 Then
Application.CutCopyMode = False
End If
End Sub

Bu kodun selection kısmı doubleclick kısmını iptal etmez mi? Yani kopyalanan veri C sütununa yapıştırılacaksa bu kod sıkıntılı olmaz mı?

 

[Seyit Tiken]

Yusuf bey haklısınız, excel içinde kopyalamayı durdurur, excel dışındaki bir yapıştırma ise pratik olur diye yazdım, uygulamaya göre kullanılır veya kullanılmaz.

 

[sirkülasyon]

Üstad
Kopyalama yaptıktan sonra hücre seçili kalıyor. Kalmaması için ne yapabiliriz?

 

[Seyit Tiken]

Bu şekilde mi istiyorsunuz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Target.Copy
Target.Offset(, 1).Activate
Cancel = True
End If
End Sub

 

[sirkülasyon]

Seyit abi
Kopyaladıktan sonra hücrenin içinde kalıyor. Mümkünse Kopyaladıktan sonra hücreden çıksın
Target.Offset(, 1).Activate ile hücreden çıkıp yan sütuna geçiyor ama bu sefer de kopyalamıyor.
Ya da ben yapamadım.

 

[Seyit Tiken]

B:B aralığını çift tıklayıp yan hücrenin kopyalanmasını istiyorsanız bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Target.Offset(, 1).Copy
Target.Offset(, 1).Select
End If
End Sub

 

[sirkülasyon]

Üstad Teşekkür ederim. Sağ olasın