Bazı Hücrelerin Sayı Biçimini Farklılaştırma

[ANTALYA 01]

Merhabalar
Ekteki Çalışmada C D E F G H I Sütunlarındaki Sadece Hücre Biçimi Sayı Biçimi 0,00 olan Değerlerin 0 Olmasını Sağlayacak Bir Makroya İhtiyacım var.Tşk.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayınız.

Sub Format()
    Dim SonSat As Long
    Dim Hucre As Range
    SonSat = [C65536].End(3).Row
    
    For Each Hucre In Range("C2:I" & SonSat)
        If Hucre = 0 Then Hucre.NumberFormat = "#,##0"
    Next Hucre
End Sub

 

[ANTALYA 01]

C

Teşekkür ederim.