Re: Dubbele waarden zoeken in 2 werkbladen en in 1 blad verwijderen
Ingrid Baplue
Ik veronderstel dat je die code gewoon kan aanvullen om de rij te
verwijderen na het kopiëren naar het andere blad.
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.
tk schreef in 8846A38E-B029-4A49...@microsoft.com
> Ik heb 2 lijsten in 2 werkbladen.(openstaande en betaalde facturen)
> blad 1 is de hoofdlijst met daarin gegevens van openstaande facturen.
> in blad 2 worden automatisch die facturen uit blad 1 geplaats zodra
> ik die factuur als betaald heb aangevinkt. (dit gebeurt dmv een
> macro).
> Nu wil ik graag dat als de factuur betaald is dat deze wordt
> verwijderd uit blad 1,ook dmv een macro.
> Elke factuur heeft een uniek factuurnummer en dat staat op elk blad
> in kolom A.
>
> Wie kan mij hier mee helpen?
>
> Alvast bedankt
tk
vert.zoeken opgehaald en dan dmv commandbutton als betaald gezet.
Private Sub CommandButton1_Click()
Unload Me
Dim factNummer As String
Dim betalingsKenmerk As String
Dim aanmaakDatum As Date
Dim klantNummer As String
Dim klantNaam As String
Dim bedragEXBTW As Currency
Dim curBTWH As Currency
Dim curBTWL As Currency
Dim curTotaal As Currency
Dim vervalDatum As Date
Dim voldaan As String
factNummer = Worksheets("Factuurbeheer").Range("b5").Value
betalingsKenmerk = Worksheets("Factuurbeheer").Range("d5").Value
aanmaakDatum = Worksheets("Factuurbeheer").Range("d7").Value
klantNummer = Worksheets("Factuurbeheer").Range("d8").Value
klantNaam = Worksheets("Factuurbeheer").Range("d9").Value
bedragEXBTW = Worksheets("Factuurbeheer").Range("d10").Value
curBTWH = Worksheets("Factuurbeheer").Range("d11").Value
curBTWL = Worksheets("Factuurbeheer").Range("d12").Value
curTotaal = Worksheets("Factuurbeheer").Range("d13").Value
vervalDatum = Worksheets("Factuurbeheer").Range("d14").Value
voldaan = Worksheets("Factuurbeheer").Range("d15").Value
Worksheets("Database_voldaan").Activate
Range("A1").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
With ActiveCell
.Value = factNummer
.Offset(0, 1).Value = betalingsKenmerk
.Offset(0, 2).Value = aanmaakDatum
.Offset(0, 3).Value = klantNummer
.Offset(0, 4).Value = klantNaam
.Offset(0, 5).Value = bedragEXBTW
.Offset(0, 6).Value = curBTWH
.Offset(0, 7).Value = curBTWL
.Offset(0, 8).Value = curTotaal
.Offset(0, 9).Value = vervalDatum
.Offset(0, 10).Value = voldaan
End With
"Ingrid Baplue" schreef:
Luc Heyndrickx
Hiermee kan je ook betaalde facturen, en niet betaalde facturen filteren.
Of gewoon met Auto-filter
Luc
"Ingrid Baplue" <ingrid_bap...@hotmail.com> schreef in bericht
news:%236Kx3%23RhE...@TK2MSFTNGP09.phx.gbl...
tk
checkbox in een apart formulier, wordt de waarde voldaan op "ja" gezet en
deze facturen komen dan in een aparte lijst te staan. Ik dien ze namenlijk te
splitsen zodat ik daarna via exporteren deze facturen in een
boekhoudprogramma kan inlezen.En dan heb ik de kernwaarden van deze facturen
nodig.
"Luc Heyndrickx" schreef:
tk
De lijsten met facturen maken onderdeel uit van een factuurmodel. Dit model
wordt als het af is gebruikt door mensen met weinig/geen verstand van excel.
Dus ik gebruik veel macro's om e.e.a. voor hen makkelijk te maken.
facturen worden gemaakt in een apart blad. Indien een factuur goed is en
wordt afgedrukt dan wordt deze in de database gezet.(factuur is nog niet
voldaan).
Als dat is gebeurt mag de gebruiker deze data niet meer wijzigen, behalve
dan dat de factuur betaald is. Dus ik kan wel via de standaard optie
formulier dit regelen maar dan kunnen gebruikers ook andere waarden
wijzigen.En dat mag dus niet. Vandaar dat ik heb gekozen voor een apart
formulier om alleen maar voldaan aan de factuur toe te voegen. Echter het
lukte me niet omdat in de zelfde lijst te doen, dus koos ik voor een andere
lijst. Maar dan moet ik de oorspronkelijke factuur uit niet voldaan
verwijderen.
Vandaar ook dat de optie draaitabellen niet de beste oplossing is.
Theo
"Luc Heyndrickx" schreef:
Luc Heyndrickx
Lang geleden, toen ik veel minder van Excel kende, heb ik het ook op die
manier gedaan.
Via een macro... Autofilter... alleen betaalde facturen selecteren, en die
kopieren naar een nieuw werkblad. Gaat uitstekend.
Kan je eventueel aanvullen met dezelfde macro... maar nu de niet betaalde
facturen, en dan heb je een mooie splitsing van de twee lijsten.
Dit kan je volgens mij voor een groot gedeelte opnemen met de macrorecorder.
Het is een start...
Bedenk dat hoe slechter de uiteindelijke gebruiker is, hoe beter de
programmeur moet zijn :(
Luc
"tk" <t...@discussions.microsoft.com> schreef in bericht
news:628AED34-4024-4C17...@microsoft.com...
> > > verwijderen na het kopiėren naar het andere blad.
tk
Ten eerste ben ik geen programmeur,:)
Maar ik maak leuke dingen in Excel, echter loop vast op VBA. Daarin ben ik
een echt groentje, en die macrorecorder is nou ook niet alles. Zoals ik al
zei worden de facturen via een apart werkblad gemaakt en bij accoord
opgeslagen in de lijst.hiervoor gebruik ik de code (van jouw website deels
gehaald) zoals ik heb neergezet in mijn antwoord naar Ingrid. De optie
formulieren en wizard sjablonen om zo data naar een database te schrijven, en
eventueel daarna via vert.zoeken op te roepen en te muteren wil ik niet
gebruiken,want dat is niet praktisch. je weet wel locatie database, opslaan
van alle invulfacturen dit geeft alleen maar ellende bij de gebruikers.
Vandaar dat ik ook zo blij was met jouw VBA code om snel en simpel data in
een lijst te zetten. Echter ik wil die lijst splitsen in onbetaald en
betaald. De gebruiker dient dus een factuur op te zoeken en daar vervolgens
via een checkbox betaald als "ja" in te vullen. Op moment dat de gebruiker
"ja" selecteerd wordt de macro gestart die de factuur in de lijst voldaan
zet. Er zit zelfs nog een userform (ja/nee)tussen die vraagt om een extra
bevestiging of de factuur daadwerkelijk betaald is. (kwestie van zekerheid om
foutjes alsnog te herstellen).
Indien via de code die ik heb gebruikt in de oorspronklijke lijst een veld
"ja" in de kolom voldaan kan worden toegevoegd dan hoef ik niet te splitsen,
dan kan ik wel draaitabellen gebruiken. echter ik weet niet hoe ik dat moet
doen. Indien jij dat wel weet dan zou je me erg helpen.
Groet;
Theo
"Luc Heyndrickx" schreef:
> > > > verwijderen na het kopiëren naar het andere blad.
Luc Heyndrickx
De gebruiker kan wél de facturen opzoeken om aan te duiden dat ze betaald
zijn.
De gebruiker krijgt dan nog een userform om in te vullen dat ze betaald
zijn.
Maar het lukt je niet om een bevestiging te zetten in een speciale kolom?
Om eerlijk te zijn: Ik zou er wel in slagen om hier een of andere
ingewikkelde constructie rond te bouwen...
Maar zelf zoek ik de betaalde facturen gewoon op in een lijst, en daar zet
ik dan de betalingsdatum.
Gewoon lijstje maken van alle facturen, en daar een autofilter op zetten.
Het zou me verbazen dat een onervaren gebruiker daar nog problemen mee
heeft.
Luc
"tk" <t...@discussions.microsoft.com> schreef in bericht
news:4D4045AF-A420-4E71...@microsoft.com...
tk
Sorry als ik het te omslachtig uitleg. D.m.v. die VBA code wordt de factuur
onderaan de lijst geplaatst (de eerst vrije regel).
De lijst beslaat kolom a t/m j. In k en l moeten naderhand voldaan en
betaaldatum komen.
Hoe kan ik dat doen dmv een macro?. Dit lukt mij niet. vandaar die splitsing
in 2 lijsten, en de noodzaak om dan de factuur die is voldaan uit de eertse
lijst te verwijderen.
Dus als jij weet hoe ik dmv een macro die 2 waarden kan toevoegen, hoef ik
niet meer te splitsen.
Hoop dat het nu duidelijk is.
Luc Heyndrickx
gemaakt is?
Ik ga nu even niet naar de code kijken die je op m'n website gehaald hebt,
maar ik vermoed dat de data worden ingevuld via Offset.
Je moet er dus nog iets aan toevoegen zoals:
If MsgBox ("Is die factuur betaald?", vbYesNo)= vbYes Then
.Offset(1, 10).Value = "Betaald"
Else
.Offset(1, 10).Value = "Niet Betaald"
End If
Let op welke getallen je tussen haakjes zet.
Om dit te begrijpen ga je even naar m'n website, en je leest daar: Navigeren
in VBA Excel
Sorry voor de halve, en korte antwoorden. Ik zit de laatste tijd met zeer
veel werk.
Luc
"tk" <t...@discussions.microsoft.com> schreef in bericht
news:EA0F151F-BE1B-487E...@microsoft.com...
Bart
Hoe worden de facturen toegevoegd. Worden facturen toegevoegd met een
userform of via Data --> formulier. Mij vraag hierop: "Hoe registreer jij
wanneer er meerdere dingen gefactureerd staan op 1 factuur." Via Data -->
formulier is het een kwestie van meerdere records met dezelfde factuurnummer,
maar hoe doe ik dit in VB.
"tk" schreef:
> Ik heb 2 lijsten in 2 werkbladen.(openstaande en betaalde facturen)
> blad 1 is de hoofdlijst met daarin gegevens van openstaande facturen.
> in blad 2 worden automatisch die facturen uit blad 1 geplaats zodra ik die
> factuur als betaald heb aangevinkt. (dit gebeurt dmv een macro).
> Nu wil ik graag dat als de factuur betaald is dat deze wordt verwijderd uit
> blad 1,ook dmv een macro.
> Elke factuur heeft een uniek factuurnummer en dat staat op elk blad in kolom
> A.
>
> Wie kan mij hier mee helpen?
>
> Alvast bedankt
> --
> Theo