Mousla seçerek satır silme

[casteneda]

Merhabalar. Ekteki dosyada A2:A21 sutunundaki verilerden, istediğim kadarını mousla tarayarak seçip, "Del" tuşuna basarak sildiğimde bu sutundaki hücrelerin karşılığındaki formülsüz hücrelerin otomatik olarak silinmesini istiyorum. A sutunundaki tek bir hücreyi seçtiğimde veya Ctrl ve mousla farklı hücreleri seçtiğimde bunu aşağıdaki kodla yapabiliyorum;

"On Error GoTo hata
For i = 2 To 21
If Intersect(Target, [A2:A21]) Is Nothing Then Exit Sub
If Target.Cells = Cells(i, 1) And Cells(i, 1) = "" Then
Selection.EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
Next i
hata:
End Sub"

Sorum; 1 den fazla hücreyi, Ctrl tuşuna basmadan, mousumla tarayarak seçtiğimde, karşılığındaki formülsüz hücrelerin silinmesini nasıl sağlarım. İlgilenecek olan tüm dostlara şimdiden çok teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hucre As Range
If Intersect(Target, [A2:A21]) Is Nothing Then Exit Sub
For Each hucre In Selection
sat = hucre.Row
If hucre = "" Then Range("B" & sat & ":C" & sat & ",E" & sat & ":I" & sat).ClearContents
Next
End Sub

 

[hamitcan]

Eki inceleyin.

 

[N.Ziya Hiçdurmaz]

yanıt

Aklıma gelen bir özellik belki işinize yarar.İstenilen alanı seçin.Düzen,git,özel sabitleri seçip tamam dediğinizde sadece formülsüz hücreler seçilmiş olacak.

 

[casteneda]

Sn Levent bey formül tam istediğim gibi, çok teşekkürler. Yanıt için uğraşan tüm arkadaşlara tekrar teşekkür ederim. Sizin formülünüzden yararlanarak alternatif bir çözümde ben buldum. Herkese kolay gelsin.

" Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
Dim hucre As Range
If Intersect(Target, [A2:A21]) Is Nothing Then Exit Sub
For Each hucre In Selection
If hucre = "" Then Selection.EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
Next
hata:
End Sub"