1'ın altında olan değerleri yukarı yuvarlama

[iaslan517]

Merhabalar,

Öncelikle cümleten iyi bayramlar. Bir sütunda alt alta ondalıklı sayılar var ve sadece 1 in altındaki değerleri 1 e yuvarlayıp diğer değerleri değiştirmeyecek şekilde bir çalışma yapılabilir mi?

 

[Ömer BARAN]

Merhaba.

Verileriniz A2'den itibaren aşağı doğru listelenmiş ise;
-- Formül ile çözüm istiyorsanız, B2 hücresine =(A2<1)+(A2>=1)*A2 formülünü uygulayın ve liste boyunca kopyalayın.
-- Makro ile çözüm istiyorsanız aşağıdaki kod'u kullanabilirsiniz.
.

[B]Sub YUVARLA()[/B]
For brn = [B][COLOR="red"]2[/COLOR][/B] To Cells(Rows.Count, "[B][COLOR="Red"]A[/COLOR][/B]").End(xlUp).Row
    If Cells(brn, "[B][COLOR="red"]A[/COLOR][/B]") < 1 Then Cells(brn, "[B][COLOR="Red"]A[/COLOR][/B]") = 1
Next
[B]End Sub[/B]

 

[iaslan517]

teşekkür ederim ömer hocam

 

[Ömer BARAN]

teşekkür ederim ömer hocam

Estağfurullah, kolay gelsin.
.