Combobox'ı Saat formatına çeviremiyorum

[devil2007]

Merhabalar,

Combobox'a Row Source kısmından saat olarak seçemiyorum. Seçimlerimde hep hata veriyor.

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "hh:mm")
End Sub

bu kısmı yazmama rağmen açılan pencereden herhangi bir saat seçtiğimde hata veriyor ve döngü sonlanıyor.

yazdığımda mı bir hata var yoksa başka birşey mi yazmam gerekiyor?

teşekkür ederim...

 

[Muzaffer Ali]

Merhaba.
1. ComboBox1_Change olayı çalıştığında ComboBox da yazan değer nedir?
2. Aldığınız hata açıklaması nedir?
3. Mümkünse örnek dosya üzerinde gösterin.

 

[devil2007]

Merhaba.
1. ComboBox1_Change olayı çalıştığında ComboBox da yazan değer nedir?
2. Aldığınız hata açıklaması nedir?
3. Mümkünse örnek dosya üzerinde gösterin.

Hocam hata olarak

Run-time eror '6':
Overflow

yazıyor. Dosyayı ekleyip göndermek istiyorum ama buraya nasıl ekleyeceğimi bulamadım. Eğer mail adresiniz varsa dosyayı size mail yolu ile iletebilirim.

Tuhaf olan çok nadirende olsa arada hata vermeden çalışıyor. kapatıp açtığımda da yeniden hataya düşüyor.

saygılarımla,

 

[Muzaffer Ali]

dosya.tc gibi bir paylaşım sitesine ekleyip linkini buradan payaşabilirsiniz.

 

[devil2007]

Ekledim sanırım dosya

 

[Muzaffer Ali]

Kodu aşağıdaki şekilde değiştirin.
Sorun noktalama işaretinden kaynaklanıyor.
Excelde nokta olan işaret VBA da virgül olması gerekiyor.

Private Sub ComboBox1_Change()
    ComboBox1.Value = Format(Replace(ComboBox1.Value, ".", ","), "hh:mm")
End Sub

 

[devil2007]

Hocam desteğiniz için çok teşekkür ederim