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

• #44866 Sprite75 tag

  Új Válasz 2020-09-21 10:40:12 #44866

  Ú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

  

  Sprite75

  tag

  Sziasztok
  Van ez a Rendelés Felvevő
  táblázatunk amivel kapcsoaltban már kaptam egy jó párszor segítséget itt.

  Van benne egy jó pár macró, amelyek közül most bővítettem egy kicst ez egyiket, ami PDF-be menti az egyik lapot időközönként automatikusan.
  Valamit van benne egy olyan is ami magát a táblázatot menti 2 percenként.

  Jól is működik mindaddig amíg a kollega aki használja, nem nyit meg más excel táblázatot a gépén. Ilyenkor, ha más táblázatban is dolgozik, és a Rendelés Felvevő is meg van nyitva akkor a makrós automatikus mentések lefutásakor hibaüzenet jelenik meg.

  Szóval ez lenne a kérdésem, hogy lehet-e módosítani az alábbi makrókat úgy, hogy ne megyen ez hibaüzenet amikor más táblázat is meg van nyitva az adott gépen.

  ThisWorkbook lapon ez van :

  Private Sub Workbook_Open()
    TimerStart
    Application.OnTime Now + TimeValue("00:02:00"), "SaveThis"
End Sub
  
  A két maró ez ami a PDF-es és a file mentést csinálja. Ezek a moduloknál vannak

  Public kovido
Sub TimerStart()
    kovido = Now + TimeSerial(0, 15, 0) '1 perces időzítési idő
    Application.OnTime kovido, "PDFautoment", , True
End Sub
Sub PDFautoment()
       
    ' PDFment Makró automata
    lapnev = ActiveSheet.Name
    Sheets("Rendelés").Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\KHAZASERV\Rendeles\PDF-RENDELES\Auto.ment.rendeles." & Format(Now(), "yyyy.mm.dd. hh-mm") & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
    
    Sheets("Összesítve").Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\KHAZASERV\Rendeles\PDF\Auto.ment." & Format(Now(), "yyyy.mm.dd. hh-mm") & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
    
               
    Sheets(lapnev).Select
    TimerStart
    
End Sub

  Sub SaveThis()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    Application.OnTime Now + TimeValue("00:02:00"), "SaveThis"
End Sub

  Remélem nem fogalmazatam nagyon bonyolultan

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