Predmet:Re: export u excel (redosled kao u reportu)

---

Prepravi ovaj dio koda.
Loop
If red>25 then
Red = Red + 4
else
red=39
endif
Set Celija = ExelO.Cells(Red, 2)
Temp = Forms![T_Pregled_DA_G]![Napomena]
Celija.Value = Temp
Set Celija = ExelO.Cells(1, 1)
Celija.Clear
Celija.Select
ExelO.Visible = True
Izlaz:
Exit Function
Greska:
End Function

---