Inlezen bestanden

[mat123]

Beste forumleden,

Ik heb een probleem met het inlezen van bestanden in ons financiële pakket. De macro haalt het bedrag uit een extern document. Het bedrag haalt hij uit kolom B. Van dit bedrag wordt op de volgende regel het btw bedrag weggezet. Hij rekent altijd met 0,21 %. Nu staat er in kolom E [ Cells(regel, 5) ] een aanduiding. Deze aanduiding is VH (verkoop btw hoog), VL (verkoop btw laag) of VG (geen btw). Ik krijg de formule niet aangepast zodat er eerst gekeken wordt naar welke aanduiding er staat en daarna gaat rekenen met het daarbij behorende btw-tarief. Wie heeft er voor mij een oplossing ?

ONDERDEEL VAN DE MACRO
For regel = 2 To AantalRijen
Workbooks(Inlees$).Activate
Workbooks(Inlees$).Worksheets(1).Select

If IsEmpty(Cells(regel, 1)) Then
Exit For
End If
Product$ = Cells(regel, 1).Value
Kostensoort$ = Cells(regel, 3).Value
Bedrag = Cells(regel, 2).Value
BtwBedrag = Round(Bedrag * 0.21, 2)

 

[ReneDirks]

Voortbordurend op jouw code - even in het midden latend of e.e.a. handig kan:

'...
Dim BTWWaarde as string
Dim BTWPCT as Double
'...

For regel = 2 To AantalRijen
    Workbooks(Inlees$).Activate
    Workbooks(Inlees$).Worksheets(1).Select

    If IsEmpty(Cells(regel, 1)) Then
        Exit For
    End If
    Product$ = Cells(regel, 1).Value
    Kostensoort$ = Cells(regel, 3).Value
    Bedrag = Cells(regel, 2).Value
    BTWWaarde = Cells(regel,4).Value
    select case BTWWaarde
        case "VH"
            BTWPCT = 0.21
        case "VL"
            BTWPCT= 0.06
        case "VG"
                BTWPCT= 0
    end select
    BtwBedrag = Round(Bedrag * BTWPCT, 2)

 

[mat123]

Bedankt voor de aangedragen oplossing. Deze werkt perfect. Kan je mij misschien ook vertellen hoe de hoge en de lage btw op twee verschillende nummers geboekt krijg. Alle btw wordt nu op [1501033] gezet.

Workbooks(Bestand$).Activate
Workbooks(Bestand$).Worksheets(1).Select

Cells(Boekregel, 1).Value = Product$
Cells(Boekregel, 2).Value = Kostensoort$
Cells(Boekregel, 4 + debcred).Value = Bedrag
Cells(Boekregel, 5).Value = Extref1$
Cells(Boekregel, 6).Value = Extref2$
Cells(Boekregel, 9).Value = "+"

Boekregel = Boekregel + 1
Totaalbedrag = Totaalbedrag + Bedrag

Cells(Boekregel, 1).Value = "1501033"
Cells(Boekregel, 2).Value = "B58"
Cells(Boekregel, 4 + debcred).Value = BTWBedrag
Cells(Boekregel, 5).Value = Extref1$
'Cells(Boekregel, 7).Value = "BTW"
Cells(Boekregel, 9).Value = "+"

' Cells(Boekregel, 6).Value = Extref2$

Boekregel = Boekregel + 1
TotaalBTW = TotaalBTW + BTWBedrag

 

[ReneDirks]

Daar zul je dan ook een select case of if/endif voor moeten gebruiken. Ik zie in jouw code hierboven zo niet waar het btw percentage of de btw code in staat, je zult dus zelf een beetje moeten knutselen met de code.
Voortgaand op mijn eerdere code:

    select case BTWWaarde
        case "VH"
            BTWPCT = 0.21
            GbkNr = "1501033"
        case "VL"
            BTWPCT= 0.06
            GbkNr = "1501034"
        case "VG"
            BTWPCT= 0
            'geen GbNr, 0% niet boeken
    end select
   Cells(Boekregel, 1).value = GbkNr

 

[mat123]

Bedankt voor de aangedragen oplossingen. De eerste werkt perfect de tweede ga ik inbouwen. Gaat wel lukken.