Yardım #DEĞER hatası

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
130
En iyi yanıt
0
Puanları
18
Yaş
40
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Versiyon
Office 2019 Professional
=ay_uretim_adeti(E2)

Bu komutla aşağıdaki fonksiyona göre belirtilen hücredeki siparişi sayfada bulunan 31 günlük yerden buldurarak toplamını aldırıyorum arkadaşlar ancak çoğu bilgisayarda sorunsuz çalışırken server üzerinden çalışan office sürümlerinde #DEĞER hatası vermektedir. Sizce neden olabilir?

Teşekkürler.



Option Explicit

Public Function ay_uretim_adeti(ie_no As Long) As Long
', Optional VolatileParameter As Variant
ActiveWorkbook.ForceFullCalculation = True
Dim hesap As Long
Dim i, j As Integer

For i = 1 To Sheets.Count

For j = 2 To 50 'yukarıdan aşağıya 50 satıra bakacak

If Sheets(i).Range("E" & j).Value = ie_no Then

hesap = hesap + Sheets(i).Range("F" & j).Value

End If

Next j

Next i

ay_uretim_adeti = hesap
End Function
 

leguminosea

Yeni Üye
Katılım
26 Ocak 2020
Mesajlar
86
En iyi yanıt
5
Puanları
18
Konum
Tokat
Ad Soyad
Erhan ÖZER
Office Versiyon
2019 Pro Plus 64 TR
Bu bir KTF (kullanıcı tanımlı fonksiyon).
Muhtemelen Server üzerindeki bilgisayarların excell uygulama kütüphanesinde bu özel fonsiyon bulunmadığından çalışmıyor.
Bunu nasıl tanımlayacağınızla ilgili internette arama yapınız.
Bir çok kaynak bulacaksınız.
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
130
En iyi yanıt
0
Puanları
18
Yaş
40
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Versiyon
Office 2019 Professional
Bu bir KTF (kullanıcı tanımlı fonksiyon).
Muhtemelen Server üzerindeki bilgisayarların excell uygulama kütüphanesinde bu özel fonsiyon bulunmadığından çalışmıyor.
Bunu nasıl tanımlayacağınızla ilgili internette arama yapınız.
Bir çok kaynak bulacaksınız.

Bunu çözdüm hocam.. Kullanıcı tanımlı fonksiyonla ilgili size 1 soru sorabilirmiyim? Burda fonksiyona bir kod eklentisi yaparak sadece belirtilen sayfalardan toplam almasını sağlayabilirmiyiz? Mesela 1-2-3....31 ve ismi DATA olan sayfalardan alması yönünde...
 

leguminosea

Yeni Üye
Katılım
26 Ocak 2020
Mesajlar
86
En iyi yanıt
5
Puanları
18
Konum
Tokat
Ad Soyad
Erhan ÖZER
Office Versiyon
2019 Pro Plus 64 TR
Alttaki gibi dener misiniz?

Kod:
Option Explicit
Public Function ay_uretim_adeti(ie_no As Long) As Long
', Optional VolatileParameter As Variant
ActiveWorkbook.ForceFullCalculation = True
Dim hesap As Long
Dim i, j As Integer

For i = 1 To 31
    For j = 2 To 50 'yukarıdan aşağıya 50 satıra bakacak
        If Sheets(i).Range("E" & j).Value = ie_no Then
            hesap = hesap + Sheets(i).Range("F" & j).Value + Sheets("DATA").Range("F" & j).Value
        End If
    Next j
Next i

ay_uretim_adeti = hesap
End Function
 
Üst Alt