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

• #16134 Delila_1 veterán Sixkiller6 #16129

  Új Válasz 2013-01-11 18:05:53 #16134

  Ú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 Sixkiller6 #16129 üzenetére

  2003-asnál magasabb verzióban az & ".xls" helyére ".xlsm"-et írj.

  Sub Ment()
  Dim nev$
  nev$ = Left(ActiveWorkbook.Name, Application.WorksheetFunction.Search(".", ActiveWorkbook.Name) - 1)
  nev$ = nev$ & "_" & Sheets(1).Range("A1") & ".xls"
  ActiveWorkbook.SaveAs Filename:=nev$
  End Sub

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