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

• #6630 Delila_1 veterán G-play #6629

  Új Válasz 2010-03-17 08:45:02 #6630

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

  A personal.xls-be kell tenned egy makrót, amihez aztán tehetsz ki egy ikont az eszköztárra (ikonsorra).

  sub megnyitás()
  Workbooks.Open Filename:=útvonal & fájlnév_1.xls
  Workbooks.Open Filename:=útvonal & fájlnév_2.xls
  end sub

  Az útvonal és fájlnév így nézzen ki: "C:\Munkakönyvtár\Alkönyvtár\Valami.xls"
  A personal.xls-ről már többször volt szó itt a fórumon, ha nem ismered, keress rá.

• #6627 Delila_1 veterán G-play #6625

  Új Válasz 2010-03-16 18:33:36 #6627

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

  Szívesen.

  Akkor tegyél be az oszlopod soraiba érvényesítést, ahova forrásként az alapanyagokat tartalmazó lista nevét adod meg. A #6604-es hozzászólásban megtalálod a névadás módját - ha nem ismernéd.

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