fonksiyon sonucu güncellenmiyor

[bahattin]

Merhaba arkadaşlar.

Aşağıdaki fonksiyon "DÖVİZ CİNSİ" ve ilgili "AY" a göre kuru bulup "TUTAR" ı TL ye çeviriyor.
"Tutar","Ay" ve "Döviz cinsi" değiştiğinde hücre değeri güncelleniyor.
Fakat "Ay" ve "Döviz" e göre tablodan bulduğu kur değiştiğinde hücre değeri güncellenmiyor.
üzerine gidip F2 yaparsam güncelleniyor.

F9 hesapla işe yaramıyor.

Yardımlarınız için teşekkürler.

***Hücre Formulü:
=bcevir(A12;A3;E1)

***Fonksiyon

Function bcevir(TUTAR As Double, CNS As String, AY As Integer) 'döviz den TL ye çevirir'
Dim Z As Integer
Dim KURLAR$(3, 12)
Rem önceki yıl ARALIK
KURLAR$(1, 0) = Worksheets("kur").Range("b2").Value
KURLAR$(2, 0) = Worksheets("kur").Range("b3").Value
KURLAR$(3, 0) = Worksheets("kur").Range("b4").Value
Rem OCAK
KURLAR$(1, 1) = Worksheets("kur").Range("C2").Value
KURLAR$(2, 1) = Worksheets("kur").Range("C3").Value
KURLAR$(3, 1) = Worksheets("kur").Range("C4").Value
Rem ŞUBAT
KURLAR$(1, 2) = Worksheets("kur").Range("D2").Value
KURLAR$(2, 2) = Worksheets("kur").Range("D3").Value
KURLAR$(3, 2) = Worksheets("kur").Range("D4").Value
Rem MART
KURLAR$(1, 3) = Worksheets("kur").Range("E2").Value
KURLAR$(2, 3) = Worksheets("kur").Range("E3").Value
KURLAR$(3, 3) = Worksheets("kur").Range("E4").Value
Rem NİSAN
KURLAR$(1, 4) = Worksheets("kur").Range("F2").Value
KURLAR$(2, 4) = Worksheets("kur").Range("F3").Value
KURLAR$(3, 4) = Worksheets("kur").Range("F4").Value
Rem MAYIS
KURLAR$(1, 5) = Worksheets("kur").Range("G2").Value
KURLAR$(2, 5) = Worksheets("kur").Range("G3").Value
KURLAR$(3, 5) = Worksheets("kur").Range("G4").Value
Rem HAZİRAN
KURLAR$(1, 6) = Worksheets("kur").Range("H2").Value
KURLAR$(2, 6) = Worksheets("kur").Range("H3").Value
KURLAR$(3, 6) = Worksheets("kur").Range("H4").Value
Rem TEMMUZ
KURLAR$(1, 7) = Worksheets("kur").Range("I2").Value
KURLAR$(2, 7) = Worksheets("kur").Range("I3").Value
KURLAR$(3, 7) = Worksheets("kur").Range("I4").Value
Rem AĞUSTOS
KURLAR$(1, 8) = Worksheets("kur").Range("J2").Value
KURLAR$(2, 8) = Worksheets("kur").Range("J3").Value
KURLAR$(3, 8) = Worksheets("kur").Range("J4").Value
Rem EYLÜL
KURLAR$(1, 9) = Worksheets("kur").Range("K2").Value
KURLAR$(2, 9) = Worksheets("kur").Range("K3").Value
KURLAR$(3, 9) = Worksheets("kur").Range("K4").Value
Rem EKİM
KURLAR$(1, 10) = Worksheets("kur").Range("L2").Value
KURLAR$(2, 10) = Worksheets("kur").Range("L3").Value
KURLAR$(3, 10) = Worksheets("kur").Range("L4").Value
Rem KASIM
KURLAR$(1, 11) = Worksheets("kur").Range("M2").Value
KURLAR$(2, 11) = Worksheets("kur").Range("M3").Value
KURLAR$(3, 11) = Worksheets("kur").Range("M4").Value
Rem ARALIK
KURLAR$(1, 12) = Worksheets("kur").Range("N2").Value
KURLAR$(2, 12) = Worksheets("kur").Range("N3").Value
KURLAR$(3, 12) = Worksheets("kur").Range("N4").Value

If UCase$(CNS) = "TRL" Then
bcevir = 1 * TUTAR
Else
If UCase$(CNS) = "GBP" Then Z = 1
If UCase$(CNS) = "EUR" Then Z = 2
If UCase$(CNS) = "USD" Then Z = 3

bcevir = KURLAR$(Z, AY) * TUTAR
End If

End Function

 

[fedeal]

tarih yazan hücreye f2 yapınca mı güncelleniyor.öyleyse tarihi hücreye atan kod(kodlar hangisi)

 

[bahattin]

=bcevir(A12;A3;E1)
formülünü yazdığım hücreye F2 yapınca güncelliyor.
Fonksiyondaki AY değişkeni tarihi belirliyor.tarih formatında değil sayı olarak. 1-12 arası

 

[bahattin]

Arkadaşlar bu problem kimsenin başına gelmedi mi acaba.
Fonksiyon yerine uzun uzun eğerli formüller yazmak zorundamı kalacağız.

İyi Çalışmalar Dilerim.

 

[bahattin]

Belki birisine gerekebilir.

Application.Volatile

ile problemim çözüldü.