Çalışmayan Fonksiyon

[otufan03]

Arkadaşlar ekli dosyada vergi iadesi hesaplamaları için kullanıcı tanımlı bir fonksiyon hazırlamaya çalışıyorum,fakat istediğim gibi çalışmıyor,hata nerede acaba.

 

[otufan03]

Sayın Leventm şu sıralar forumdasınız yukardaki fonksiyona bir bakarmısınız.

 

[Levent Menteşoğlu]

Yaptığı hata nedir?

 

[otufan03]

Hazırladığım vergi iade bordrosunda mesela
A20 hücresine fiş miktarını girip,
B20 hücresine ise =iade(A20) yazdığımda A20 hücresindeki fiş miktarına göre hesaplanmış vergi iadesini vermesini istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Makro içinde hücreye verdiğiniz ad geçerli değildir. Hücrenin satır ve sütundan oluşan adını kullanmanız gerekir.

[vb:1:221670fe74]Function iade(Fis As Double)
If Fis <= [b2] Then iade = [a2] * Fis: Exit Function
If Fis > [b2] And Fis <= [b3] Then iade = ([b2] * [a2]) + ([a3] * (Fis - [b2])): Exit Function
If Fis > [b3] Then iade = ([b3] * [a3]) + ([a4] * (Fis - [b3])): Exit Function
hesapla:
If Fis <= sontutar Then
iade = ilkoran * ((sontutar - Fis)) + ikincioran * (((Fis) - sontutar))
Else
iade = ikincioran * Fis
End If
End Function
[/vb:1:221670fe74]

 

[otufan03]

Teşekkür ederim Leventm sonuç istediğim gibi.
ad yerine kullandığımız (a2),(b2),(b3) yerine bir başka sayfadaki hücreleri yazabilirmiyiz, Mesela; Sayfa1!a2, Sayfa2!b3, Bordro!b2 gibi

 

[Levent Menteşoğlu]

Elbette yazabilirsiniz. Ã?rneğin Sayfa2 A1 hücresinin üç ayrı tanımlanma şeklini aşağıda veriyorum.

[sayfa2!A1] veya sheets("sayfa2").[a1]

sheets("sayfa2").range("A1")

sheets("sayfa2").cells(1,1) veya sheets("sayfa2").cells(1,"a")

 

[otufan03]

Çok Teşekkür ederim Leventm

 

[mciritci]

Arkadaşlar Benim Sorunum Sheet1 fe bulunan bilgiyi Sheet2'deki Texboxa Yazıp A Satırında Göstermesini İstiyorum

Sorum (17Kb'lik Dosyada) Ekteki Lot numarlarını Sheet 2 deki textbox'aLot Numrasını yazıp Butona bastığımda A2deki Satıra Getirsin KOD AÇIKLAMA LOT bilgilerini