Toplama işleminde değer hatası

[ferhatgurbuz]

Ekteki dosyada formüller uzadıkça veya bağlantılar arttıkça hata veriyor. İçinden çıkamadım .
Arkadaşlar çok acil ayın onbeşine yetiştirmem lazım. İlgilenirseniz çok sevinirim.

 

[hamitcan]

Kullandığınız tüm formüllerde ""(tırnak) yerine 0 (sıfır) kullanmayı deneyin.

 

[ferhatgurbuz]

Çok teşekkür ederim. Bildiğimden değil sağdan soldan formül toplayınca böyle oluyor. Sizden bir ricada daha bulunsam. Aynı dosyadaki UserForm1 de userform üzerinden excel sayfasına veri gönderdiğimde sayı olarak görünmüyor.

 

[hamitcan]

Sayı olarak tanımladığınız "TextBox" nesneleri için, (Örn:Val(TextBox1)) şeklinde girmeyi deneyin. Yalnız ben denemedim. Fikir olması için söylüyorum.

 

[ferhatgurbuz]

ya işin özü kodları da başkasına yaptırdığım için şuan kod sayfasında demek istediğinizi yapacak kadar becerikli değilim. Bunu söylerken utanıyorum ama ne yapayım çaresizim işte

 

[hamitcan]

Ben aşağıdaki kodda bir tanesini yaptım. Bunun gibi, siz de hangi hücreler sayısal ifadeler içeriyorsa "TextBox" nesnelerini düzenleyebilirsiniz.
Bu örneği açklamak gerekirse, Cells(k.Row, "H").Value ,
k.row--> kayıt yapılacak satır nosu
"H"-->kayıt yapılacak sütun adı
Dolayısıyla, Cells(k.Row, "H").Value satır-sütun kesişmesi sonucu oluşan hücreyi ifade ediyor.

Private Sub CommandButton2_Click()
If TextBox1.Value = "" Then
    MsgBox "Personel No'su Boş Olamaz..!", vbCritical
    TextBox1.SetFocus
    Exit Sub
End If
If MsgBox("DEĞİŞİKLİK YAPMAK İSTYORMUSUNUZ.?", vbQuestion) = vbNo Then
    TextBox1.SetFocus
    Exit Sub
End If
Set k = Range("B11:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    For i = 4 To 7
        If Not IsNumeric(Controls("TextBox" & i)) Then Controls("TextBox" & i) = 0
        Cells(k.Row, "D").Value = TextBox2.Value
        Cells(k.Row, "E").Value = TextBox3.Value
        Cells(k.Row, "F").Value = TextBox4.Value
        Cells(k.Row, "G").Value = TextBox5.Value
        [color=blue]Cells(k.Row, "H").Value = Val(TextBox6.Value)[/color]
        Cells(k.Row, "I").Value = TextBox7.Value
        Cells(k.Row, "p").Value = TextBox8.Value
        Cells(k.Row, "J").Value = TextBox9.Value
        Cells(k.Row, "k").Value = TextBox10.Value
        Cells(k.Row, "l").Value = TextBox11.Value
        Cells(k.Row, "w").Value = TextBox12.Value
        Cells(k.Row, "Y").Value = TextBox13.Value
        Cells(k.Row, "AJ").Value = TextBox14.Value
        Cells(k.Row, "AE").Value = TextBox15.Value
        Cells(k.Row, "AA").Value = TextBox16.Value
        Cells(k.Row, "AC").Value = TextBox17.Value
        Cells(k.Row, "AH").Value = TextBox18.Value
        Cells(k.Row, "AI").Value = TextBox19.Value
        Cells(k.Row, "AQ").Value = TextBox20.Value
        Cells(k.Row, "AS").Value = TextBox21.Value
        Cells(k.Row, "BL").Value = TextBox22.Value
        Cells(k.Row, "BJ").Value = TextBox23.Value
        Cells(k.Row, "AV").Value = TextBox24.Value
        Cells(k.Row, "AW").Value = TextBox25.Value
        Cells(k.Row, "AU").Value = TextBox26.Value
        Cells(k.Row, "S").Value = TextBox27.Value
        Cells(k.Row, "cc").Value = TextBox28.Value
        Cells(k.Row, "cd").Value = TextBox29.Value
        Cells(k.Row, "cg").Value = TextBox30.Value
        Cells(k.Row, "ch").Value = TextBox31.Value
        Cells(k.Row, "ck").Value = TextBox32.Value
        Cells(k.Row, "cm").Value = TextBox33.Value
        Cells(k.Row, "co").Value = TextBox34.Value
        Cells(k.Row, "cs").Value = TextBox35.Value
        Cells(k.Row, "cq").Value = TextBox36.Value
                MsgBox "Değişiklik Yapıldı"
        For j = 1 To 9
            Controls("TextBox" & j) = ""
        Next
        Exit Sub
    Next i
    Else
    MsgBox "Değitirelecek Veri Bulunamadı.!"
End If
End Sub

 

[ferhatgurbuz]

TeŞekkÜr Ederİm