Új hozzászólás Aktív témák

• #49812 Fferi50 Topikgazda tamas1985 #49810

  Új Válasz 2022-10-26 08:03:17 #49812

  Új hozzászólás

  Ö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

  

  Fferi50

  Topikgazda

  válasz tamas1985 #49810 üzenetére

  Szia!
  Eseménykezelő makróval oldható meg. A táblázat egy celláját "kinevezed" sorszámnak.
  A Munkafüzet Before_Print eseménykezelőjében a cellában levő számot növeled eggyel.
  VBA nézet (Alt F11) Thisworkbook kódlapjára beírod ezt:
  Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value = Range("A1").Value + 1
End Sub
  
  Így minden nyomtatás előtt növeli a sorszámot.
  Az is megoldható, hogy a nyomtatás előtt megkérdezze, valóban nyomtatni szeretne-e.
  Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Valóban nyomtatni szeretne?", vbQuestion + vbYesNo) = vbYes Then
   Range("A1").Value = Range("A1").Value + 1
Else
   Cancel = True
End If
End Sub
  A fájlt makróbarátként kell menteni.
  Üdv.

Új hozzászólás Aktív témák