Kullanıcı Tanımlı fonskiyon hk.

[tamer42]

Merrhaba,
Ekli dosyada Kullanıcı Tanımlı fonksiyon ile oluşturduğum formülü;
Excel' in kendi yerleşik işlevleri ile yapabilir miyiz? Kullanıcı tanımlı fonksiyon diğer makinelerde sıkıntı oluyor.

"C" sütununa göre en sağdan başlayarak sola doğru toplama yaparak gelecek ve A sütundaki değeri eşitlediği yada üsütüne ilk çıktığı hücrenin;
1.satırındaki tarihi yazacak.

Function xTarih(rw As Long)
Dim i As Integer
Dim Toplam As Double
Dim deger As Double

On Error Resume Next
Application.Volatile True

deger = Abs(ActiveSheet.Range("A" & rw).Value)

Toplam = 0

For i = 22 To 4 Step -1

    Toplam = Toplam + ActiveSheet.Cells(rw, i).Value
    If Toplam >= deger Then Exit For

Next i

xTarih = ActiveSheet.Cells(1, i).Value

Toplam = 0
deger = 0

End Function

teşekkürler,
iyi Çalışmalar.

 

[Korhan Ayhan]

Eki inceleyiniz.