aktif hücreleri silmek

[irfancantr]

O anda seçili olan hücre ile sağında bulunan 8 hücrenin silinmesini istiyorum.Yani ben C2 hücresini seçtiğim zaman A2 hücresinde bir combobox belirecek ve C2:J2 hücrelerini silecek.ben C3 hücresine geldiğimde C3:J3 hücrelerini silecek.Range("C2") değilde aktif olan hücre istiyorum.Yardımlarınız için şimdiden çok teşkkür ederim

 

[irfancantr]

yanlış bir soru mu oldu acaba

 

[AS3434]

Sayın irfancantr

A2 hücresinde combobox niye belirecek anlamadım ama. şu kodları deneyebilirsiniz.

C sütununda herhangi bir hücreye ÇİFT Tıkladığınızda istediğiniz aralığı silersiniz.

Kodları Çalıştığınız sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
sil = ActiveCell.Row
Range("c" & sil & ":" & "j" & sil).ClearContents
End Sub

 

[omerceri]

Sayfanın Kod modülüne aşağıdaki kodu yazarsan, isrediğin satırdaki hücreler silinir.
Ama ComboBox ne işe yarayacak onu anlamadım
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 3 Then
Range("C" & ActiveCell.Row & ":J" & ActiveCell.Row).Delete Shift:=xlUp
End If
End Sub

 

[Seyit Tiken]

Aynı işlemi gerçekleştiren farklı kodlar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c2:c500]) Is Nothing Then Exit Sub
ActiveCell.Range("a1:h1") = Empty
Target.Offset(1).Select
End Sub

C sütununa çift tıklayarak sonucu gözlemleyiniz.