Birde ben deneyeyim bari.
[vb:1:88ca00f9bc]Sub vergiiade_hesapla()
Dim a, tutar, iade As Integer
a = InputBox("tutarınızı girin")
If a > 5000 Then
iade = 5000 * 0.08
tutar = a - 5000
iade = iade + (tutar * 0.07)
Else
iade = a * 0.08
End If
MsgBox iade
End Sub
[/vb:1:88ca00f9bc]
denemedir. inceledim.çok güzel bir site hazırlanmış. fırsat oldukça inceleyeceğim.Tam bir excel hastasıyım.Makro-visual basic ilgimi çekiyor. Kendimin yaptığı özel formüllü exceller sayesinde üretimi takip ediyorum ama daha fazla detaylı yapmak için herkesin bilgisine ihtiyacım var..UNUTMAYALIM ki bilgi paylaşıldıkça değer kazanır.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.