Ondalık sayıları şarta bağlı olarak yuvarlama

[Bora K]

Merhabalar.

A2:G250 aralığındaki hücreler ondalık basamak sayısı 3 olarak biçinlendirilmiştir.
444 sayısı > 444,000 şeklinde gözükmektedir.

Belirttiğim aralıkta 100 >999 arasındaki sayıların (100-999 dahil)
444,00 gibi yani bir ondalığı eksik olsun istiyorum.
Belirttiğim aralık haricindeki diğer sayılar olduğu gibi kalacak.

Yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Bicim()
 
    Dim alan As Variant, c As Range
 
    On Error Resume Next
    Application.DisplayAlerts = False
    Set alan = Application.InputBox("Alan Secin", "Biçim Değiştirme", Type:=8)
 
    For Each c In alan
        If Len(Int(c)) = 3 Then
            c.NumberFormat = "#,##0.00"
        End If
    Next c
 
    Application.DisplayAlerts = True
 
End Sub

.

 

[Bora K]

İyi Geceler Ömer Bey.
Alakanız için teşekkür ederim.

Kod Inputbox tan değilde
İlgili sayfanın kod bölümünden çalışsa olurmu acaba?
Etkili olmasını isteğimiz alan (A2:G250) şeklinde
Bu şekilde olursa sonradan yazılacak rakamlarıda otomatik
olarak düzeltmiş olur hem.

 

[Necdet]

Merhaba,

Ömer bey pişirmiş, bizde sofraya koyalım.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [A2:G250]) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) = True Then
        If Len(Int(Target.Value)) = 3 Then Target.NumberFormat = "#,##0.00"
    End If
 
End Sub

 

[Bora K]

Sayın Ömer Bey
Sayın Necdet Bey

Ayrı ayrı teşekkür ediyorum.
Ellerinize sağlık.
İyi geceler.