Hücreye çift tıklayarak veri silmek.

[otufan03]

Bir hücreye çift tıklayarak adı geçen hücre de dahil olmak üzere sağa doğru takip eden sütünlarda bulunan hücrelerde bulunan verileri nasıl silebiliriz. (Örneğin C3 hücresine çift tıklayarak D3 E3 ve F3 hücrelerde bulunan verilerde silinsin.)

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    [COLOR=red]If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub[/COLOR]
    Cancel = True
    Target.Resize(1, 4).ClearContents
End Sub

 

[otufan03]

Korhan Bey Teşekkür ederim, malesef kodlar işimi görmedi. Çift tıklama olayı sürekli C sütununda olmayacak, gerektiğinde K sütununa tıklayacağım, K L M N hücresi silinecek,veya O sütununa tıklayacağım O P R S sütundaki hücreler silinecek.

 

[Seyit Tiken]

Bu şekilde bir deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For s = 1 To 4
Target(1, s) = ""
Cancel = True
Next
End Sub

 

[otufan03]

Sayın Seyit Tiken Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki kodda kırmızı renkle belirttiğim bölümü silerseniz istediğiniz sonuca ulaşabilirsiniz.