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

• #16340 Delila_1 veterán Excelbarat #16339

  Új Válasz 2013-01-18 16:17:00 #16340

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

  Az áthelyezésnél mindig az utolsó lap után helyezi a 2 lap másolatát, ezt az After:=Sheets(Sheets.Count) biztosítja.

  Sub valami()
  Dim nev$, nev1$, nev2$
  Sheets(Array("Alap adat", "Alap kimutatás")).Copy After:=Sheets(Sheets.Count)
  nev$ = InputBox("Kérem a hónap nevét", "Névbekérés")
  nev1$ = nev$ & " adat"
  Sheets("Alap adat (2)").Name = nev1$
  nev2$ = nev$ & " kimutatás"
  Sheets("Alap kimutatás (2)").Name = nev2$
  End Sub

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