Çözüldü Runtime error 6 : overflow hatası

[ycetin17]

1doğrudan temin programı var fiyatı veri dosyasına 36000 tl yazınca piayasa dosyasından da piayasa fiyat araştırması kırmızı yere basım otomatik ayarlarken hata veriyor debug a basınca işaretli yeri gösteriyor 2.resimdeki hatayı veriyor faakt 30000 tl yazınca aynı hatayı vermiyor bu konuda yardmcı olablir misinixz

 

[Patron]

Kodlarınızın başında,
Dim enkucuk As Integer
şeklinde bir ifade bulunuyorsa sorun bundan kaynaklanıyor olabilir.
Çünkü Integer (Tamsayı) tanımı -32.768 ile 32.767 arasındaki saylar için kullanılır.
Siz 36000 yazdığınızda bu sınırı aştığınızdan sorun olur.
Dim enkucuk As Long
şeklinde değiştirirseniz düzeleceğini düşünüyorum.

 

[ycetin17]

daha önceki haataklrdan da yazınızı takip etttim yaptım tekrarlıyor hata

 

[Patron]

Dim enkucuk As Long
satırını silip dener misiniz?

 

[Caylak]

daha önceki haataklrdan da yazınızı takip etttim yaptım tekrarlıyor hata

Dim enkucuk as Long
tanımladıktan sonra
enkucuk = Cint(Cells(i,"Q")) ibaresini
enkucuk = CLng(Cells(i,"Q")) şeklinde değiştirmeniz gerekir.

 

[ycetin17]

YAPTIĞIMDA BU AHATAYLA KARŞILAŞIYORUM

 

[Caylak]

Sanırım siz değişken tanımı değiştirirken enkucuks değişkenini de değiştirdiniz. 3 numaralı mesajınızda Dim enkucuks as string doğru yazılmıştı, onu değiştirmediniz değil mi?

 

[ycetin17]

Sanırım siz değişken tanımı değiştirirken enkucuks değişkenini de değiştirdiniz. 3 numaralı mesajınızda Dim enkucuks as string doğru yazılmıştı, onu değiştirmediniz değil mi?

aynen long oalrak değiştrimiştimö tekrar denityorum siszin deidğini gibi

 

[ycetin17]

YAPTIĞIMDA BU AHATAYLA KARŞILAŞIYORUM

bu haatay geçiyor düzelttikten sonra

 

[Caylak]

bu haatay geçiyor düzelttikten sonra

Dim enkucuk as Long
Dim enkucuks as String

enkucuks değişkeninin hata vermesi imkansız, çünkü o değişkene string değer olan "Q" harfini atıyorsunuz.
Değişkenler ve Tür dönüşümleri konusunu google da aratıp inceleyiniz.

 

[Patron]

fiyatı veri dosyasını ve
doğrudan temin programındaki Sayfa11'i ayrı bir dosya olarak mevcut koduyla birlikte xlsm formatında paylaşır mısınız?

 

[ycetin17]

Dim enkucuk as Long
Dim enkucuks as String

enkucuks değişkeninin hata vermesi imkansız, çünkü o değişkene string değer olan "Q" harfini atıyorsunuz.
Değişkenler ve Tür dönüşümleri konusunu google da aratıp inceleyiniz.

özürdilerim şimdi doğru değiştridim hata yapmışım sistem açlıştır sısıkıntı yok çok teşekkür ederim konu tamam dır