- Katılım
- 8 Mart 2005
- Mesajlar
- 3,288
- Excel Vers. ve Dili
-
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
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