Kdv Çıkartma

[12SubaT]

Merhaba arkadaslar
bir makro lazım bana.bir komut düğmesine bağlayacağım bu makroyu.
şu işi görmesi gerekiyor makronun:
e18:e40 hücrelerindeki sayıyı %18'ini alarak aynı hücrelere yazacak.mesela e18 hücresinde 100 yazılı.ben makroyu düğmeye basıp çalıştırınca %18'i olan 18 değerini çıkarıp aynı e18 hücresine 82 yazacak.
mümkün müdür acaba?

 

[Husgvarna]

Merhaba arkadaslar
bir makro lazım bana.bir komut düğmesine bağlayacağım bu makroyu.
şu işi görmesi gerekiyor makronun:
e18:e40 hücrelerindeki sayıyı %18'ini alarak aynı hücrelere yazacak.mesela e18 hücresinde 100 yazılı.ben makroyu düğmeye basıp çalıştırınca %18'i olan 18 değerini çıkarıp aynı e18 hücresine 82 yazacak.
mümkün müdür acaba?

Aşağıdaki gibi deneyin.

("100" ün % 18 KDV si düşüldüğünde "84,75" olur.)

For a = 18 To 40
Cells(a, 5).NumberFormat = "#,##0.00"
Cells(a, 5) = Cells(a, 5) / 1.18
Next

 

[12SubaT]

üstad elinize sağlık güzel olmuş ama boş olan satırlara da işlem yapıyor makro.sadece veri olan satıra işlem yapması gerekiyor.o şekilde düzenleyebilir miyiz acaba?

 

[mbldn]

üstad elinize sağlık güzel olmuş ama boş olan satırlara da işlem yapıyor makro.sadece veri olan satıra işlem yapması gerekiyor.o şekilde düzenleyebilir miyiz acaba?

Sayın hocam sanıyorum yok ben yanıtlayayım istedim. inşallah hocam mazur görür
kodu aşağıdaki şekilde uygulayabilir misiniz?
For a = 18 To 40
If Cells(a, 5) <> "" Then
Cells(a, 5).NumberFormat = "#,##0.00"
Cells(a, 5) = Cells(a, 5) / 1.18
End If
Next

 

[12SubaT]

Çok güzel olmuş hocam elinize,emeğinize sağlık.Teşekkür ederim...