incsoft
Altın Üye
- Katılım
- 18 Ağustos 2009
- Mesajlar
- 739
- Excel Vers. ve Dili
- Office Ev ve İş 2021 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 12-12-2024
=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
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
