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

• #16341 Delila_1 veterán Delila_1 #16340

  Új Válasz 2013-01-18 16:25:44 #16341

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

  Ebben kiküszöböltem a hibát, ha valaki új név megadása nélkül enterezné le az inputboxot.

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

  A makró bármelyik lapon állva indítható, mert fixen az Alap adat és Alap kimutatás nevű lapokról készít másolatot.

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