Fonksiyon Kullanımı

[Tasarım]

Programımda "Kadro/Derece" ve "Unvan" bölümleri mevcut. Aşağıda örneğini verdiğim şekilde Text kutusunun içerisinde Fonksiyon olarak nasıl kullanabilirim?
Kadro/Derece ve Unvan bölümlerini seçtikten sonra Ekgösterge'nin 3000 olmasını nasıl sağlayabilirim?

Function ekgosterge(A, B)
If A = "Müdür" And B = "1/1" Then ekgosterge = 3000
End Function

 

[monelogg]

Merhaba, eğer doğru anladıysam textbox ile KTF çalıştırmak istiyorsunuz eğer doğru anladıysam aşağıdaki gibi yapabilirsiniz.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = ekgosterge(Cells(1, 1).Text, Cells(1, 2).Text)
End Sub

TextBox'a çift tıklandığında sonuç üretiyor.