Çift Tıkla Kopyalamada Sorun

[ZorBey_]

Merhaba İyi Çalışmalar
Aşağıda Belirttiğim Sorunum İçin Yardımınızı Rica Ediyorum

A Kolonundaki GRUP'ta Her Hangi Birini Çift Tıkladığımda D 11 Hücresine
Seçilenin Gelmesi İkinci Defa Grupta Seçim Yapılırsa D 11 De Bulunan ilk Seçimin Silinmesi
Ayni Şekilde
B Kolonundaki Ürün'de Her Hangi Birini Çift Tıkladığımda E11 Hücresine
Seçilenin Gelmesi İkinci Defa Üründe Seçim Yapılırsa E 11 De Bulunan ilk Seçimin Silinmesi
Ayni Şekilde
C Kolonundaki Fiat'ta Her Hangi Birini Çift Tıkladığımda F11 Hücresine
Seçilenin Gelmesi İkinci Defa Fiat'ta Seçim Yapılırsa F 11 De Bulunan ilk Seçimin Silinmesi.

 

[halit3]

Merhaba İyi Çalışmalar
Aşağıda Belirttiğim Sorunum İçin Yardımınızı Rica Ediyorum

A Kolonundaki GRUP'ta Her Hangi Birini Çift Tıkladığımda D 11 Hücresine
Seçilenin Gelmesi İkinci Defa Grupta Seçim Yapılırsa D 11 De Bulunan ilk Seçimin Silinmesi
Ayni Şekilde
B Kolonundaki Ürün'de Her Hangi Birini Çift Tıkladığımda E11 Hücresine
Seçilenin Gelmesi İkinci Defa Üründe Seçim Yapılırsa E 11 De Bulunan ilk Seçimin Silinmesi
Ayni Şekilde
C Kolonundaki Fiat'ta Her Hangi Birini Çift Tıkladığımda F11 Hücresine
Seçilenin Gelmesi İkinci Defa Fiat'ta Seçim Yapılırsa F 11 De Bulunan ilk Seçimin Silinmesi.

Sayfanın kod bölümene ekleyip denermisiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A14:C63")) Is Nothing Then Exit Sub
Cancel = True
If Target.Column = 1 Then
If Cells(11, "d").Value = "" Then
Cells(11, "d").Value = Target.Value
Else
Cells(11, "d").Value = ""
End If
End If

If Target.Column = 2 Then
If Cells(11, "e").Value = "" Then
Cells(11, "e").Value = Target.Value
Else
Cells(11, "e").Value = ""
End If
End If

If Target.Column = 3 Then
If Cells(11, "f").Value = "" Then
Cells(11, "f").Value = Target.Value
Else
Cells(11, "f").Value = ""
End If
End If
End Sub

 

[ZorBey_]

halit3 Bey
Çok Teşekkür Ederim
İstediğim Gibi Olmuş
Sağolun İyi Çalışmalar.

 

[halit3]

halit3 Bey
Çok Teşekkür Ederim
İstediğim Gibi Olmuş
Sağolun İyi Çalışmalar.

İyi çalışmalar