• Merhaba Ziyaretçi,
    4 Ağustos'a Kadar VIP Paket %50 İNDİRİMLİ (bir kere öde, ömür boyu kullan)
    İndirimden yararlanmak için resme tıklayın. 👇🏻
  • Sn. Ziyaretçi,
    PEAKUP E-Book & Makale & Videoları yayınlandı.

Yardım #DEĞER hatası

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
96
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Ankara
Ad Soyad
Ufuk İNCE
=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
81
En iyi yanıt
5
Puanları
18
Yaş
42
Konum
Tokat
Ad Soyad
Erhan ÖZER
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
96
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Ankara
Ad Soyad
Ufuk İNCE
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
81
En iyi yanıt
5
Puanları
18
Yaş
42
Konum
Tokat
Ad Soyad
Erhan ÖZER
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