• 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.

Map maken na aanmaak klant

  • Onderwerp starter Onderwerp starter DAR12
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
Bij deze nog een vraag.
Er is in blad "klantenbestand" een Link gemaakt naar de klantmap.
Nu wil ik de gegevens overhalen van tabblad "klantenbestand" naar tabblad offerte.
Daarna heb ik een knop gemaakt "boek offerte" deze offerte wil ik in de map van de klant opslaan.
Dus wil ik de link in tabblad "Klantenbestand" meenemen naar tabblad "Offerte"
Nu heb ik dat als volgd gedaan:

Worksheets("Offerte").Range("Link").Cells = Worksheets("Klantenbestand").Cells(positieVanDeCursor, 2)

Er komt netjes het pad te staan maar deze iz zo dood als een pier om maar zo te zeggen.
Hoe kan je daar een echte link van maken?
Wat doe ik mis?

Ik hoor graag van jullie.
 
Code:
ActiveSheet.Hyperlinks.Add Worksheets("Offerte").Range("Link").Cells, Worksheets("Klantenbestand").Cells(positieVanDeCursor, 2)
 
Hartelijk dank voor het stukje code. Het werkt.

Nu heb ik nog een vraag.
Wij slaan alle offertes op als Excel en PDF.
Dat doen we in de klantmappen.
Nu is het zo dat als wij een opdracht af hebben, wij vanuit de offerte een factuur willen maken.
Dus elke keer vanuit een apparte excel offerte (dus losse bestanden)
Deze bestanden worden gegenereerd vanuit 1 basis offerte.

Nu is de vraag:
Bij heb maken van een factuur moet er dus een opvolgend factuurnummer komen op het factuur.
Maar doordat we elke keer vanuit een ander bestand factureren, moet er vanuit in een "factuurregistratie.xlsx" bestand een nieuw factuurnummer gehaald worden.
Vervolgens wil ik de gegevens uit het nieuwe factuur terugzetten naar de "factuurregistratie.xlsx".

Hoe doe je dat?

In de bijlage het "factuurregistratie.xlsx" zoals ik hem voor ogen heb.

Al de facturen mogen opgeslagen worden in w:facturen/

Factuurnummer moet in elk los bestand komen te staan in cel E14
Klantnaam komt uit Cel B17
Excl. btw komt iut Cel E36
Btw komt uit Cel E37
Incl. Btw komt uit Cel E38

Hoor graag of hier een oplossing voor is....

Alvast bedankt!
 
In een .xlsx zal vast geen code staan die laat zien wat je zoal toegepast en zelf geprobeerd hebt.
 
.xlsb mag ook. Als de code en de probeersels er maar instaan.
 
Ok.

Heb alleen geen code kunnen vinden die dit oplost.
Is er iemand die mij daar mee kan helpen?
 
Heb je het bestand in #22 wel bekeken? Of je nu een nieuwe klant of een nieuwe factuur aanmaakt met een uniek volgnummer maakt qua techniek niets uit. Daarnaast is een nagenoeg leeg bestand geen voorbeeldbestand.
 
Hoi VenA

Snap wat je bedoeld.
Alleen start ik bij heb aanmaken van de klant vanuit hetzelfde bestand.
Daarnaast vul je daar de gegevens in in een soort formulier.
Ik heb nau alleen een knop nodig met "verwerk factuur"

In de bijlage het factuur die ik wil gebruiken.
De wittevelden moeten afgedruktwordne uiteindelijk als pdf.

Misschien is het zo duidelijker.
 

Bijlagen

Dus de helpers mogen een facturatieprogramma voor je gaan maken. Lijk mij niet het doel van helpmij.nl. Zelf ben ik geen voorstander van factureren vanuit Excel maar er zijn voldoende voorbeelden o.a. op dit forum te vinden waar het wel mee kan. Dus gebruik de zoekfunctie ipv het wiel door de helpers opnieuw te laten uitvinden.

Nb. een .xlsm.xlsx is nog steeds een bestand zonder macro's.
 
Beste,

Ben er zelf uitgekomen.
Het enige waar ik nog mee zit is het volgende.
Elke keer maak ik een nieuw factuur vanuit en al eerder opgelagen offerte.
Dit is dus vanuit elke keer een ander bestand met ook een andere naam.
Uit dit bestand vandaan ga ik naar de factuur registratie om daar het factuurnummer uit weg te halen.
Maar hoe kan ik nu weer terug naar het al geopende offertebestand om daar het factuurnummer in te plakken?
Heb het nu voor elkaar om het vanuit een vast bestand een factuurnummer op te halen en deze weer te plakken in het bestand waaruit ik begon.
Maar hoe doe je dat vanuit een steedt ander bestand.

Ik hoop dat de vraag duidelijk is.
 
Een factuurnummer plakken in een offertebestand. ?
Ik kan er in ieder geval geen touw aan vastknopen.
En waar is een duidelijk voorbeeldbestand. Niet zo iets als in #33, daar heeft nml. niemand iets aan.
Laat gewoon eens zien hoe ver je bent en er zal zeker iemand willen helpen.
 
Ga het nog een keer proberen.
We maken als eerste een offerte.
Hiervan slaan we het volgende op:
- 1 PDF ( die ook naar de klant gaat)
- 1 excelbestand zodat we daar zelf later mee verder kunnen gaan.
Deze beide bestanden komen in de klantmap te staan.
bv C: klantmappen\klant X te Y\
Als de order doorgaat wil ik hem uiteindelijk factureren.
Dat willen we dus doen vanuit de offerte vandaan (excelbestand)
Zie bijlage.
Wijzig cel B2 en het is bijna een factuur.
Wat dan nog moet gebeuren is het volgende.
Het offertenummer moet verwijdert worden.
Er moet een nieuw factuurnummer opgehaald worden.
Verder moeten de klantgegevens en de bedragen naar het factuurregistratiebestand overgeschreven worden.
Als dat voor elkaar is kan het bestand worden opgeslagen als "factuurnummer" in de map \facturen\verkoopfacturen.
Dat is allemaal voor elkaar op 1 ding na.
Dat is gelijk ook het probleem wat ik bedoel.

Omdat is steeds vanuit een ander bestand met dus een andere bestandsnaam werk kan ik niet hard zeggen: "Windows("Offerte123.xlsm").Activate.

Ik heb het vermoeden (maar ben een leek op dit gebied) dat als eerste het bestand en padnaam opgevraagd moet worden.
Aan de hand daarvan kan een één of andere variabele in het Vba code gaan verwijzen.
Zodat ik toch altijd naar het juiste bestand terug kan verwijzen om het factuurnummer te kopieeren.

'openen factuurregistratie
Workbooks.Open Filename:= _
"C:\Facturen\factuurregistratie.xlsm"
Windows("factuurregistratie.xlsm").Activate

'opzoeken van eerste lege regel in factuurregistratie
With Sheets(1)
ar = .Cells(5, 1).CurrentRegion
lastRow = 5 + UBound(ar) '(lastRow is de eerste rege regel)
.Cells(lastRow, 1) = .Cells(lastRow - 1, 1).Value + 1

'Nieuw factuurnummer kopieren naar factuur
.Cells(lastRow, 1).Select 'selecteer het factuurnummer
Selection.Copy
Windows("Offerte.......xlsm").Activate
Range("E13").Select 'selecteer Cel E13 = factuurnummer
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'KLANTNAAM OVERHALEN VAN FACTUUR NAAR FACTUURREGISTRATIE
Windows("Offerte........ .xlsm").Activate 'ga naar offerte
Range("B17").Select 'selecteer de klantnaam
Application.CutCopyMode = False
Selection.Copy
Windows("factuurregistratie.xlsm").Activate
.Cells(lastRow, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Om deze rode tekst gaat het dus.
Die moet altijd naar de juiste offerte verwijzen.
Voor de duidelijkheid is dat de offerte waaruit de actie ook ontstaat.
Om een factuur te maken ga je dus eerst naar de offerte van de klant.
Daaruit druk je op de knop "verwerk Factuur"

Hoop dat het zo wel duidelijk is wat ik bedoel.
 

Bijlagen

Plaats code svp tussen codetags. Het bestand is nog steeds een .xlsx. Als je niet weet hoe je een bestand met macro's moet opslaan dan moet je elke keer de code weer opnieuw typen.
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan