D sütunun son hücresini yukarı yuvarlamak

[hadromer]

Merhaba,
Ayrı sayfalarda bulunan tüm D sütunun en son hücresinde sütun toplamı yer almaktadır.
en son hücre 0.1234 gibi görünüyor. Ancak hücre 0.12334353434 gibi uzun basamaklı bir veriden oluşuyor.
Ben D sütunun en son hücresinde yer alan sayıyı virgülden sonra 4 basamaklı yapmak istiyorum. ( Tüm sayfalarda yer alan d sütunu için)

Yardımcı olabilir misiniz ? teşekkür ederim.

Not: D sütunun son hücresi =Topla (D2: D35) formülü var. Yani son hücre formüllü. Forumda benzer kodlar buldum ancak formüllü olduğu için çalışmadı.

 

[YUSUF44]

Bu sorunuzun aşağıdaki konudan farkı nedir? Aynı nitelikte, sadece E yerine d sütunu mu olacak? Öyleyse kendiniz de yapabilirsiniz bu işlemi (döngü kullanmadan doğrudan son değişkenine bağlı olarak yapılmalı):

A sütunun sonuna veri ekleme

Merhaba, excel dosyamda çok sayıda sayfa var. Bütün sayfalarda bulunan A sütunda azı veriler var. Ben A sütunun sonuna "TOPLAM" ibaresini eklemek istiyorum. makro kodu konusunda yardımcı olur musunuz ? Teşekkür ederim.

www.excel.web.tr

 

[hadromer]

Bu sorunuzun aşağıdaki konudan farkı nedir? Aynı nitelikte, sadece E yerine d sütunu mu olacak? Öyleyse kendiniz de yapabilirsiniz bu işlemi:

A sütunun sonuna veri ekleme

Merhaba, excel dosyamda çok sayıda sayfa var. Bütün sayfalarda bulunan A sütunda azı veriler var. Ben A sütunun sonuna "TOPLAM" ibaresini eklemek istiyorum. makro kodu konusunda yardımcı olur musunuz ? Teşekkür ederim.

www.excel.web.tr

Yusuf Bey,
dikkat ve uyarınız için çok teşekkür ediyorum. Tamamen unutmuşum, yoğunluktan.. Çok özür diliyorum tüm üyelerden. ((((

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim syf As Worksheet
    Dim Satir As Long
    For Each syf In ThisWorkbook.Worksheets
        Satir = syf.Cells(Rows.Count, "D").End(xlUp).Row
        syf.Cells(Satir, "D").Value = FormatNumber(syf.Cells(Satir, "D").Value, 4)
    Next
End Sub

Edit: Son konu ile bunun arasında gerçekten de çok küçük bir fark var. Bazı soruları siz de düşünerek biraz kafa yorarak gayet tabii çözebilirsiniz.
Belki bu sebeple öğrenmişte olursunuz.
Kolay gelsin.

 

[Haluk]

Sub Test()
    For Each sh In ThisWorkbook.Sheets
        sh.Range("D" & sh.Range("D" & Rows.Count).End(xlUp).Row).NumberFormat = "#.###0"
    Next
End Sub

.

 

[hadromer]

Vaktinizi ayırdığınız için sizlere çok teşekkür ederim.
Ben benzer bir konu açmışm ancak yoğunluktan unuttum. Verdiğiniz kodlar da çok güzel çalıştı. Hepinize teşekkür ederim