Soru Listbox çift tık ile hücre temizleme

[sirkülasyon]

Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("dr").Select
Sheets("dr").Range("C" & ListBox1.ListIndex + 1).Select
Selection.EntireRow.Delete
End If
Next

Listboxa çif tıklayınca C1:H1 aralığını aralığını temizlemesi için kodu nasıl düzenlemeliyim?
Yardımcı olabilir misiniz?

 

[PLİNT]

Merhaba
Kodlarınıza göre "Listbox" 'tan seçilen "C:H" alanı içinse şöyle olabilir;

Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("dr").Select
Sheets("dr").Range("C" & ListBox1.ListIndex + 1 & ":H" & ListBox1.ListIndex + 1).Select
Selection = Empty
End If
Next

 

[sirkülasyon]

Sayın PLİNT
Teşekkür ederim. Sağ Ol

 

[sirkülasyon]

Sadece B2: G2 hücre aralığında çalışması için de nasıl bir işlem yapılabilir?

 

[PLİNT]

Seçim yapan satırı şöyle değiştirebilirsiniz ("listbox" dan seçime göre)

Sheets("dr").Range("B" & ListBox1.ListIndex + 1 & ":G" & ListBox1.ListIndex + 1).Select

Mesajınızdaki gibi sabit ise;

Sheets("dr").Range("B2:G2").Select

 

[sirkülasyon]

Teşekkür ederim. Hakkınızı helal ediniz

 

[PLİNT]

Rica ederim, helal olsun, hayırlı geceler.