Factuurprogramma aanpassingen

[arnose09]

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 :

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

 

[Demeter]

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

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!!

 

[Justes]

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.

 

[arnose09]

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

 

[jpvs]

Arnold,

Probeer bijlage eens?

Pierre

 

[arnose09]

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

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

Harstikke bedankt jpvs & demeter + justes

 

[jpvs]

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

 

[arnose09]

Heb nog een paar aanpassingen gedaan:

Alle knoppen werken nu ook ieder afzonderlijk.

Hartstikke bedankt. Zonder te vragen komen de oplossingen langs. Echt geweldig!!