• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Factuur nummer wordt niet automatische aangepast

Status
Niet open voor verdere reacties.
D

davylenders123

Gebruiker
Lid geworden
20 jun 2010
Berichten
902
Ik heb op het net een goede excel gevonden om facturen te maken.
Ik wil deze een beetje aanpassen zodat deze voor ons goed werkt.

Ik heb er een tabblad offerte maken aan toegevoegd en Offerten.
In het tabblad offerte maken moet je in b4 een contact zoeken.
In rij 17 moet je de offerte gegevens invullen en op de button offerte verwerken in boekhouding klikken.
Dan wordt de offerte opgeslagen in het tabblad Offerten
Tot hier alles ok.

In het tabblad offerte maken staat er een button Offerte leegmaken.
Als je deze gebruikt dan wordt de offerte leeg gemaakt en in cel c12 wordt de datum opnieuw ingevuld en in c13 komt er een volgende offerte nummer.
Hier gaat het mis.
Er wordt geen nieuwe offerte nummer ingevuld , in het tabblad facturen maken werkt dit wel zoals het hoort.

Kan maar niet vinden waarom hij het hier niet doet , iemand enig idee wat ik over het hoofd zie ?


Ik heb de macro's die ik heb aangepast voor de tabbladen offerte maken en offerten in module 7 staan.
Al de beveiliging die op het bestand zit is zonder wachtwoord.



Bekijk bijlage Offerte en facturen 2018.xlsm
 
Laatst bewerkt:
Werkt hier prima zolang het factuurnummer gelijk is aan het hoogst gebruikte factuurnummer in Verkoop & Opbrengsten.
 
edmoor


Bij de tabbladen facturen maken en Verkoop & Opbrengsten werkt die zoals het zou moeten.

Maar dit zelfde zou ook in de tabbladen Offerte maken en Offerte moeten werken en dat doet het bij mij toch niet ze ?
 
Het te gebruiken factuurnummer wordt, zoals ik al opmerkte, bepaalt door het hoogst gebruikte nummer in Verkoop & Opbrengsten.
In het blad Offerte maken staat nu het nummer "v 2018 006".
Maak daar maar eens "v 2018 005" van en klik dan op "Offerte leegmaken".
 
edmoor

Daar gaat het dan fout.
Want hij zou moeten gaan kijken in het tabblad Offerten welk het hoogst gebruikte nummer is en niet in het tabblad Verkoop & Opbrengsten.
 
Heb het stukje code gevonden die dit regelt volgens mij.

Maar wat moet ik er juist in aanpassen zodat het op tabblad Offerten ook werkt ?

Dus bij facturen maken moet hij gaan kijken in Verkoop & Opbrengsten welk het hoogste gebruikte nummer is.
Bij offerte maken moet hij gaan kijken in Offerten welk het hoogste gebruikte nummer is.


Code: 
Function FindDuplicate(factnr) As Boolean
    
    With Worksheets("Verkoop & Opbrengsten").Range("D6:D206")
         Set C = .Find(factnr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
         If Not C Is Nothing Then
            FindDuplicate = True
            Exit Function
          End If
    End With
    
    FindDuplicate = False
End Function
 
Dat is simpel te bepalen door een extra parameter voor die functie te gebruiken:
Code: 
Function FindDuplicate([COLOR="#FF0000"]Bladnaam As String,[/COLOR] factnr As String) As Boolean
    With Worksheets(Bladnaam).Range("D6:D206")
         Set C = .Find(factnr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
         If Not C Is Nothing Then
            FindDuplicate = True
            Exit Function
          End If
    End With
    
    FindDuplicate = False
End Function

De aanroep wordt dan bijvoorbeeld:
Code: 
FindDuplicate("Offerten", factnr)

Of Verkoop & Opbrengsten in plaats van Offerten uiteraard.
 
Laatst bewerkt:
edmoor

Dat is hem, 1000 maal dank hiervoor en voor de snelle reactie , hier zat ik al een hele tijd op vast.

Top :thumb: Bedankt :thumb:
 
Hallo davylenders123

Kun je aangeven waar ik jouw excel bestand voor het maken van facturen kan vinden? Ik heb er zelf meerdere gevonden, maar nog niet uitgezocht welke goed werkt.
 
@lw87

Sorry tikfoutje inderdaad streepje vergeten.
Succes met het programma.

Met vrgrt,

Loek010
 
Hallo davylenders123

Dat is nog eens service!
Bedankt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan