sayı girilince (sütun boyu), sağındaki hücreye %18 kdv yazsın

[EKREM1661]

Çok değerli Arkadaşlar..! Herkese Selamlar ve hayırlı çalışmalar;

Örneğin; diyelimki "E" sütununda her hangi bir hücreye sayı girilince, hücreden çıkışta sağındaki hücreye (yani "F"sütunu) %18 KDV'sini yazsın;
"F" sütununda formül varmış gibi..Tabii ki formülle değil, Makro ile.. Bu her halde, formülden çok daha sağlıklı olacak..

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
On Error Resume Next
If IsNumeric(Target.Value) Then Target.Offset(0, 1).Value = Target.Value * 0.18
End Sub

 

[EKREM1661]

Saygıdeğer hocam..!

Şekil ve mantık olarak çok isabetli, fakat %18 KDV'sini hesaplatarak yazdirabilirse... Örn. 1258 yazdığımızda sağındaki hücreye 226,44 yazsın..

 

[Orion1]

Saygıdeğer hocam..!

Şekil ve mantık olarak çok isabetli, fakat %18 KDV'sini hesaplatarak yazdirabilirse... Örn. 1258 yazdığımızda sağındaki hücreye 226,44 yazsın..

dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.

 

[EKREM1661]

Saygıdeğer hocam Evren Bey.. tek kelimeyle harika olmuş, eline ve bilgine sağlık, hayırlı çalışmalar dileğiyle..

 

[Orion1]

Saygıdeğer hocam Evren Bey.. tek kelimeyle harika olmuş, eline ve bilgine sağlık, hayırlı çalışmalar dileğiyle..

Rica ederim.
O sizin harikalığınız.
İyi çalışmalar.