Juokseva numero "BeforePrint(Cancel As Boolean)"

Excellamatöör

Tehdäämpä tästä oma viestiketju

Jos minulla on arvo 1000034 solussa L4. Haluan että arvo kasvaa joka tulosteeseen yhdellä eli 1000035, 1000036, 1000037 jne ns juokseva sarjanumero. Perus excel käyttäjänä en osannut tehdä tätä.

Eli ohjelma lukee ensin arvon solusta L4 kun x =Range("L4") sen jälkeen kun on tulostettu, niin x=x 1 ja palautetaan arvo soluun L4 Range("L4") =x.

Toimiikohan tämä jos otan esim 6 kpl tulosteita kerralla vai pitääkö ottaa 6 x 1kpl tulosteita.

Sub Auto_Open()
x = Range("L4")
End Sub

Public x As Integer
Public y As Integer
Private Sub Workbook_BeforePrint(Cancel As Boolean)
y = 0
x = Range("l4")
If y Mod 0 Then
x = x 1
End If
y = 0
Range("l4") = x
'Viedään arvo soluu L4
End Sub

2

100

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Untamo.L.La

      "If y Mod 0 Then"

      Meinasit nollalla jaella?

    • Tämmöinen

      Tulostus on tehtävä yksi kerrallaan, koska tulosteiden lukumäärää ei määrätä Excelissä. Tämä (tulee ThisWorkbook-moduliin) riittää kasvattamaan laskuria :
                                                                                                     
      Private Sub Workbook_BeforePrint(Cancel As Boolean)                                      Range("L4") = Range("L4")   1                                                                End Sub       
                                                                                                     
                                                                                                     
      Seuraava makro tulostaa sivun halutun monta kertaa ja kasvattaa laskuria joka välissä. Jos laskuri on tässä, BeforePrint-laskuri pitää jättää pois.
                                                                                              
      Sub Printtaa()                                                                                           lkm = Range("A1")                                                                                   For i = 1 To lkm                                                                                         Range("L4") = Range("L4")   1                                                                   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True                 Next i                                                                                                End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Tehyn Rytkösellä tallessa tekstiviestit A-studiokohussa

      https://www.mtvuutiset.fi/artikkeli/a-studiosta-kohu-tehyn-rytkosen-mukaan-ministeri-linden-sai-paattaa-osallistujat-ohjelma-kiistaa-vaitteen/8407068
      Maailman menoa
      164
      6075
    2. Ohhoh! Rita Niemi-Manninen otti ison tatuoinnin - Herätti somekansan: "Täydellinen paikka!"

      Rita Niemi-Mannisen suuri, uusi tatuointi on saanut somekansan heräämään talvihorroksesta. Niemi-Manninen otti tatskan rakkauslomalla Aki-miehensä kan
      Kotimaiset julkkisjuorut
      20
      1748
    3. Harvoin julkisuudessa nähty Jari Sillanpää, 56, julkaisi uusia kuvia - Karisti Suomen pölyt jaloista

      Huumekohun jälkeen matalaa profiilia pitänyt Jari "Siltsu" Sillanpää on ollut vaitonainen elämästään. Tänä keväänä miehen some on ollut hiljainen. Nyt
      Kotimaiset julkkisjuorut
      11
      1646
    4. Ihastumisesta kertominen

      Olen päättänyt kertoa tunteistani ihastukseni kohteelle. Erityisen vaikeaksi tilanteeni tekee se, että kyseessä on ns. kielletty rakkaus. Olen jo toi
      Ihastuminen
      92
      1533
    5. Taas Venäjän tiedoittaja akka Varoitti Suomea ja Ruotsia liittymästä Natoon

      Juuri sopivasti julkaistu varoitus, kun Suomen eduskunta alkaa klo 13:50 käsitellä asiaa suorassa TV 1:n lähetyksessä. ILtasanomat.
      Maailman menoa
      441
      1426
    6. Ässät lähtivät eri teille

      Tämä on ilonpäivä 😁
      Kotimaiset julkkisjuorut
      113
      1140
    7. Oon mä susta mustasukkainen

      Mä tunnustan. Olen aina vähän jollain tapaa ollu susta mustis. Tottakai, koska rakastan sua. Mutta mustiskin vain terveellä tavoin. Ihan luonnollista
      Mustasukkaisuus
      150
      984
    8. Sohvi blörf

      Siellä se taas keekoilee kaupungilla ja kuvailee viattomia opiskelijoita instaansa. Kuvaa nyt vaan omaa tissivakoo ja bebaa jätä muut rauhaan ettei t
      Kotimaiset julkkisjuorut
      106
      831
    9. Jättäkää tuo Lumio nyt jo rauhaan!

      Mihinkään tuo avaus katosi? Säälittävää touhua kertakaikkiaan, harvoin tänne mitään kirjoittelen mutta tämä touhu alkaa mennä jo yli hilseen. Hävetkää
      Kauhava
      26
      742
    10. Rakas rakas rakas

      Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Oot kaikkeni sä ihana m
      Ikävä
      65
      664
    Aihe