Excel Sayfasından değer alarak formül kurma

[servtd]

Ekte gönderdiğim makroda yapmak istediğim Sayfa 2'deki verilerden yararlanarak User Formdaki Vade'yi 3 ve Yaş'ı 18 seçtiğimde Sayfa 2'deki B2 hücresi değeri ile "Kredi Tutarı"nı çarparak "Sigorta Tutarı"na yazsın.Yada vade'yi 6 ve Yaş'ı 19 seçtiğimde C3 hücresindeki değer ile "Kredi Tutarı"nı çarparak Sigorta Tutarı'na yazsın. Herhalde anlatabildim. Þimdiden teşekkür ederim.

 

[servtd]

Formül

Herhalde bu formülü kimse çözemedi. Yine de teşekkürler.

:? :? :?

 

[Levent Menteşoğlu]

Textbox3 teki kodu aşağıdaki ile değiştirin.

[vb:1:3729181ce2]Private Sub TextBox3_Change()
On Error Resume Next
If ComboBox1 = "Firma Kredisi" And ComboBox2 = "AYDA BİR" Then
a = Sheets("Sayfa1").Cells([sayfa1!A3:A6].Find(ComboBox3.Value).Row, 2)
Else
If ComboBox1 = "Firma Kredisi" And ComboBox2 = "ÜÇ AYDA BİR" Then
a = Sheets("Sayfa1").Cells([sayfa1!A3:A6].Find(ComboBox3.Value).Row, 3)
End If
End If
If ComboBox1 = "Sektör Kredisi" And ComboBox2 = "AYDA BİR" Then
a = Sheets("Sayfa1").Cells([sayfa1!A11:A14].Find(ComboBox3.Value).Row, 2)
Else
If ComboBox1 = "Sektör Kredisi" And ComboBox2 = "ÜÇ AYDA BİR" Then
a = Sheets("Sayfa1").Cells([sayfa1!A11:A14].Find(ComboBox3.Value).Row, 3)
End If
End If
TextBox7 = a * TextBox3.Value
TextBox8 = TextBox7.Value * ComboBox3.Value
sat = ComboBox4.ListIndex + 2
sut = ComboBox3.ListIndex + 2
TextBox9 = Round(TextBox3 * Sheets("sayfa2").Cells(sat, sut), 2)
End Sub[/vb:1:3729181ce2]

Combobox4'de de aşağıdaki kodu yazın.

[vb:1:3729181ce2]Private Sub ComboBox4_Click()
Call TextBox3_Change
End Sub
[/vb:1:3729181ce2]