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

• #17791 Mutt senior tag Kobe #17789

  Új Válasz 2013-04-16 19:54:36 #17791

  Ú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

  

  Mutt

  senior tag

  válasz Kobe #17789 üzenetére

  Hali,

  Ugyanarra jutottunk.

  Az egyetlen gondom az, hogy a sub nem fut le automatikusan...

  Mivel a Sheet1 Change eseményébe szúrod be ezért nem fut le, Workbook Open esemény kell, de meg kell oldanod hogy ne minden megnyitáskor, hanem csak változáskor fusson le.

  LineNum = .CreateEventProc("Open", "Workbook")

  Esetleg csinálhatod azt hogy

  If Thisworkbook.Sheets("Sheet1").Range("A1") = "" Then
  <ide az eredeti kód>
  Thisworkbook.Sheets("Sheet1").Range("A1") = 1
  End if

  üdv.

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