Makro ile yuvarlama yapmak.

[serdarca]

Hayırlı günler diliyorum. Sorum şöyle B sütunundaki verilerin virgülden sonraki 2 hanesini aşağı veya yukarıya yuvarlayacak (=YUVARLA) C sütunundaki verileri Yukarıyuvarlayacak (=YUKARIYUVARLA) D sütunundaki verileride Aşağıyuvarlayacak (=AŞAĞIYUVARLA). Bunun için gerekli makro kodları nedir acaba yardımcı olursanız seviniri. Hayırlı ramazanlar dilerim.

 

[Ali]

Sn yurttas'ın bunun ilgili bir çalışması var linki inceleyin.

http://www.excel.web.tr/showthread.php?t=18220

 

[serdarca]

Yurttas hocanın yaptığı çalışmayı görmüştüm ben zaten. Bana makroda lazım. Yuvarlamalar.

 

[Levent Menteşoğlu]

Aşağıda doğru yuvarlamak için,

worksheetfunction.rounddown(hücre adı,yuvarlama sayısı)

Yukarı doğru yuvarlamak için,

worksheetfunction.roundup(hücre adı,yuvarlama sayısı)

 

[serdarca]

Levent hocam F5 sütunundan aşağı ya kadar olan tüm hücrelerin içeriğindeki son iki rakamı yukarı yuvarlamasını istiyorum. Hocam ben pek bilgim yoktur kusura bakmayın. Acaba kodları tam yazabilirmisiniz. Teşekkür ederim. Hayırlı günler

 

[Korhan Ayhan]

Selamlar,

Bir örnek verirmisiniz. F sütunundaki değerleriniz nasıl ve işlem sonucunda nasıl olacak.

 

[serdarca]

Ekte gönderdiğim örnek hücrelerin fonksiyonla yapılmış hali. Ben bunları makro ile yapmak istiyorum.

 

[Korhan Ayhan]

Selamlar,

Ekte dosyanız üzerinde gerekli düzenlemeyi yaptım incelermisiniz.

 

[baydeniro]

Çok teşekkürler sayın Levent Menteşoğlu.

 

[MANRI]

merhaba ekteki dosyaları açamadım.
virgülden sonraki iki rakam için 5 ten büyükleri yukarı diğerlerini aşağı yuvarlayacak makro kodu nedir acaba yardımcı olabilir misiniz.

 

[Huseyinkis]

Ekteki kodu denermisiniz.

Round("Yuvarlanacak Rakam", 5)

 

[Korhan Ayhan]

Merhaba,

Ben soruyu virgülden sonraki haneler için yuvarlama olarak algıladım.

Aşağıdaki kod A1 hücresindeki veriyi istenen formatta B1 hücresine aktarır.

Sub YUVARLA()
    Dim Veri
 
    Veri = (Range("A1") - Int(Range("A1"))) * 100
 
    Select Case Veri
        Case Is < 50
            Range("B1") = Int(Range("A1"))
        Case Is >= 50
            Range("B1") = Int(Range("A1")) + 1
    End Select
End Sub

 

[Binbasi1]

aynı hücrede yuvarlasın ama formülü bozmasın nasıl bir kod yazabiliriz

 

[YUSUF44]

aynı hücrede yuvarlasın ama formülü bozmasın nasıl bir kod yazabiliriz

En güzeli formülü YUVARLA formülüyle birlikte kullanmaktır:

=YUVARLA(formülünüz;2)

Ya da illa makroyla istiyorsanız (bence gereksiz) bu formülü makroyla oluşturursunuz.

 

[Binbasi1]

En güzeli formülü YUVARLA formülüyle birlikte kullanmaktır:

=YUVARLA(formülünüz;2)

Ya da illa makroyla istiyorsanız (bence gereksiz) bu formülü makroyla oluşturursunuz.

teşekkür ederim ama belli sütunlarda yuvarlamayı macro ile yapabilsem daha iyi bir kaçtane buldum biri formülümü siliyor yuvarlama yaparken

 

[sarigozoglu]

Merhabalar,
Yeni konu açmamak adına, eski bir konuyu hortlatmak zorunda kaldım.

b3.Range("E" & VKFSATIR) = M1.Cells(SATIR4, "K")

İşaretlemiş olduğum değeri 2 ondalıklı haneye yuvarlamak istiyorum.
b3.Range("E" & VKFSATIR) = Application.WorksheetFunction.RoundUp([M1.Cells(SATIR4, "K")], 2)

Şeklinde yaptım hata alıyorum destek olabilir misiniz ?

Fonksiyonlardaki "YUVARLA" işlevinin birebir karşılığı olmalı.

 

[halit3]

Merhabalar,
Yeni konu açmamak adına, eski bir konuyu hortlatmak zorunda kaldım.

b3.Range("E" & VKFSATIR) = M1.Cells(SATIR4, "K")

İşaretlemiş olduğum değeri 2 ondalıklı haneye yuvarlamak istiyorum.
b3.Range("E" & VKFSATIR) = Application.WorksheetFunction.RoundUp([M1.Cells(SATIR4, "K")], 2)

Şeklinde yaptım hata alıyorum destek olabilir misiniz ?

Fonksiyonlardaki "YUVARLA" işlevinin birebir karşılığı olmalı.

WorksheetFunction.Round(M1.Cells(SATIR4, "K"), 2) * 1