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

• #28271 Delila_1 veterán Mittu88 #28269

  Új Válasz 2015-08-27 17:31:39 #28271

  Ú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

  

  Delila_1

  veterán

  válasz Mittu88 #28269 üzenetére

  Próbáld így

  Sub mm()
  Dim valasz
  
  Ujra:
  On Error GoTo 0
  
  On Error Resume Next
  Workbooks.Open "F:\Eadat\Zoli Jkv_5.xls"
  If Err = 1004 Then
  valasz = MsgBox("Újrahívás", vbYesNo)
  If valasz = vbNo Then Exit Sub
  GoTo Ujra
  End If
  MsgBox "Tovább"
  End Sub

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