Kullanıcı tanımlı fonksiyon

[zafer]

Merhaba

Aşağıdaki iki makrodan
kullanıcı tanımlı olan değer hatası veriyor.nedenini anlayamadım
Diğeri normal işlem görüyor.

örneğin herhangi bir sayfada a1 hücresinde 80 yazıyor b1 hücresinede fonksiyon tanımlamamdaki a1 hücresini referans veriyorum.ekleme alanları sayfasındaki belirttiğim alanlar arasında 80 değerini bulup b1 hücresine sol yanındaki değeri yazmasını istiyorum.

Function masraflar(alan As Range)

For Each hucre In Sheets("EKLEME_ALANLAR").Range("d3:d25")
masrafad = hucre.Address.Offset(0, -1).Value
veri = Range(alan).Value
If veri = hucre Then
masraflar = masrafad
End If
Next

SAygılarımla

'masraflar = masrafad

End Function


Sub masraf()

For Each hucre In Sheets("EKLEME_ALANLAR").Range("d3:d25")
veri = ActiveCell.Offset(0, -1).Value
If veri = hucre Then
ActiveCell.Value = hucre.Offset(0, -1).Value
End If
Next

End Sub

Saygılarımla

 

[zafer]

Merhaba

Function masraflar(veri As Integer)

For Each hucre In Sheets("EKLEME_ALANLAR").Range("d3:d25")

If hucre = veri Then
masraflar = hucre.Offset(0, -1).Value
End If
Next

End Function

olarak değiştirdim.düzgün çalışıyor.

Saygılarımla

 

[Haluk]

Saygı bizden...

Geri dönüş için de ayrıca teşekkürler.

 

[zafer]

Sayın Raider

Teşekkür ederim.
Bu işin ustalarından teşekkür almak bizleri çok sevindiriyor.


Sitenin amacına ve kuruluşuna uygun olarak çalışmalarımıza herkesin ortak olmasını ve paylaşmamız gerektiğini düşünüyorum.




Saygılarımla