Pankki on näköjään mennyt muuttamaan netissä olevaa lainan maksusuunnitelmatulostetta sen verran, etten osaa enää hyödyntää exceliä sen kanssa. Ongelma on siinä, että copy-pastella exceliin (tai tekstieditoriin) tietoja siirtäessä kukin tieto tulee yhteen sarakkeeseen omalle rivilleen tähän tyyliin:
15.1.2009
10
150
160
3000
15.2.2009
jne
Eli päiväys, kaksi tyhjää riviä, korko, kaksi tyhjää riviä, lyhennys, kaksi tyhjää riviä, kokonaissumma, kaksi tyhjää riviä, lainasaldo, yksi tyhjä rivi, jonka jälkeen alkaa seuraavan erän tiedot.
Miten saan siirrettyä kunkin maksuerän tiedot omalle rivilleen, kukin tieto yhteen sarakkeeseen? Käsityönä tuo on turhan hidasta, kun maksueriä on eri lainoissa yhteensä useita satoja.
15.1.2009
10
150
160
3000
15.2.2009
jne
Eli päiväys, kaksi tyhjää riviä, korko, kaksi tyhjää riviä, lyhennys, kaksi tyhjää riviä, kokonaissumma, kaksi tyhjää riviä, lainasaldo, yksi tyhjä rivi, jonka jälkeen alkaa seuraavan erän tiedot.
Miten saan siirrettyä kunkin maksuerän tiedot omalle rivilleen, kukin tieto yhteen sarakkeeseen? Käsityönä tuo on turhan hidasta, kun maksueriä on eri lainoissa yhteensä useita satoja.
Vastaukset 1
Vanhimmat
Sub Kopioi()
Dim tasta As Range
Set tasta = Range("A1")
Set tahan = Range("B1")
Application.ScreenUpdating = False
On Error GoTo loppu
Do
tasta.Resize(14, 1).SpecialCells(xlCellTypeConstants).Copy
tahan.PasteSpecial Transpose:=True
Set tasta = tasta.Offset(14)
Set tahan = tahan.Offset(1)
Loop
loppu: Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub