Kodlar veya formüller bilgisayardan bilgisayara farklılık gösterirmi

[ferhatgurbuz]

yani benim bilgisayarda artı gözüken bir rakam , başka bilgisayarda eksi değer alıyor, yada benim bilgisayarda ondalılkı gözüken bir sayı başka bir bilgisayarda ondalıksız gözüküyor. Bu söylediklerim form üzerinden bilgi gönderince yada form üzerine bilgi çağırınca oluyor.

 

[Ömer]

Merhaba,

İhtimallerden biri; formülü kopyaladığınız hücredeki biçim ile(Hücre Biçimlendirme), başka bir sayfadan aldığınız hücrenin biçimlendirmeleri farklı ise bu söylediğiniz olabilir..

 

[ferhatgurbuz]

evet başka bir sayfadan kopya aldım
tamam teşekkür ederim

 

[ferhatgurbuz]

Dim topla1, topla2 As Single
For x = 30 To 47 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & x)) Then
topla1 = topla1 + Controls("TextBox" & x) * 1
End If
Next
TextBox67 = topla1
topla = 0
For x = 50 To 63 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & x)) Then
topla2 = topla2 + Controls("TextBox" & x) * 1
End If
Next
TextBox68 = Format(topla2, "#,##0.00")
TextBox69 = Format(TextBox67, "#,##0.00") - Format(TextBox68, "#,##0.00")
End Sub

Form üzerindeki textboxlarda virgüllü gözüküyor ama alt toplalarda başka bir bilgisayarda virgülsüz oluyor

 

[ferhatgurbuz]

bu konuda bir fikri olan yokmu.

 

[Orion1]

Form üzerindeki textboxlarda virgüllü gözüküyor ama alt toplalarda başka bir bilgisayarda virgülsüz oluyor

Alt toplam dediğniz yer neresi sayfadaki hücremi yoksa Userform üzerinde bulunan bir textbox'Mı?

 

[ferhatgurbuz]

Evren Hocam yukarıdaki kod ile TexBoxlar daki toplamları alıyorum. Yani 30-47 arısını TextBox 67'ye, ve 50-63 arasını TextBox 68'e ve 67 ile 68 arasındaki farkıda TexTbox 69'a alıyorum. Yain form üzerindeki TextBoxlardaki rakamlar düzgün gözüküyor,40,52, 10,55, 52,78 gibi yani YTL ye uyumlu gözüküyor. Ama 67, 68, ve 69 a toplam alırken virgülsüz gözüküyor. Bu benim bilgisayarda değil aynı proğramı başka bir bilgisayarda açtığımda oluyor.

 

[Orion1]

aşağıdaki kodları deneyiniz.

Dim topla1, topla2 As double
For x = 30 To 47 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & x)) Then
topla1 = topla1 + Controls("TextBox" & x) * 1
End If
Next
TextBox67 = format(topla1,"#,##0.00")
topla = 0
For x = 50 To 63 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & x)) Then
topla2 = format(topla2 + Controls("TextBox" & x) * 1,"#,##0.00")
End If
Next
TextBox68 = Format(topla2, "#,##0.00")
TextBox69 = format(cdbl(TextBox67) - cdbl(TextBox68),"#,##0.00")
End Sub

 

[ferhatgurbuz]

teşekkürler hocam kolay gelsin. hayırlı akşamlar

 

[Orion1]

teşekkürler hocam kolay gelsin. hayırlı akşamlar

Rica ederim.
İyi geceler.

 

[ferhatgurbuz]

Evren Hocam Yukarıdaki kodu denedim ama gene olmadı. Ya çok ilginç benim olduğum yerde iki arkadaş daha var onların bilgisayarlarındada çalışıyor. Ama üst kata çıkıyorum orda farklı çılışıyor. Bende 1.381,22-YTL olan rakam diğer bilgisayarda 137.627,00 oluyor.

 

[Seyit Tiken]

Bölgesel Seçenekler > Para Birimi, orayı bir kontrol edin. Değişen bir şey olmazsa, format atın, derim.

 

[ferhatgurbuz]

,,,,,,,,,,,,,,,,

 

[Orion1]

denetim masasından bölgesel seçeneklere ulaşabilirsiniz.Sayın seyit beyin dediklerinini yanı sıra sayılarda bakın binlik ayıraçlar nokta ondalık ayıraçlarda virgül şeklinde ayrılmış olmalı.

 

[ferhatgurbuz]

Baktım hocam ama bölgesel seçeneklerde sorun yok. Sadece Üç tane TextBoxta sorun var. Form üzerinde bulunan excel sayfasından veri alan TextBoxlarda sorun yok. Bu textBoxları topladığım üç TextBoxta sorun oluyor.

 

[Orion1]

Bir bilgisayarda doğru çalışıyorsa başka bilgisayarda doğru çalışmıyorsa bu o bilgisayarın ayarlarında türkçe sayı tarih ve para ayarı olmadığı için olabilir.Başkacada bir şey olamaz.
Yanlış gösteren bilgisayardaki denetim masasından bölgesel ayarlardan sayıların ve para birimin formatına bakıp aynisini buraya yazarmısınız?

 

[ferhatgurbuz]

Dosya Ektedir

Bende gözükenler bu şekilde.

 

[Orion1]

Bende gözükenler bu şekilde.

Sizinkinde zaten sorun yoktu.Sorun olan bilgisayardakini yollayınız.

 

[ferhatgurbuz]

Sorunlu bilgisayardaki ayarlar böyle

 

[Orion1]

Sorunlu bilgisayardaki ayarlar böyle

Windowsun ayarlarında bir sorun gözükmüyor.
Birde excel'de seçenekler-Uluslararası-Sistem ayırıcaları'nı kullan onaylı değilse onaylayınız.Aklımada başka bir şey gelmiyor.