Visual Basic'te Tam Sayıya Çevirme

[SER973]

Slm Arkadaşlar

Benim İsteğim A1:A100 hücrelerine Girmiş olduğum Ondalıklı rakamları Tam Sayıya Çevirmesi Bu İşlemi Sayı Biçimlerinden yapabiliyorum Fakat Visual Basic'te nasıl yapabilirim.

Yardımlarınıziçin Þimdiden TÞK... :hey:

 

[Levent Menteşoğlu]

Yuvarlama yapılmasını istiyormusunuz, yani 15,56 sayısı 15 mi olacak yoksa 16 mı?

 

[Recep İpek]

Merhaba,
Aşağıdaki kodları bir deneyebilirmisiniz?

Sub TamSayi()
Dim alan As Range
Range("A1").Select
For Each alan In Range("A1:A100")
alan.Value = Round(alan, 0)
Next
MsgBox "Bitti"
Range("A1").Select
End Sub

 

[emsey]

Merhabalar,

Konuyu tekrar gündeme getiriyorum ama ne kadar editlemeye çalışsamda beceremedim. Ben Yukarıda Recep üstadın verdiği kodları yuvarlama şeklinde değilde TAM SAYI'ya çevirme şeklinde kendime uyarladım. Sonuç olumlu fakat bir konuda desteğinize ihtiyacım var.

Aşağıdaki kodların içinde G1 hücresinden G100'e kadar değilde.
G1 hücresinden bakmaya başladığında (zaten arada hiç boş hücre yok. Hepsi sayı ile dolu) işlemi G1'den sonuncu dolu hücreye kadar bakıp TAM SAYI'ya çeviremez miyim. Yani G1:G100 arası istemiyorum.

Dim alan As Range
Range("G1").Select
For Each alan In Range("G1:G100")
alan.Value = Int(alan)
Next
Range("g1").Select

 

[Ömer]

Merhaba,

For Each alan In Range("G1:G100")

Yukarıdaki kod satırının yerine aşağıdaki kod satırını yazarak deneyin.

For Each alan In Range("G1:G" & Cells(Rows.Count, "G").End(xlUp).Row)

.

 

[emsey]

Hay Allah razı olsun Ömer üstad. Ne makbule geçti. Emeğinize sağlık.