tüm fonksiyonların çalışmasını istiyorum

[kutlu]

Arkadaşlar selam

Hazırladığım programda aşağıdaki gibi modüller içine yazılmış birçok fonksiyon mevcut.
Ancak fonksiyonun bağlı olduğu hücrede bi değişiklik yaparsam fonksiyon çalışıyor.
Bunun yanında tüm fonksiyonları tek bir butona basarak çalıştırabilirmiyim?

Function tur1an1(deger As String)
Dim i As Integer
For i = 6 To 42
If deger = Sayfa16.Cells(i, 3) Then
tur1an1 = Sayfa16.Cells(i, 6)
If deger = "" Then
tur1an1 = ""
End If
Exit For
End If
Next
End Function

ÇOK TEÞEKKÜR EDERİM

 

[Levent Menteşoğlu]

Çalıştırabilirsiniz fakat bu durumda fonksiyonun kullanacağı referansı kod içinden vermeniz gerekecektir.

Ã?rneğin;

[vb:1:3005ef0d1b]Sub calistir()
[c1] = tur1an1([a1])
End Sub[/vb:1:3005ef0d1b]