Aktív témák

• #192 perfag aktív tag Leti #151

  2006-03-16 08:30:33 #192

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  perfag

  aktív tag

  válasz Leti #151 üzenetére

  
  Most járok itt először, elképzelhető, hogy megoldódott közben a problémád, akkor vedd úgy nem szóltam. Ha mégsem,
  
  > Abszolut fogalmam sincs a makrokról. De azt mondták a makro megoldja a poblémám.
  A makró megoldja, de Te hogy fogod alkalmazni amit küldök? Mindegy, a Te dolgod.
  
  Ez itt A megoldás:
  
  > A táblázatok részeit képez egy-egy sorozatszám.
  > Ezt a sorozatszámot szeretnm úgy megoldani hogy nyomtatáskor automatikúsan emelkedjenek.
  
  A munkafüzet VBA lapján a ThisWorkbook-hoz beilleszted ezt a makrót
  
  Private Sub Workbook_BeforePrint(Cancel As Boolean)
  With Worksheets(''n'').Range(''B2'')
  .Value = .Value + 1
  End With
  End Sub
  
  Amit át kell írnod sajátra:
  Worksheets(''n'').Range(''B2'')
  n - a munkalap veve
  B2 - a számláló cella címe
  
  A nevéből következik, hogy ez az esemény az aktus előtt következik be, tehát ha azt szeretnéd, hogy az első lapra 1-et nyomjon, akkor a számláló cellába (B2) 0 -t írj.
  
  Ezt is tudja:
  > Nyomtatás befejezésekor megjegyezze az útolsó számokat és a következő nyomtatáskor folytassa tovább.
  Csak menteni kell az utolsó nyomtatás után.
  
  > Ha valaki tudna nekem segiteni nagyon megköszönném mert nagyon megkönnyitené az életem. Előre is köszönöm!
  
  Köszönjed is.
  
  csüssz.
  
  
  

Aktív témák