incsoft
Yeni Üye
- Katılım
- 28 Ocak 2019
- Mesajlar
- 244
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 44
- Konum
- Ankara
- Ad Soyad
- Ufuk İNCE
- Office Vers.
- 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
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