Binlik ayırıcı hatası toplamda

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim dosyada textbox lara binlik ayırıcı kullanıyorum ve TextBox1,TextBox2,TextBox3 ü TextBox4 e toplatıyorum örneğin 1.000+1+2.000=4 diye topluyor oysa 3.001 diye toplaması gerekir bir yardımcı olursanız çok sevineceğim.

 

[muhkem_]

bilgisayarınızın bölge ve dil seçenekleri ile uyuşmuyordur. noktayı virgul yapabilirsiniz.

 

[polis-53]

tekrar merhaba dil ayarlarıyla alakası yoktur bilgisayarımım dil ayarlarını değiştim yine aynı hatayı veriyo sanırım sıfırları görmüyor 1 ide 1000 görüyor 1000 ide bin görüyor

 

[Korhan Ayhan]

Merhaba,

Küçük döngülerle bu tarz problemleri aşabilirsiniz.

Ekteki örnek dosyayı inceleyiniz.

 

[polis-53]

Merhaba Korhan bey aşağıdaki 2. kodu 1.koda nasıl uygulayacağım yardım edermisiniz

1. KOD : Private Sub UserForm_Initialize()
'On Error Resume Next
Dim MyRange As Range
Dim noA As Integer
noA = WorksheetFunction.CountA(Sheets("veri").Range("B:B"))
For Each MyRange In Sheets("veri").Range("B2:B" & noA)
If Left(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2) Then ListBox1.AddItem (MyRange)
Next

ComboBox1.SetFocus
CommandButton5.Enabled = False
CommandButton94.Enabled = False
CommandButton62.Enabled = False
ComboBox3.RowSource = "giriş!BA1:BA10"
ComboBox4.RowSource = "iller!A2:A100"
ComboBox1.RowSource = "iller!B2:B200"
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With

End Sub


2.KOD : Private Sub UserForm_Initialize()
Dim Kontrol As Control, i As Integer
i = 1
For Each Kontrol In UserForm1.Controls
If Left(Kontrol.Name, 7) = "TextBox" Then
ReDim Preserve txtler(i)
Set txtler(i).txt = Kontrol
i = i + 1
End If
Next
End Sub

Sub HESAPLA()
Dim Kontrol As Control

For Each Kontrol In UserForm1.Controls
If TypeName(Kontrol) = "TextBox" Then
If Kontrol.Name <> "TextBox8" Then
If Kontrol.Value <> "" Then
Toplam = Toplam + CDbl(Replace(Kontrol, ".", ""))
End If
End If
End If
Next

TextBox8 = Toplam
End Sub