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

• #16342 Excelbarat tag Delila_1 #16340

  Új Válasz 2013-01-18 16:40:25 #16342

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

  Köszi! Működik Hatékonyabb mint ahogy azt gondoltam
  Ha "mechanikusan" csináltam néha belefagyott az excel (van benne pár rejtett sor és néha teljesen összeomlik miatta másolásnál, legalábbis ha felfedtem őket sosem fagyott ha rejtve volt pár darab akkor legtöbb esetben fagyott.... )
  Még egyszer Köszi!

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