Delete Komutu İle ilgili problem

[mesuttasar]

İhale Sonuçlarına göre kazanan firmayı belirleyecek bir program oluşturmaya çalışıyorum. Bu kodları yazarken Sn Kucuksengun üstadımın hazırlamış olduğu Adres-Telefon Rehberi programından faydalanıyorum.Kendisine özellikle teşekkür ederim.Daha bitiremedim programı.

Şimdi takıldığım yer şurası. Temizle butonuna ;
Private Sub CommandButton9_Click()
Sheets("Veri").Select
Range("B2:c100").Delete
End Sub

kodunu yazıyorum.Bu aralıktaki hücreler,siliniyor.Ancak sonuc sayfasında D4 hücresindeki
=veri!B2 formülü #YOK hatası veriyor. Normalde el ile sildiğimde 0 yazıyor. Bunun nedeni nedir acaba?

Formu ekte gönderiyorum bi bakabilirseniz sevinirim.

 

[mesuttasar]

Sheets("Veri").Select
Range("B2:c100").Select
Selection.ClearContents diye düzeltince problem halloldu.

 

[mesuttasar]

Form üzerine girmiş olduğum firmaların bilgilerini , formdaki listbox ta nasıl görüntüleyebilirim.

 

[İsmail Küçükşengün]

Form üzerine girmiş olduğum firmaların bilgilerini , formdaki listbox ta nasıl görüntüleyebilirim.

Bahsettiğin sorunu çözdüm.
Beni ararsanız diğer bir kaç önerim daha olacak.

Selamlar.