Onhandige procedure toewijzen grootboekposten.

[Peterjur]

Halo,Met onderstaande procedure worden banknummers van postnaam en postnummers voorzien,Zou dat anders kunnen?? Het bij houden van de nieuwe
banknummers en het verwijderen van ongebruikte is nog al een bedoening.
Ik vind de procedure nogal onhandig.Mijn vraag is kan dat ook anders?
Ik vind dat ik nogal wat vraag Maar ik waag het er maar op.met vriendelijke groet Peter.

Hier stond een Een fout bericht.Warmebakkertje Heeft mij al geholpen met de vraag ik geloof dat het een goede oplossing is.Ben daar zeer dankbaar
voor.Mvg Peter

 

[Mark xl]

1. Code blocks

2. Ik weet niet of dat echte bankrekeningnummers zijn? het lijkt er wel op. Zou je die niet heel gauw weghalen? mods?

3. Dit is echt een voorbeeld van een project waar slecht (niet?) over is nagedacht..
Je moet een zoektabel maken met drie kolommen: "nummer", "Grootboeknaam","Bankrekening" en dan kun je op allerlei manieren je data opzoeken, aanpassen en verwijderen

Groeten,
Mark.

 

[Warme bakkertje]

Maak en tabel met links bankrekeningnr en rechts grootboekpost.
Giet deze tabel in een array en laat elk nr uit kolom Q opzoeken in de array. Wordt het nr gevonden geef dan de overeenkomstige grootboekpost in kolom R weer.
Bijvoorbeeld.

Sub tst()
With Sheets("Rekeningnrs") 'blad met rekeningnrs
    vaList = .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
With Sheets("Blad1") 'blad met op te zoeken waarden
For i = 1 To .[Q65536].End(xlUp).Row
    For x = LBound(vaList) To UBound(vaList)
        If vaList(x, 1) = .Range("Q" & i).Value Then found = vaList(x, 2)
    Next
    If found = "" Then
        .Range("R" & i) = "Geenboeknr.,20"
    Else
        .Range("R" & i) = found
    End If
    found = ""
Next i
End With
End Sub

 

[Peterjur]

NN,Dat advies volg graag op maar weet niet ik kom niet binnen bij de vraag????

Natuurlijk dank ik de helpers voor de Hulp.

 

[Warme bakkertje]

??????????????????

 

[Peterjur]

Warme bakkertje,Ik bedoel het verwijderen van de banknummers.Dat was dom van mij
en het advies van Mark om die weg te halen lijkt mij zeer noodzakelijk.Maar ik kom er
niet bij.Weet U misschien Hoe???mvg Peter

 

[Warme bakkertje]

Ga gewoon naar je eerste bericht en klik onderin op bericht aanpassen.

 

[Peterjur]

Warm bakkertje, Ik had het reeds gevonden die mogelijkheid was er eerst niet.Nogmaals Dank voor Uw oplossing.Ik ga hem snel proberen. mvg Peter