hulp vba excel: opmaak datum en als/if formule bedrag

[mstrik77]

Hoi forumleden,
Wie kan mij misschien helpen? Bijgaand een bestand met de case.
Mogelijk kan ik het met een macro opnemen en ik heb het al wel in excel wel gebouwd met formules, maar ik zou graag middels een vba code dit werkzaam willen krijgen.
Het format van de datum zou ik graag anders zien en de kolom met het bedrag is nu geheel positief, maar als er in kolom F "af" staat dient het bedrag in kolom G negatief getoond te worden
Het is onbekend hoeveel regels er iedere periode in staan. Tevens mag de volgorde van de kolommen niet veranderen en mogen er geen bijkomen, dus als het mogelijk is om de kolommen direct weer te overschrijven middels vba zou dat mooi zijn (maar ik weet niet of dat kan).

Verwachting:
kolom A presenteren als 23-09-2016
kolom G: Als kolom F = "af" dan kolom G als -/- presenteren
er mogen geen (liefst) geen extra kolommen worden gecreëerd, aantal kolommen blijven zoals nu is.

Alvast hartelijk dank voor degene die de moeite nemen om hiernaar te kijken.
Bekijk bijlage macro afschrift.xlsx

 

[edmoor]

Tik je die datums en bedragen zelf in of worden deze geïmporteerd?

 

[mstrik77]

de waarden worden geïmporteerd

 

[mstrik77]

of eigenlijk worden ze zo als csv aangeboden (om precies te zijn)

 

[edmoor]

Druk maar eens op de knop:
Bekijk bijlage macro afschrift.xlsm

Er zit geen foutcontrole in dus als je voor een 2e keer klikt gaat het fout.
Uiteraard kan dat er wel ingebouwd worden.

 

[VenA]

Iets minder onomkeerbaar om te testen.

Private Sub CommandButton1_Click()
With Cells(1).CurrentRegion
    ar = .Value
    For j = 1 To UBound(ar)
        If j > 1 Then
            ar(j, 1) = DateValue(Format(Val(ar(j, 1)), "0000-00-00"))
            ar(j, 7) = IIf(LCase(ar(j, 6)) = "af", ar(j, 7) * -1, ar(j, 7))
        End If
    Next j
    .Cells(.Rows.Count, 1).Offset(2).Resize(UBound(ar), UBound(ar, 2)) = ar
End With
End Sub

 

[mstrik77]

Hoi edmoor,
Het is geweldig! Heel erg bedankt. Ik ga ermee aan de slag. Groeten