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

• #6611 Delila_1 veterán G-play #6605

  Új Válasz 2010-03-16 16:15:47 #6611

  Ú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 G-play #6605 üzenetére

  Az elsőhöz beírod a könyvtárakat egy oszlopba úgy, hogy a végén is legyen "\" (C:\munka\3\).
  A C1-ben létrehozol egy érvényesítést - lásd #6604. Az E1-be beírod a fájlnevet.

  Sub Ment()
  Dim ut As String
  Dim FN As String
  
  ut = Range("C1")
  FN = ut & Range("E1") & ".xls"
  
  ActiveWorkbook.SaveAs Filename:=FN, FileFormat:= _
  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
  , CreateBackup:=False
  
  End Sub

  Ez a makró azt csinálja, amit kértél.

  A második kérdésedhez az FKERES függvényt alkalmazd.

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