VBA optellen na print macro

freeze

Gebruiker
Lid geworden
4 apr 2006
Berichten
12
Hallo medeforummers,

Ik ben nog niet zo heel lang bezig met VBA schrijven, maar ik probeer een VBA te maken dat elke keer als er op te print macro knop gedrukt word de waarde in cell G6 met 1 omhoog gaat. echter als de inhoud van cell G2 gewijzigd word handmatig moet G6 weer op 1 komen te staan, is zoiets uberhaup mogelijk in VBA? het is me tot nu toe alleen gelukt de printknop werken te krijgen

Code:
Sub printsticker()


       
        Sheets(Array("Etiket")).PrintOut , ActivePrinter:= _
        "Printer Mengerij"
       
       
       
       
        Sheets("Etiket").Select



End Sub
 

Bijlagen

thanks wow! het lijkt code technisch heel simpel maar ik kwam er niet uit. thanks voor de hulp!
 
Graag gedaan :)
 
Hallo mede-forummers en @edmoor

Ik zou in het zelfde bestand nog een kleine toevoeging willen maar lukt met net niet.

Als de cellwaarde in G4 wijzigt dan moet de waarde in G5 met 1 omhoog
Elke keer als ik achter .value = +1 zet wijzigt hij hem zelf naar 1

Code:
 If Target.Address(0, 0) = "G4" Then Range("G5").Value = 1
 
Nochtans staat er in de code van edmoor een goed en erg gelijkend voorbeeldje;)
Code:
Range("G6").Value = Range("G6").Value + 1
Ik zou daaruit afleiden dat het voor jou dan moet worden:
Code:
 If Target.Address(0, 0) = "G4" Then Range("G5").Value = Range("G5").Value + 1
 
Nochtans staat er in de code van edmoor een goed en erg gelijkend voorbeeldje;)
Code:
Range("G6").Value = Range("G6").Value + 1
Ik zou daaruit afleiden dat het voor jou dan moet worden:
Code:
 If Target.Address(0, 0) = "G4" Then Range("G5").Value = Range("G5").Value + 1
Ik heb ook uit de code van @edmoor zitten puzzelen echter kwam ik er niet uit maar ik ben nog niet zover dat ik er zelf achter was gekomen dat = Range("G5").Value + 1 er nog achter moest ipv alleen .value +1

Bedankt voor de hulp weer, het werkt!
 
Onder het motto "alle beetjes helpen": wat jij eerst deed was aan 'iets' (in dit geval de inhoud van een range, maar dat is in het dagelijkse leven ook zo, en kan dus ook de buitentemperatuur of de prijs van een buskaartje zijn) de waarde '+1' toekennen, dat is hetzelfde als de waarde '1', daarom liet vba de '+' wegvallen, alweer naar analogie met de algemene conventie dat we enkel zeggen dat het min 5° is als het vriest maar niet dat het vandaag plus 24° is.
 
Probeer ook eens:

Code:
Range("G5")= Range("G5")-(Target.Address = "$G$4")
 
Terug
Bovenaan Onderaan