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

• #25488 Wyll őstag Fferi50 #25482

  Új Válasz 2015-02-17 14:31:52 #25488

  Ú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

  

  Wyll

  őstag

  válasz Fferi50 #25482 üzenetére

  Még most is ugyanezt írja ki, pedig azóta konszolidáltam a kódot, és marhára nem csukom be a file-t!
  Szépen az x másodperc lejártakor jön a hibaüzenet...

  Ennyi a lényeg:

  Private Sub Workbook_Open()
  Call frissito_idozito
  MsgBox "Frissítés elindítva!"
  End Sub
  
  Sub frissito_idozito()
  Dim kovetkezo As Range, gyakorisag As Range
  
  Set kovetkezo = ThisWorkbook.Sheets("titkos").Range("A1")
  Set gyakorisag = ThisWorkbook.Sheets("titkos").Range("A2")
  
  MsgBox "Frissítés..."
  'Call frissites
  
  kovetkezo = Now + gyakorisag
  Application.OnTime kovetkezo, "frissito_idozito"
  
  End Sub

  Akkor sem jó, ha zárójellel a végén írom a string-be a sub nevet.

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