Eğer sıfırsa xml'ye aktarma -- Makro kodu lazım. [ÇÖZÜLDÜ]

[TanerSaydam]

Merhaba arkadaşlar.
Aşağıdaki gibi bir makrom var ve bunda değer sıfır olunca xml'ye onu aktarmasın istiyorum. yardımcı olabilir misiniz?

say = x.Cells(23, Columns.Count).End(xlToLeft).Column
For i = 2 To say
Out.WriteLine (" <matrahBildirimi>")
Out.WriteLine (" <turKodu>" & Format(x.Cells(23, i), "000") & "</turKodu>")
Out.WriteLine (" <gayrisafiTutar>" & Replace(Format(x.Cells(24, i), "#0.00"), ",", ".") & "</gayrisafiTutar>")
Out.WriteLine (" <kesintiTutari>" & Replace(Format(x.Cells(25, i), "#0.00"), ",", ".") & "</kesintiTutari>")
Out.WriteLine (" </matrahBildirimi>")
Next i

EDİT: Aşağıdaki kod ile sorunu aştım. İhtiyacı olana bilgi olsun diye not bırakıyorum.

say = x.Cells(23, Columns.Count).End(xlToLeft).Column
For i = 2 To say

IF NOT x.Cells(24, i) = 0 Then

Out.WriteLine (" <matrahBildirimi>")
Out.WriteLine (" <turKodu>" & Format(x.Cells(23, i), "000") & "</turKodu>")
Out.WriteLine (" <gayrisafiTutar>" & Replace(Format(x.Cells(24, i), "#0.00"), ",", ".") & "</gayrisafiTutar>")
Out.WriteLine (" <kesintiTutari>" & Replace(Format(x.Cells(25, i), "#0.00"), ",", ".") & "</kesintiTutari>")
Out.WriteLine (" </matrahBildirimi>")

End If
Next i

 

[askm]

say = x.Cells(23, Columns.Count).End(xlToLeft).Column
For i = 2 To say
Out.WriteLine (" <matrahBildirimi>")
if x.Cells(23, i)>0 then Out.WriteLine (" <turKodu>" & Format(x.Cells(23, i), "000") & "</turKodu>")
if x.Cells(24, i)>0 then Out.WriteLine (" <gayrisafiTutar>" & Replace(Format(x.Cells(24, i), "#0.00"), ",", ".") & "</gayrisafiTutar>")
if x.Cells(25, i) >0 then Out.WriteLine (" <kesintiTutari>" & Replace(Format(x.Cells(25, i), "#0.00"), ",", ".") & "</kesintiTutari>")
Out.WriteLine (" </matrahBildirimi>")
Next i

 

[TanerSaydam]

Teşekkürler ama o işe yaramadı. Başka bir kod ile sorunu aştım ve konunun başına bıraktım.