formulü makroyla hesaplattırmak

[Erhan Üstünel]

arkadaşlar ekte de belirtmeye çalıştım benim sıkıntım tablomdaki basit yüzde hesabını makroyla ilgili sutunda hesaplatmam gerekiyor,

yardımcı olucak üstadlara şimdiden teşekkürler...

 

[Muzaffer Ali]

Sub YuzdeHesapla()
    Dim say As Integer
    For say = 1 To Cells(65536, 11).End(3).Row + 1
        If IsNumeric(Cells(say, 11)) And Not Cells(say, 11).Value = "" Then
            Cells(say, 12).Value = (Cells(say, 11) * 99.9555) / 100
        End If
    Next
End Sub

 

[Erhan Üstünel]

teşekkür ederim elinize sağlık,

peki bu hesaplamada formül çubuğunda da sonucun 3,4184781 olarak değilde 3,42 olarak görünmesini nasıl sağlayabiliriz acaba ?

 

[hamitcan]

FORMAT((Cells(say, 11) * 99.9555) / 100,"0.00")

şeklinde deneyin.

 

[Erhan Üstünel]

Teşekkürler hocam elinize sağlık,

peki hocam en alta toplam almakta sorun çıkıyor ve yüzde oranı sürekli değişecek
bunu userformda la birlikte hücrenin en altına da toplamını aldırabilirmiyiz ?