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. :? :?