texbox ta nasıl formül için makro

[mutlu erdal erdem]

Val(TextBox87) = (Val(ComboBox1) * Val(ComboBox2) * Val(ComboBox15) * Val(texbox7)) / 1000000

yukarıdaki formüle göre teksbox87 nin değeri otomatik olarak nasıl gelir.Yardımlarınız için şimdiden teşekkür ederim.

 

[alpi]

Biraz daha açar mısınız? teksbox87 nin değeri otomatik olarak nereye gelecek, nereye gelmesini istiyorsunuz?

 

[Levent Menteşoğlu]

Öncelikle yazım şekliniz hatalı, Aşağıdaki gibi olmalı.

TextBox87 = (Val(ComboBox1) * Val(ComboBox2) * Val(ComboBox15) * Val(texbox7)) / 1000000

Textbox87 ye bu formülle verinin otomatik olarak yazılması için formülün her nesnede tetiklenmesi gerekir. Yani her nesneye formülü yazmalısınız. elbette nesneler boşken sıfır olarak algılanması gerektiğinide kod içinde tanımlamalısınız.

 

[mutlu erdal erdem]

cevabınız için çok teşekkür ederim şöyle açıklayayım

combobox1 e bir değer seçiyorum "18 mm" combox2 ye "2100mm" değerini seçiyorumcombobox15 e "2800mm" değerini giriyorum texbox7 ye de "adet "girince bunların hepsini çarpıp "1.000.000" böllerek çıkan sonucun
textbox87 ye otomatik olarak gelmesi gerekiyor.Makro ile sadece hücre bilgi düzeyinde çalıştım bu nedenle bilgileri ve kodları tam verirseniz çok sevinirim.formu tamamladım tek eksiği bu kaldı.Yardımlarınız için şimdiden tşk ederim.

 

[alpi]

Bir tane CommandButton ekleyin, Adını(Name) cmdHesapla olarak değiştirin ve aşağıdaki kodu yazın

Private Sub cmdHesapla_Click()
    If ComboBox1.Value = "" Or ComboBox2.Value = "" Or ComboBox15.Value = "" Or texbox7.Value = "" Then
        MsgBox "Lütfen önce gerekli alanları doldurun..."
        Exit Sub
    End If
    TextBox87.Value = (ComboBox1.Value * ComboBox2.Value * ComboBox15.Value * texbox7.Value) / 1000000
End Sub

 

[mutlu erdal erdem]

sayın alpi

Merhabalar öncelikle tşk ediyorum ama dediğinizin aynısını uyguladım.msgbox hata veriyor onu sildim ancak yine olmadı bu kezde formül hata veriyor.Tekrar gözden geçirirseniz sevinirim.ayrıca ikinci kalitedede aynı hesaplamayı yaptırmam gerekiyor .dosyayyı size göderiyorum.Sanırım bu şekilde en sağlıklısı olacak.

 

[alpi]

Önceki kodu silip aşağıdakini yazın

Private Sub cmdHesapla_Click()
    If ComboBox1.Value = "" Or ComboBox2.Value = "" Or ComboBox15.Value = "" Or textbox7.Value = "" Then
        MsgBox "Lütfen önce gerekli alanları doldurun..."
        Exit Sub
    End If
    TextBox87.Value = (ComboBox1.Value * ComboBox2.Value * ComboBox15.Value * textbox7.Value) / 1000000
End Sub