Ú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.

• #25484 Wyll őstag Fferi50 #25482

  Új Válasz 2015-02-17 13:17:34 #25484

  Ú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

  Igen, ez már megvolt ha visszaolvasol, pont ehelyett akartam áttérni makróra, mivel a beépített frissítés csak beolvassa a változásokat, de a linkeket nem update-eli, ami nekem nem elég, mert a linkek maguk nem változnak, az viszont igen, amit beolvasnak, de az meg már link update, nem szinkronizáció.

  Ezért most kézileg kell az egészet újraépítenem, aminek két előnye lesz:
  - 5 percnél gyakrabban is beolvashatom a változásokat
  - azt teszek a loop-ba amit csak akarok, itt most persze a linkek update-je a lényeg

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