| pmiroslav |
03.09.2018 16:29 |
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:
Promet_primjer.rar (Velicina datoteke:2.23 KB)
|
| Avko |
03.09.2018 18:34 |
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:
adiko_promet.rar (Velicina datoteke:15.85 KB)
|
| pmiroslav |
03.09.2018 19:55 |
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. |
| Avko |
03.09.2018 20:45 |
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 |
| pmiroslav |
03.09.2018 21:23 |
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";""))) |
| dex |
03.09.2018 23:45 |
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 |
| pmiroslav |
04.09.2018 08:37 |
Predmet:Re: Excel preslagivanje kolona
Hvala na pomoći |
| Avko |
04.09.2018 09:16 |
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
|
| pmiroslav |
04.09.2018 09:32 |
Predmet:Re: Excel preslagivanje kolona
To sam ja u međuvremenu sam napravio
Cells(redTemp, 5).Value = Format(text * 1, "Standard") * 1 |
| Avko |
04.09.2018 10:29 |
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 |
