Userformdaki Textbox'taki değerleri hesaplamak

[Ergün Güler]

Selam,
Örnek dosya ektedir.
Userform2'nin kod sayfasında açıklama mevcut.

Kısaca,

'Userform2'yi aşağıdaki örnek formül gibi kullanmak istiyorum.
'örnek formül =B6/((B1*B2*(EĞER(B3="TB";B4/2;B4))*B5)/1000000)

'B1 yerine TextBox1 girdiğimiz değer olacak
'B2 yerine TextBox2 girdiğimiz değer olacak
'B3 yerine TextBox3 girdiğimiz değer olacak
'B4 yerine TextBox4 girdiğimiz değer olacak
'B5 yerine TextBox5 girdiğimiz değer olacak
'B6 yerine TextBox6 girdiğimiz değer olacak


'=tartısonucu / (( ebatboy*ebaten*(EĞER(format="TB";Sayfasayısı/2;Sayfasayısı))*Tartılanadet)/1000000)

'Hesapla düğmesine tıklayınca Textbox7'ye formül sonucunun gelmesini istiyorum.
Nasıl yapabiliriz?

----------------------------------
Konudaki soruya çözüm bulunmuştur. Çözüm ekteki dosyadadır.

 

[Ömer]

Merhaba,

Private Sub CommandButton1_Click()
If TextBox3.Value = "TB" Then
    a = TextBox4.Value / 2
Else
    a = TextBox4.Value
End If
    TextBox7.Value = TextBox6.Value / ((TextBox1.Value * _
    TextBox2.Value * (a) * TextBox5.Value) / 1000000)
End Sub

Bu şekilde denermisiniz..

.

 

[Ergün Güler]

Merhaba,

Private Sub CommandButton1_Click()
If TextBox3.Value = "TB" Then
    a = TextBox4.Value / 2
Else
    a = TextBox4.Value
End If
    TextBox7.Value = TextBox6.Value / ((TextBox1.Value * _
    TextBox2.Value * (a) * TextBox5.Value) / 1000000)
End Sub

Bu şekilde denermisiniz..

.

Sayın Ömer,
Çok teşekkürler. Kod işimi gördü.
Yanlız, Textbox'lardan herhangi boş iken hesapla düğmesine basılınca
hata veriyor. Bende yine sizden alıntı yaptığım hata kodlarını ekledim.
beceremedim.

Private Sub CommandButton1_Click()
On Error GoTo hata:
If TextBox3.Value = "TB" Then
    a = TextBox4.Value / 2
Else
    a = TextBox4.Value
End If
    TextBox7.Value = TextBox6.Value / ((TextBox1.Value * _
    TextBox2.Value * (a) * TextBox5.Value) / 1000000)
Exit Sub
hata:

MsgBox = "Verileri eksik girdiğiniz"
End Sub

Yardımcı olabilir misiniz?

 

[Ömer]

Boş olduğunda ne olması gerekiyor. Boş textbox'u sıfır olarak mı işleme alacak yoksa tüm textboxları doldurun şeklinde uyarı mı verecek.

.

 

[Ergün Güler]

hesap yapılabilmesi için hepsinin dolu olması gerekiyor. Herhangi biri eksik iken hesaplandığında
"verileri eksik girdiniz" gibi uyarı versin. uyarı penceresindeki tamama tıkladıktan sonra yine Userforma gelsin.
Zaten verilerden herhangi biri eksik iken hesaplandığında kodlar hata veriyor. kodlar hata vermese bile yukarıda bahsettiğim uyarıyı versin istiyorum.

 

[Ömer]

Bu şekilde deneyin..

Private Sub CommandButton1_Click()
[COLOR=seagreen]' ********** eskik veri girişi için döngü kuruldu ********[/COLOR]
For i = 1 To 6
    If Controls("textbox" & i) = "" Then
        MsgBox "Veri Girişi Eksiktir.!", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
        TextBox1.SetFocus
        Exit Sub
    End If
Next i
[COLOR=seagreen]' ********** hesaplamalar yapıldı **********************[/COLOR]
If TextBox3.Value = "TB" Then
    a = TextBox4.Value / 2
Else
    a = TextBox4.Value
End If
    TextBox7.Value = TextBox6.Value / ((TextBox1.Value * TextBox2.Value _
    * (a) * TextBox5.Value) / 1000000)
End Sub

.

 

[Ergün Güler]

Çok teşekkürler Sayın Ömer,
Ellerinize Sağlık.

-------------------------------------------------------------------

Konudaki soruya Ömer Hocam'ın sayesinde çözüm bulunmuştur. Çözüm 1.sıradaki mesaja eklenmiştir.