Listbox dan silme

[yavuz_adak]

değerli form üyeleri ve üstadlar...
bir sorunum var ve yardımcı olursanız sevinirim...

bir form um var form içindede listbox sım var girdiğim kayıtları listbox dan görebiliyorum bazen hatalı girdiğim kayıtları Listbox dan seçip silebildiğim bi vba kodum var elimde sorun şu:

seçip sil tuşuna bastığım zaman yazdırdığım veri tabanı içindeki hücreleride siliyor oysa hücrelerin sabit kalıp içerdiği data nın silinmesini yapmak istiyorum yardımcı olursanız sevinirim...

vba kodu:

Private Sub CommandButton2_Click()
For Each urun In Range("C:C")
If urun = ListBox1.List(ListBox1.ListIndex, 0) Then urun.EntireRow.Delete: Exit Sub
Next
End Sub

 

[Levent Menteşoğlu]

urun.EntireRow.Delete

yerine aşağıdaki satırı yazın.

urun.clearcontents

 

[yavuzadak]

sayın leventm ;

kodu değiştirdiğim zaman satırın il sütununu temizliyor 4 adet daha sütün var temizlenecek nasıl bir kod ilavesi yazmam gerekir.?

 

[Levent Menteşoğlu]

bu durumda aşağıdaki gibi deneyin. Bu sütunların c,d,e,f,g olduğu kabul edilmiştir.

urun.clearcontents

yerine aşağıdaki komutu yazın.


range(cells(urun.row,"c"),cells(urun.row,"g")).clearcontents