Predmet:Re: Excel preslagivanje kolona

---

For red = 1 To zadnjiRed Step 3
Cells(redTemp, 3).Value = Cells(red, 1).Value
Cells(redTemp, 4).Value = Cells(red + 1, 1).Value

Dim text As String
text = Application.WorksheetFunction.Substitute(Cells(red + 2, 1).Value, " HRK", "")
Cells(redTemp, 5).Value = text
redTemp = redTemp + 1
Next red