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

• #37558 lappy őstag csoki46 #37557

  Új Válasz 2018-03-20 14:17:56 #37558

  Ú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

  

  lappy

  őstag

  válasz csoki46 #37557 üzenetére

  Sub SaveNumberedFile()

Static count As Integer
Dim filestr As String
filestr = "C:\Users\Me\Documents\Code\TestWkbk"
ThisWorkbook.Activate 'Activate whichever workbook you need
If count = 0 Then
ActiveWorkbook.SaveAs (filestr & ".xls")

ElseIf count > 0 And Dir(filestr & "v" & count - 1 & ".xls") = "" Then
ActiveWorkbook.SaveAs (filestr & "v" & count & ".xls")
End If

count = count + 1

End Sub

  annyi a baj vele hogy csak akkor számolja a változót ha meg van nyitva, bezárás esetén újra indul.
  Célszerű valahova lementeni a füzeten belül ezt az értéket és minden megnyitásánál beolvasni.

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