Centar za edukaciju-BiH


Stranice (2):1,2

#1 03.09.2018 15:29
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Excel preslagivanje kolona
Imam internet bankarstvo u Addiko banci i oni nažalost nemeju mogučnost da se skine promet određenog računa u Excel formatu.
Mogu samo na kompu uradiri Print Screen i kopirati to u Excel.
I tu je problem Å¡to sve podatke dobijem u jednoj koloni.
Postoji li mogučnost da se pomoču VBA koda ili nekako drugačije podaci razdvoje u viÅ¡e kolona kao uprimjeru koji prilažem.
Znači posebno Transakcija; Račun; Iznos

Hvala unaprijed

Prilozi:
Informacije o tipu datoteke za:rar  Promet_primjer.rar
Preuzimanja:363
Velicina datoteke:2.23 KB


Pozdrav
↑  ↓

#2 03.09.2018 17:34
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: Excel preslagivanje kolona
pretpostavljam da se radi o selektu a ne o Print screen i onda klasicnom metodom copy (kopiraj) i u excel paste (zalijepi). Dali sam u pravu?

Kaze u uputama internet bankarstva:

Stanje računa/pregled prometa/pregled izvoda
Klikom na račun, otvaraju se njegovi detalji koji ujedno omogućavanju kreiranje naloga,
otvaranje eKnjižice i plaćanje iz predloÅ¡ka. Ukoliko birate plaćanje putem tih prečaca, odabrani
račun će biti postavljen kao račun terećenja ali ga možete promijeniti. Ispod prečaca su pregled
prometa i desno tab, PDF izvještaji.

Zanima me sta se dobije klikom na tipku PDF, u demo nema



Prilozi:
Informacije o tipu datoteke za:rar  adiko_promet.rar
Preuzimanja:335
Velicina datoteke:15.85 KB


zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 03.09.2018 18:06 od strane Avko. ↑  ↓

#3 03.09.2018 18:55
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Excel preslagivanje kolona
Ovo Å¡to si napravio je dobro, hvala

Prije Addiko banke bila je Hypo banka i onda sam moga skinuti promet u xls formatu gdje je sve bilo ljiepo pregledno, Kolona ulazi, kolona izlazi, Kod ovih sada pametnjakoviće pod Pdf izvjeÅ¡taj dobijeÅ¡ samo izvjeÅ¡taj za jednu određenu transakciju I nema toga filtera.
Žalio sam se i usmeno i pismeno banci ali nema koristi.
Pozdrav
↑  ↓

#4 03.09.2018 19:45
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: Excel preslagivanje kolona
Citiraj pmiroslav:
Ovo Å¡to si napravio je dobro, hvala

nema na cemu, napravljeno na brzinu. Moglo bi se doraditi

Citiraj pmiroslav:

Prije Addiko banke bila je Hypo banka i onda sam moga skinuti promet u xls formatu gdje je sve bilo ljiepo pregledno, Kolona ulazi, kolona izlazi, Kod ovih sada pametnjakoviće pod Pdf izvjeÅ¡taj dobijeÅ¡ samo izvjeÅ¡taj za jednu određenu transakciju I nema toga filtera.
Žalio sam se i usmeno i pismeno banci ali nema koristi.

mijenjaj banku, pa demokracija je. hehehe
zivot je moja domovina.
↑  ↓

#5 03.09.2018 20:23
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Excel preslagivanje kolona
Pa ako imaÅ¡ volje da doradiÅ¡. Ona treća kolona, iznos prikazana je kao tekst 51,20 HRK, Moželi se to automatski pretvoriti u broj, bez HRK.

Ja to ručno rjeÅ¡avam sa formulom:
=IF(D1="";"";VALUE(SUBSTITUTE(D1;" HRK";"")))
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 03.09.2018 20:31 od strane pmiroslav. ↑  ↓

#6 03.09.2018 22:45
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


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
↑  ↓

#7 04.09.2018 07:37
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Excel preslagivanje kolona
Hvala na pomoći
Pozdrav
↑  ↓

#8 04.09.2018 08:16
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


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.
↑  ↓

#9 04.09.2018 08:32
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Excel preslagivanje kolona
To sam ja u međuvremenu sam napravio

Cells(redTemp, 5).Value = Format(text * 1, "Standard") * 1
Pozdrav
↑  ↓

#10 04.09.2018 09:29
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: Excel preslagivanje kolona
steta sto nema datum svaka transakcija, mogli bismo staviti jos jednu tipku koja bi se zvala IZVOZ pa bi snimili u csv datoteku sve transakcije sa datumom i onda uvoz te datoteke u access aplikaciju mojBudet.

al dobro, vjerojatno ce ovi iz adiko banke poboljsati aplikaciju svremenom
zivot je moja domovina.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 2: 34 pm.