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

• #19385 Delila_1 veterán Pityke78 #19384

  Új Válasz 2013-10-24 10:58:50 #19385

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

  A VBA szerkesztőben a ThisWorkbook laphoz rendeld a makrót:

  Private Sub Workbook_Open()
  Dim nev
  nev = ActiveCell.Parent.Parent.Name
  nev = Left(nev, InStr(nev, ".") - 1)
  Range("B2") = "=[Valami_" & Right(nev, 2) - 1 & ".xls]Munka1!A2"
  End Sub

  Az általad használt verziótól függően az utolsó sorban az .xls... részt írd át .xlsm-re, a Valami_-t a füzeted nevére.

  Ez akkor felel meg a célodnak, ha az elmentett füzetek nevének a végén van a hét száma.

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