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

Factuurprogramma aanpassingen

Status
Niet open voor verdere reacties.

arnose09

Gebruiker
Lid geworden
28 aug 2006
Berichten
141
Goedemiddag,

Op dit forum heb ik een factuurprogramma ontdekt en heb ik naar eigen inzicht verder ingericht met mijn beperkte kennis.

Nu zijn er wat problemen ontstaan (vanwege mijn beperkte kennis :o :

Bij het indrukken van de macrobutton "Alles" gebeurd het volgende:
Tabblad Factuur
de velden D13 t/m D16 worden gewist, net als E27 t/m E39

Tabblad Ondernemers
Hier wordt alleen het veld E12 ingevuld. De overige gegevens blijven leeg

Het tablad Specificatie en Debiteuren_Specificatie heb ik er extra bijgemaakt en moeten hetzelfde werken als de tabbladen factuur en Debiteuren.

Wie kan mij helpen? Ik heb het bestand bijgevoegd.

Alvast bedankt en een vriendelijke groet,
Arnold
 

Bijlagen

Ik weet niet hoever je kennis van VBA gaat maar probeer deze eens te plakken in een module mbv je Visual Basic Editor:
Code:
Sub CopyToDebiteuren_Specificatie()

    Application.ScreenUpdating = False
    
    With Sheets("Debiteuren_Specificatie").Range("B65536").End(xlUp)
        .Offset(1, 0).Value = Sheets("Factuur").Range("N14").Value
        .Offset(1, 1).Value = Sheets("Factuur").Range("N13").Value
        .Offset(1, 2).Value = Sheets("Factuur").Range("N16").Value
        .Offset(1, 3).Value = Sheets("Factuur").Range("D13").Value
        .Offset(1, 4).Value = Sheets("Factuur").Range("N41").Value
    End With
    
    Sheets("Specificatie").Range("D13").Select
    
    MsgBox "Gegevens gekopieerd!"
    
    Application.ScreenUpdating = True
    
End Sub

Zet een knop op je blad Specificaties of in je toolbar en koppel daar deze macro aan.

Succes!!
 
Hallo Arnold,

Leuk die extra werkbalk alleen kunnen wij daar niets mee, stuur het bestand maar eens als bijlage naar je zelf, dan zul je zien dat ze niet meer werken.

Gr Justes

Of toch wel.
 
Laatst bewerkt:
Ik weet niet hoever je kennis van VBA gaat maar probeer deze eens te plakken in een module mbv je Visual Basic Editor:

Van Visual basic weet ik ongeveer hoe het werkt. Maar zelf uitgebreide code schrijven is aan mij nog niet besteed. Ik hoop dan ook met de hulp van dit forum tot een goed eindresultaat te kunnen komen aangezien ik al een heel eind ben gekomen (denk ik)

Je code werkt niet goed:
Sheets("Specificatie").Range("D13").Select

Deze heb ik veranderd in ("factuur") en dat werkt beter maar... Nog steeds niet goed.

Nadat ik op de knop "Alles" indruk, blijven de gegevens in het factuur staan. ipv dat je direct met een schone lei een nieuw factuur kan gaan maken.

Hallo Arnold,

Leuk die extra werkbalk alleen kunnen wij daar niets mee, stuur het bestand maar eens als bijlage naar je zelf, dan zul je zien dat ze niet meer werken.

Gr Justes

Of toch wel.

Justes,

Vreemd want op een andere PC werkt het bij mij wel. Ik zal wel iets fout doen. Mocht je het uit willen proberen kan je zelf even een knop maken en de macro eraan hangen.

Groet,
Arnold
 
Opgelost!!!

Arnold,

Probeer bijlage eens?

Pierre

Geprobeerd en echt fantastisch. Dit is wat ik nodig heb!!!! :thumb:

Ik ga nu zelf proberen de korting te laten berekenen d.m.v. een listbox. Uiteraard met behulp van dit forum :D

En mocht dat niet lukken zal ik weer een nieuwe post plaatsen!

Harstikke bedankt jpvs & demeter + justes
 
Heb nog een paar aanpassingen gedaan:

In verband met als je Ondernemers toevoegd komen die er automatisch bij op tabblad Specificatie in cel D12.

Zie Invoegen - Naam - Definieren
klik op "Bedrijfsnaam" hier zie je de formule :
=VERSCHUIVING(Ondernemers!$B$1;1;0;AANTAL.ALS(Ondernemers!$D:$D;"<>")-1;1)

Hetzelfde gedaan met Artikelnr gebied D25 tot D37.
Zie Invoegen - Naam - Definieren
klik op "artikel" hier zie je de formule :
=VERSCHUIVING(Artikelen!$A$1;1;0;AANTAL.ALS(Artikelen!$A:$A;"<>")-1;1)

Alle knoppen werken nu ook ieder afzonderlijk.



Pierre
 

Bijlagen

Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan