If Podatak <> PodatakPrije Then If Format$(Trim(Podatak)) <> "" Then Kolona = Kolona + 2 KolS(Kolona) = Podatak ExcelSheet.Application.Cells(Red - 1, Kolona).Value = Podatak PodatakPrije = Podatak Podatak = "Kut" ExcelSheet.Application.Cells(Red, Kolona).Value = Podatak Podatak = "Pod" ExcelSheet.Application.Cells(Red, Kolona + 1).Value = Podatak End If End If