• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Değiştirme sorunu ??

  • Konbuyu başlatan Konbuyu başlatan unalh
  • Başlangıç tarihi Başlangıç tarihi
Katılım
15 Ocak 2009
Mesajlar
257
Excel Vers. ve Dili
Türkçe 2010
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.
 

Ekli dosyalar

  • pt.xls
    pt.xls
    67.5 KB · Görüntüleme: 4
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:
 
ActiveCell.Offset(0, 21).Value = TextBox6.Value * 1

Yerine :

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

denermisiniz?
 
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.
 
Geri
Üst