textbox boş ise matematiksel işlem hata veriyor.

[blazer2004]

İyi Çalışmalar Arkadaşlar bir matematiksel işlem yaptırıyorum ama kodlar textbox'dan geliyor 9 adet textbox'ım var bunlara ister değer ver istersen verme işlemi yap dedirtcem ama hata veriyor sanırım textbox boş ise matematiksel işlem sonuç veremiyor.eğer textbox boş ise işlem sonunu sıfır çıkar dedirtmek istiyorum ama başaramadım yardımcı olurmusunuz.

For pl = 10 To 19
For v = 23 To 32
If S4.Cells(v, 3) = "0" Or S4.Cells(v, 3) = "" Then
S4.Cells(v, 4) = "%0"
If Not IsNumeric(UserForm1("TextBox" & pl).Value) Then
UserForm1("TextBox" & pl).SetFocus
UserForm1("TextBox" & pl) = "0"
Else
S4.Cells(v, 4).Value = "'% " & Int(100 / (UserForm1("TextBox" & pl).Value / S4.Cells(v, 3)))
End If
End If
Next
Next

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For pl = 10 To 19 
For v = 23 To 32
If S4.Cells(v, 3) >0 Then
S4.Cells(v, 4) = "%0"
S4.Cells(v, 4).Value = "'% " & Int(100 / val(replace(UserForm1("TextBox" & pl),",",".")) / S4.Cells(v, 3)))
End If
Next
Next

 

[blazer2004]

Sayın Levent hocam verdiğiniz kodları denedim ama matematiksel işlemi yapmıyor 9 satıra %0 yazıyor.Oysa değer girilen textboxları hesaplasın girilmeyenleride %0 göstersin istiyorum.Hocam örnek dosyamı gönderiyorum yardımcı olurmusunuz.Saygılar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Yalnız 10 satırı kontrol ediyorsunuz fakat 9 adet TextBox nesnesi kullanmışsınız. Ben kodu bu şekilde düzenledim.

Private Sub CommandButton1_Click()
    Set ktp1 = ThisWorkbook
    Set S4 = ktp1.Sheets(1)
    For v = 23 To 31
        pl = v - 22
        If S4.Cells(v, 3) > 0 And Me.Controls("TextBox" & pl) <> "" Then
            S4.Cells(v, 4) = CDbl(Me.Controls("TextBox" & pl)) / S4.Cells(v, 3)
        Else
            S4.Cells(v, 4) = 0
        End If
    Next
End Sub

 

[blazer2004]

Çok Teşekkür Ederim Sayın Korhan Ayhan Bey sayenizde problemi çözdüm ve yeni bilgiler elde ettim iyiki varsınız .Saygılar