kolommen naar valuta

[boogje]

HOI,

ik heb een voorbeeld gemaakt van de gegevens die ik ontvang via een txt bestand en met behulp van extrenegegevens ophaal in een excelfile zet. (alle kolommen worden gezien als tekst)

voor bijgaand bestand geld dat ik kolom c,e,n,o,p en q van tabblad basis via een macro kopieer naar het tabblad selectie. dit lukt.

mijn probleem is met kolom n en o ik krijg deze niet op gezet naar getal 0,00 dit is nodig omdat in kolom rRmoet komen te staan of het om een Debet of Credit bedrag gaat. ( dit doe ik met de formule =als(n2<0;"C";"D").

als ik de macro opmaak lijkt alles goed te gaan maar als ik daarna het tabblad leeg maak en nogmaals de macro uitvoer verschijnen er in kolom R allen maar D.

wat doe ik verkeerd of zie ik over het hoofd graag hulp

vervangen van de . naar de komma heb ik als gedaan ook de kolom aanpassen naar getal maar helaas. heb nu 2 macro,s

Sub kolomnaarvaluta()
'
' kolomnaarvaluta Macro
'
' Sneltoets: CTRL+SHIFT+T
'
Columns("Q:Q").Select
Selection.NumberFormat = "0,00"
Selection.TextToColumns Destination:=Range("Q1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("R:R").Select
Selection.NumberFormat = "0,00"
Range("Q2").Select
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Sub ophalen()
'
' ophalen Macro
'
' Sneltoets: CTRL+r
'
Range("A1").Select
Sheets("bron").Select
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("C:C").Select
Selection.Copy
Sheets("aangepast").Select
ActiveSheet.Paste
Sheets("bron").Select
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("aangepast").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("bron").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Columns("N:N").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("aangepast").Select
Range("C1").Select
ActiveSheet.Paste
Sheets("bron").Select
ActiveWindow.ScrollColumn = 7
Columns("Q:Q").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("aangepast").Select
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1").Select
Sheets("bron").Select
Columns("R:R").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("aangepast").Select
Columns("E:E").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "D/C"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]<0,""C"",""D"")"
Columns("F:F").Select
Selection.NumberFormat = "General"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F13427")
Range("F2:F13427").Select
Columns("D").Select
Selection.NumberFormat = "#,##0.00"
Columns("E:E").Select
Selection.NumberFormat = "#,##0.00"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]<0,""C"",""D"")"
Columns("F:F").Select
Selection.NumberFormat = "@"
Columns("F:F").Select
Selection.NumberFormat = "General"
End Sub

deze macor komt uit de orignele file en het kan dus ziijn dat de kolom letter niet helemaal kloppen wegen gevoelige gevens zijn deze verwijderd uit het voorbeeld

al vast bedank bea

 

[Hoornvan]

boogje,

Ik denk dat dit komt door dat er een punt staat inplaats van een komma.
Dit kun je met zoeken en vervangen oplossen.

Edit;
De cellen zijn ook opgemaakt als tekst

 

[danny147]

Beste boogje

Probeer zoveel mogelijk select te vermijden !!!

Vb.

Columns("Q:Q").Select
Selection.NumberFormat = "0,00"

Kan dus korter:

Columns("Q:Q").NumberFormat = "0[COLOR="Red"][B].[/B][/COLOR]00"

Hier een punt ipv een komma anders krijg je 001 ipv 1,00

Groetjes Danny. :thumb:

 

[snb]

of
Columns(17).numberformat.....