Predmet:Re: Excel preslagivanje kolona
mozda bi bilo dobro formatirat 5. kolonu kao broj jer kasnije mozda treba nesto izracunati:
PreuzmiIzvorni kôd (Text):Dim aktivniList As String
aktivniList = ActiveSheet.Name
Dim zadnjiRed As Long
zadnjiRed = traziZadnjiRed(aktivniList)
Dim red As Long
Dim redTemp As Long
Dim kuna As Double
redTemp = 1
Columns(5).NumberFormat = "0.00"
For red = 1 To zadnjiRed Step 3
Cells(redTemp, 3).Value = Cells(red, 1).Value
Cells(redTemp, 4).Value = Cells(red + 1, 1).Value
kuna = CDec(Application.WorksheetFunction.Substitute(Cells(red + 2, 1).Value, " HRK", ""))
Cells(redTemp, 5).Value = kuna
redTemp = redTemp + 1
Next red
zivot je moja domovina.