Ekle / Düzelt makrosunda boş alan hatası

[Acelen]

Arkadaşlar

Siteyi izleye izleye VBA konusunda az buçukta olsa yol aldım, fakat gene takıldığım noktada sizlerden yardım istiyorum. Ekte bir dosyada isimleri ekle komutu ile ekliyorum fakat düzelt dediğimde hata veriyor. Yardımcı olursanız sevinirim.

Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Koda kırmızı satırı ilave ediniz.

yer = ListBox1.ListIndex
[COLOR=red]If ListBox1.List(yer, 0) = "" Then Exit Sub[/COLOR]
sat = ListBox1.List(yer, 0) + 2

Not : Soru başlıklarınızı sorunun içeriğini ifade edecek şekilde belirlemenizi rica ederim.

.

 

[Acelen]

Arkadaşlar Ömer arkadaşımın verdiği cevabı uyguladım fakat gene hata vermektedir. Düzelt komutunu yaptıgımda hata veriyor ve ben onu düzeltemedim. İlgilenirseniz sevinirim.

 

[Acelen]

Arkadaşlar ilgilenecek bir kişi varmı???