Textboxda format sorunu

[BeyazGölge]

Arkadaşlar misler gibin çalışıyordu. Birşeyler oldu ve hata verdi. Textboxa harf girince sorun yok fiyat1_keypress çalışıyor ama rakam girince


Compile Error :
can't find project or library

hatası veriyor ve formatı seçili hale getiriyor. Acaba Ne yaptımda böyle bir hata veriyor. Yardımcı olursanız sevinirim.



Private Sub fiyat1_Change()

fiyat1.Value = Format(fiyat1, "###,###")
End Sub

Private Sub fiyat1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
Beep
End If
End Sub

[ALPEN]

bende sorun görünmüyor. dosyayı gönderebilir misin?

[ozozkilic]

Compile Error :
can't find project or library

hatası veriyor ve formatı seçili hale getiriyor.
Private Sub fiyat1_Change()
fiyat1.Value = Format(fiyat1, "###,###")


ya hakkatten aynı hatayla bende karşılaştım. daha sonra excel dosyası salt okunur açıldı ve değişiklik izni vermedi. sanırım çöktü. farklı kaydetten sonra yeni kaydettiğim çalışıyor. ve hata vermiyor. :? :?