ListBox da Enter a basınca " Kurtarılıyor hatası "

[KarıncaZ]

Merhaba.

Linkteki dosyamda ListBox ta Enter a basınca sürekli olarak dosya kapanıyor ve kurtarılıyor deyip yeni Kurtarılmış dosya olarak yeni dosya oluşturuyor. Kullandığım kod aşağıda.

'ActiveCell.Offset(1, -4).Select

kısmını aktif hale getirince sürekli olarak yukarıda belirttiğim hatayı alıyorum.


Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
If ActiveCell.Column = 5 Then
ActiveCell.Value = ListBox1.Text
'ActiveCell.Offset(1, -4).Select
End If
End If

'ActiveCell.Offset(1, -4).Select

End Sub


Dosya İndirme Linki
http://s6.dosya.tc/server8/22my7u/Deneme_03.xls.html

Yardımlarınız için. Teşekkürler.

 

[programer]

Sayın KarıncaZ dosyanızı denedim ama böyle bir hatayla karşılaşmadım.

 

[KarıncaZ]

...

Merhaba.

Yüklediğim dosyada VBA editörüne girip

'ActiveCell.Offset(1, -4).Select

Alanını aktif hale getirirseniz yani ' i silerseniz. sonrasında list box tan Enter ile veri aktarınca oluşan bir hata.

yüklediğim dosyada bu alan aktif değil.