Weergave ING afschriften aanpassen

[Eric_Daleboudt]

Hallo ik ben een groentje m.b.t. excel.
Heb hier gevonden hoe ik de csv bestanden moet importeren.
In 2003 lukt dat goed, je kunt ook aan het eind, de volgende importeren.
In 2007 lukt het niet in het zelfde blad, daar moet ik steeds een nieuw blad nemen, zeer hinderlijk.
Doch nu mijn vraag:
Wat ik zou willen toevoegen is:
If F1="Af" then waarde G1=-G1. (en dit dan zo verder voor elke rij)
Denk niet dat dit een goede formule is maar hoop dat degene die dit leest het wel begrijpt.
Als een post een afschrijving is, wil ik hem dus een negatieve waarde geven.
Als het een bijschrijving is hoeft er dus niets te gebeuren.
Zou heel leuk zijn als je dan ook kolom F zou kunnen verbergen.
Of kun je die na de actie ook verwijderen (denk zelf van niet).

Alvast bedankt.

Eric.

 

[Haije]

Eric,

je kunt een kolom (bv kolom H) toevoegen met daarin deze formule:

=als(F2="Af";-1*G2;G2)

Daarna zou ik kolom G verbergen

 

[robdgr]

Eric,

Ik download de csv-file van Ing, open die in Excel en laat er onderstaande code op los:

Sub splitsen_ing()

Application.ScreenUpdating = False
    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.Hidden = True
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.Hidden = True
    Columns("F:F").EntireColumn.AutoFit
    Columns("H:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("H1").FormulaR1C1 = "Bedrag"
    Range("H2").FormulaR1C1 = _
        "=IF(ISBLANK(RC[-2]),"""",IF(RC[-2]=""af"",RC[-1],-RC[-1]))"
    Range("H2").Select
    Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    Selection.AutoFill Destination:=Range("H2:H50"), Type:=xlFillDefault
    Range("H2:H50").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("I2").Select
    Columns("J:J").EntireColumn.AutoFit
    Columns("F:G").EntireColumn.Hidden = True
    Range("I1").Select
Application.ScreenUpdating = True
End Sub

Nu heb ik alle relevante kolommen met één vrije kolom, waar ik een categorie of kostenplaats in kan opnemen. Dat doe ik na deze gekopieerd te hebben en geplakt in een verzamel-jaarbestand in dat jaarbestand.

 

[Eric_Daleboudt]

Alvast bedankt voor deze kant en klare oplossing.

Hallo RobDgr,

Ik zei nogthans dat ik een groentje ben hè.

Het lijkt er op dat jij zegt:
Gewoon het CSV bestand openen in Excel (dus niet importeren met opgave scheidingsteken zodat het er normaal uit ziet)
Krijgt dan een rommelig beeld te zien, maar je laat de sub er op los en je krijgt nog een extra kolom om de oude budget codes op te nemen.

Helaas kent ING niet het downloaden van een heel jaar. Alleen per drie maanden zou werken.

Dan heb ik toch nog een paar vragen:

1. Hoe krijg ik de verschillende CSV bestanden in een blad.
   Gaat dat door een cel aan het eind te kiezen en dan weer te openen ?
   En weet jij waarom me dat niet lukt in 2007 (extern invoeren of zoiets blijft dan grijs)
2. Hoe laat ik in Excel zo'n sub uitvoeren

Sorry maar ik ben dus echt een beginneling.

Eric.

 

[Eric_Daleboudt]

Ik heb het nu op een CSV bestand kunnen uitvoeren.
Het lijkt er op dat ontvangen bedragen nu rood zijn.

Hij vroeg ook nog of ik niet lege velden wilde overschrijven.

Dus blijft alleen de vraag over hoe ik meerdere csv bestanden in een blad zet.

 

[robdgr]

Eric,

Ik voer deze actie ca één keer per maand uit op drie rekeningen, twee Ing en een Rabo. De ing-overzichten openen in een nieuw bestand, waarna ik de macro laat lopen. Vervolgens kopieer ik A2 tot de laatste cel rechts en kies gekopieerde cellen invoegen in A2 van het blad van de betreffende rekening. Uit die drie rekeningbladen wordt een overzicht per rekening per categorie-onderdeel en een overzicht per maand per categorie-onderdeel van de drie rekeningen gemaakt. Aan het eind van het jaar heb ik twee jaaroverzichten.

Die bedragen in rood is mijn keuze.

Ik denk dat dit het antwoord op je vraag is.

 

[Eric_Daleboudt]

In het verleden werkte ik met framework van Borland, daar kon ik kolommen optellen, dat kan in Excel ook denk ik.
Alleen moet dan bij de bedragen af een min teken komen te staan.
Is dat in de sub aan te passen ?

 

[Valentin]

Ing import

Neem hier eens een kijkje http://www.excelsjablonen.be/index.html