Prikazi cijelu temu 04.09.2018 08:16
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Excel preslagivanje kolona
mozda bi bilo dobro formatirat 5. kolonu kao broj jer kasnije mozda treba nesto izracunati:

PreuzmiIzvorni kôd (Text):
  1. Dim aktivniList As String
  2.     aktivniList = ActiveSheet.Name
  3.     Dim zadnjiRed As Long
  4.    
  5.     zadnjiRed = traziZadnjiRed(aktivniList)
  6.     Dim red As Long
  7.     Dim redTemp As Long
  8.     Dim kuna As Double
  9.    
  10.     redTemp = 1
  11.     Columns(5).NumberFormat = "0.00"
  12.     For red = 1 To zadnjiRed Step 3
  13.         Cells(redTemp, 3).Value = Cells(red, 1).Value
  14.         Cells(redTemp, 4).Value = Cells(red + 1, 1).Value
  15.        
  16.         kuna = CDec(Application.WorksheetFunction.Substitute(Cells(red + 2, 1).Value, " HRK", ""))
  17.         Cells(redTemp, 5).Value = kuna
  18.         redTemp = redTemp + 1
  19.     Next red

zivot je moja domovina.