excelde uc yada daha fazla parametre ile makro nasıl yapılabilinir ?

[parametre]

simdi ben soyle bir makro yapmak istiyorum hesapla dediğimde vereceğim rakamın %10 sonrada kalan rakamın %21 ini hesaplayıp bana kdvli rakamını vermesini istiyorum bunu formulle yazdım ama her seferinde aynı formulu değilde makro ile yapmak istiyorum yardımcı olabilirmisiniz iyi çalısmalar arkadaslar

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek nasıl bir işlem yapmak istediğinizi açıklarmısınız.

 

[talatcd]

tam anlamadım ama;
textbox1= ana para toplamı olsun
textbox2=%10 a tekabül eden para toplamı olsun
textbox3=textbox2 nin %10 u olsun
textbox4=kalanın %21 i olsun
textbox5=ana para+%10+%21 toplamları olsun gibi mi?

 

[parametre]

tam anlamadım ama;
textbox1= ana para toplamı olsun
textbox2=%10 a tekabül eden para toplamı olsun
textbox3=textbox2 nin %10 u olsun
textbox4=kalanın %21 i olsun
textbox5=ana para+%10+%21 toplamları olsun gibi mi?

konu su elimizdeki para 1000 ytl olsun diyelim bunun %10 unu çıkardıgımızda kalan 900 olur buradan bunundan %21ini alıp onuda 900 ytlden çıkarıp kalanın %18+anapara toplamını bulacak(yani %21 den kalan para x 1.18= istediğim sonuc

formuluze edersem eğer =(((1000-1000*%10)-(1000-1000*%10)*%21))*1.18 bunu makro ile yapmak istiyorum
yani =hesapla(1000,10,21,1.18) dediğimde istediğim sonucu vermeli
yardımcı olursanız sevinirim

sanırım gayet acık ve anlasılır yazdım sanırım

 

[veyselemre]

Kodları bir modüle yapıştırın.

Function Hesapla(Matrah As Double, isk1 As Single, isk2 As Single, kdvliTop As Single) As Double
    Hesapla = WorksheetFunction.Round(Matrah * (100 - isk1) / 100 * (100 - isk2) / 100 * kdvliTop, 2)
End Function

Sayfa üzerinde =hesapla(1000,10,21,1.18)
veya liste ayracı olarak ";" kullanıyorsanız =hesapla(1000;10;21;1.18) olarak deneyin.

 

[parametre]

sonucu vermedi hata verdi error verdi calıstıramadım 5 kez denedim çunku

 

[meslan]

Sn. parametre, Sn. veyselemre'nin verdiği fonksiyon sonuç veriyor. Ekteki dosyayı inceleyiniz.

 

[parametre]

tesekkur ederim virus uyarısı verdi teemizledikten sonra denedim çalıstı