Aantal afdrukken in een macro opnemen

[erka]

Goedemorgen,

Ik heb een tweetal vragen mbt bijgevoegd Excel bestand.

1. kan ik een getal wat in een bepaalde cel staat in een macro gebruiken voor het aantal afdrukken wat ik graag uit de printer wil hebben?
2. kan ik een stuk van een macro overslaan als in een bepaalde cel de waarde 0 is?

Ik heb een blad INFO waar dagelijks nieuwe gegevens komen te staan, deze gegevens komen in het blad AFDRUK waar ik met 1 druk op de knop van de verschillende artikelen een X aantal kaarten afdrukken. het aantal afdrukken staan in het bijgevoegde bestand in het blad AFDRUK in cel A3. als het getal in cel A3=0 dan wil ik naar het volgende artikel gaan.

Ik hoop dat de bijlage een en ander verduidelijkt.

 

[zapatr]

Wat in A1 en A3 in het blad Afdruk staat heb je niet nodig om te bereiken wat je wil.
Wil je die cellen beslist gebruiken?

 

[erka]

Wat in A1 en A3 staat is inderdaad een tussenstap, hij kan worden overgeslagen maar het liefst houd ik deze er in.
(mijn kennis van Macro's is niet super, dit houdt voor mij de macro overzichtelijker en later makkelijker aan te passen)

Ik gebruik deze gegevens in een ander veel groter bestand, maar het principe werkt zoals in het bijgevoegde bestand.

 

[wieter]

De specialisten gaan me uitlachen, maar zo werkt het wel.

Bekijk bijlage 193001

 

[zapatr]

Ik denk niet dat de specialisten je zullen uitlachen wieter, elke serieuze bijdrage dient te worden gewaardeerd (Ik ben overigens geen specialist). Hieronder een macro waarin rekening wordt gehoudenn met het antal afdrukken per artikel en geen extra cel wordt gebruikt. In plaats van te kijken tot wanneer in het eerste blad in kolom A een lege cel voorkomt, kun je uiteraard ook de laatste cel bepalen in kolom A waarin nog wel wat staat en de macro tot die cel laten lopen. Maar waarschijnlijk zal in kolom A tot het laatste artikel geen lege cel voorkomen.
erka, je moet geen plusteken plaatsen vóór vert.zoeken en in A1 en A3 van blad2 moet geen formule meer komen.

Sub macro1()
Dim r As Integer
r = 2
Do Until Sheets("Info").Range("A" & r).Value = ""
With Sheets("Afdruk")
.Range("A1").Value = Sheets("Info").Range("A" & r).Value
.Range("A3").Value = Sheets("Info").Range("D" & r).Value
If .Range("A3").Value > 0 Then
.PrintOut Copies:=.Range("A3").Value
End If
End With
r = r + 1
Loop
End Sub

 

[erka]

Goedemiddag Wieter en Zapatr !

Allebeide heel erg bedankt voor het meedenken! Ik ben met de oplossing van Wieter aan het testen, deze werkt goed, echter wordt hierbij iedere afdruk apart verzonden naar de printer, als ergens 100 afdrukken van moeten komen worden dit 100 printopdrachten. In de variant van Zapatr wordt in dit geval 1 printopdracht gegeven voor 100 afdrukken. Is het beste uit deze 2 macro's te combineren?

ik dacht zelf dat hij er met wat knip- en plakwerk zo uit kwam te zien, maar dit loopt ergens vast:

Sub AFDRUKKEN()
teller = 1
Start:
If .Range("A3").Value > 0 Then
.PrintOut Copies:=.Range("A3").Value
End If
Range("A1") = Range("A1") + 1
teller = teller + 1
If teller <= [A5].Value Then GoTo Start Else: [A1].Value = 1: Exit Sub
End Sub

alvast bedankt!

 

[zapatr]

erka,
Wat is er mis met mijn macro?
Die doet toch precies wat je wil?

 

[zapatr]

erka,
de door jou geplaatste macro kan niet werken met die punten voor bepaalde regels.
Ik denk dat je de betekenid daarvan niet begrijpt.

 

[erka]

Zapatr, dat klopt! is helemaal niks mis mee!

In het bestand waar ik het uiteindelijk gebruik worden de aantallen af te drukken kaarten per klant dmv horizontaal zoeken in het blad AFDRUK in cel A3 geplaatst, het is hier dus niet zo het aantal altijd in kolom D staat. Voor klant A staan ze in kolom D , voor klant B staan ze in kolom E enzovoorts.

Omdat het bestand waar ik de macro in gebruik erg groot is en gevoelige informatie bevat heb ik hiervoor een ander bestandje gemaakt. Excuses voor mijn onduidelijkheid!

Het klopt inderdaad dat ik de betekenis van de punten niet begrijp, ik heb slechts een beperkte kennis van macro's...

 

[zapatr]

Dat is toch simpel dan?
Je haalt uit mijn macro deze regel weg:
.Range("A3").Value = Sheets("Info").Range("D" & r).Value
en je plaatst in A3 je vert.zoekenfunctie terug.

 

[wieter]

Erka, gebruik toch maar de code van Zapatr als basis.
Die code zit veel logischer in elkaar.
Probeer hierin de zoekfunctie voor de aantallen te verwerken (eventueel met hulpcel).