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

• #37568 csferke senior tag csoki46 #37557

  Új Válasz 2018-03-21 07:58:38 #37568

  Ú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

  

  csferke

  senior tag

  válasz csoki46 #37557 üzenetére

  Szia!
  Ezt nagyjából sikerült megoldanom, viszont a gond, hogy kérdés nélkül felülírja a korábbi fájlt, ha ugyan azt az értéket írom be a C1-be.

  Sz.tem ne a C1 legyen a pdf neve.
  Pl. AA-ban C1+dátum (vagy C1+dátum&time) és ez legyen a pdf neve. Így mindig egyedi lesz az elnevezés.

• #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