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

• #16378 Excelbarat tag Excelbarat #16371

  Új Válasz 2013-01-19 19:08:24 #16378

  Ú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

  

  Excelbarat

  tag

  válasz Excelbarat #16371 üzenetére

  Vagy egy másik megoldás lehetne a problémára: Egy újabb makró feladvány
  Esetleg egy olyan makrót tudna valaki írni amely másoláskor átnevezi a névkezelőben a névtartományokat (amelyek munkalap hatókörűek) pl mindig a bekért nevet fűzze hozzájuk, mert van már egy olyan makróm ami másoláskor átnevezi a lapneveket.
  Ez a makró így néz ki: (Delila_1-től kaptam)
  Sub UJ()
  Dim nev$, nev1$, nev2$
  Sheets(Array("Base Data", "Base Sales")).Copy After:=Sheets(Sheets.Count)
  nev$ = InputBox("Wich month?", "Name of the month")
  nev1$ = nev$ & " Data"
  Sheets("Base Data (2)").Name = nev1$
  nev2$ = nev$ & " Sales"
  Sheets("Base Sales (2)").Name = nev2$
  End Sub

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