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

• #5416 Cuci3 tag Geby #5415

  Új Válasz 2009-09-30 11:03:05 #5416

  Ú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

  

  Cuci3

  tag

  válasz Geby #5415 üzenetére

  Na, félig megvagyok, én rontottam el a kódot. A már helyesebb verzió:

  Private Sub Workbook_BeforePrint(Cancel As Boolean)
  
  If ActiveSheet.Name = "Munka1" Then
  ActiveSheet.Range("A3") = ActiveSheet.Range("A3") + 1
  End If
  
  End Sub

  Viszont azt még nem tudom megoldani, hogy nyomtatásnál "Mégse" gombra kattintva ne növelje az A3 értékét. De próbálkozok.

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