Ondalık Sayı Virgülden Sonra ,00 ise Göstermesin

[sbayyigit]

Merhaba Arkadaşlar Makro ile çalışıyorum. Çalıştığım sayfada yoğun olarak küçük ondalık sayılar, ama bazen de büyük tam sayılar var. Büyük tam sayı olduğu zaman ondalık kısmı da gelince belirlediğim alana sığmıyor.
İstediğim şey eğer sayı tam sayı ise ondalık kısmı göstermesin.
kodlarım şöyle
b = 9
For a = 3 To 29
If S1.Range("d" & a).Value > 0 Then
S1.Range("h" & b).Value = S1.Range("a" & a).Value
S1.Range("ı" & b).Value = S1.Range("d" & a).Value
S1.Range("j" & b).Value = S1.Range("e" & a).Value
S1.Range("k" & b).Value = S1.Range("F" & a).Value / S1.Range("ı" & b).Value
S1.Range("l" & b).Value = S1.Range("F" & a).Value
b = b + 1
End If
Next a
If b = 9 Then

Yardımcı olursanız sevinirim. Teşekkürler.

 

[pitchoute]

Merhaba, şu şekilde deneyip sonucu paylaşabilir misiniz;

b = 9
For a = 3 To 29
    If S1.Range("D" & a).Value > 0 Then
        S1.Range("H" & b).Value = S1.Range("A" & a).Value
        S1.Range("I" & b).Value = S1.Range("D" & a).Value
        S1.Range("J" & b).Value = S1.Range("E" & a).Value
        S1.Range("K" & b).Value = S1.Range("F" & a).Value / S1.Range("I" & b).Value
        S1.Range("L" & b).Value = S1.Range("F" & a).Value
        If S1.Range("I" & b).Value = Int(S1.Range("I" & b).Value) Then
            S1.Range("I" & b).NumberFormat = "0"
        Else
            S1.Range("I" & b).NumberFormat = "0.00"
        End If
        If S1.Range("K" & b).Value = Int(S1.Range("K" & b).Value) Then
            S1.Range("K" & b).NumberFormat = "0"
        Else
            S1.Range("K" & b).NumberFormat = "0.00"
        End If
        If S1.Range("L" & b).Value = Int(S1.Range("L" & b).Value) Then
            S1.Range("L" & b).NumberFormat = "0"
        Else
            S1.Range("L" & b).NumberFormat = "0.00"
        End If
        b = b + 1
    End If
Next a

 

[sbayyigit]

Çok teşekkürler. İşimi gördü
Allah razı olsun