Formda çalışan kod fonksiyonda çalıştıramadım...

[Mehmet Şahin]

Herkese merhaba,
ekteki dosyada formda verilen sayının yanındaki değer alınabiliyor. Aynı kodu
modülde yazıp çağırmak istediğimde başaramadım. Sorun nerede olabilir, saygılar.

 

[isakarakus]

merhaba,

[vb:1:d60210297c]'Kullanım şöyle olmalı
Private Sub CommandButton1_Click()
TextBox2.Text = ara(TextBox1.Text)
End Sub


'Fonsiyon da böyle olmalı
Function ara(deger)

Dim bul As Range
For Each bul In Sheets("parametre").Range("a1:a16")
If StrConv(bul.Value, vbUpperCase) = StrConv(deger, vbUpperCase) Then
ara = bul.Offset(0, 1).Text
Exit Function
End If
Next bul
MsgBox "hata"
End Function[/vb:1:d60210297c]

 

[Mehmet Şahin]

çok teşekkür ederim sayın isakarakuş, saygılar.