Değiştirme sorunu ??

[unalh]

S.a Arkadaşlar,


Şöyle bir sıkıntı yaşamaktayım.

Kayıt yaptığım ve sonrada değiştirdiğim veya boş bıraktığım fiyat kısımlarında sorun yaşanmakta acaba sorun ne olabilir.

Başka bir formla kayıt yapıyorum bu formda ise fiyat kısımlarını ekliyorum veya siliyorum sildiğim zaman hücreden silmiyor ???

İlginize şimdiden teşekkürler.

 

[halit3]

bu kısım tutuyor olabilir

ComboBox1.RowSource = "PTkip!B2:B" & [PTkip!b65536].End(3).Row

Başlangıçta RowSource özelliğini sıfırlıyacaksınız.

ComboBox1.RowSource = ""

 

[unalh]

Halit bey sorunun bu kısımdan kaynaklandığını düşünüyorum ama nasıl çözüleceği konusunda sıkıntı var...

Buradaki * 1 sayı formatını kaldırınca düzeliyor.

Fakat sonrasında bu satırları sayı olarak algılamıyır.

On Error Resume Next
Sheets("PTkip").Select
Set s1 = Sheets("PTkip")
Dim sat%
On Error GoTo hata
[A1:A65536].Find(TextBox10.Text, LookAt:=xlWhole).Select

ActiveCell.Offset(0, 16).Value = TextBox2.Value
ActiveCell.Offset(0, 18).Value = TextBox3.Value
ActiveCell.Offset(0, 19).Value = TextBox4.Value
ActiveCell.Offset(0, 20).Value = TextBox5.Value
ActiveCell.Offset(0, 21).Value = TextBox6.Value * 1
ActiveCell.Offset(0, 22).Value = TextBox7.Value * 1
ActiveCell.Offset(0, 23).Value = TextBox8.Value * 1
ActiveCell.Offset(0, 24).Value = TextBox9.Value * 1

hata:

 

[rhombeus]

ActiveCell.Offset(0, 21).Value = TextBox6.Value * 1

Yerine :

ActiveCell.Offset(0, 21).Value = val(TextBox6.text)

denermisiniz?

 

[unalh]

Malesef bu şekildede olmadı.
Sildiğim zaman değer olarak 0,00 ataması yapıyor
diğer bir sorun kuruşlu kayıt yapmıyor.

Başka değiştirme kodları varsa onlarıda uyarlayabiliriz burada önemli olana değişiklik yapmak.