Välilehden luonti automaattisesti

automatic

Moro

Onko mahdollista saada seuraava toiminto toimimaan automaattisesti:

Nappia painamalla Excel tekee uuden välilehden ja nimeää sen taul1 A2 solussa kirjoitetun tekstin mukaan. Lisäksi kopioi kaikki tiedot mitä taul1 on ja siirtää ne luotuun taulukkoon.

2

997

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • koodinpurkaja

      Makrot eivät ole minun vahvuuhteni. Tuonmoisen makron löysin netistä ja minulla se ainakin pelasi. Modifioin sitä tarpeitasi varten. En osaa tehdä siihen sitä ettei kopioisi sitä "painonappia" uuteen taulukkoon (ei kaiketi ole tarkoitus). Eli tässä:

      Sub kopioivälilehti()

      Dim newshtname

      'varoitus jos solu A2 on tyhjä
      If IsEmpty(Range("A2").Value) Then
      MsgBox "Anna nimi!", vbCritical
      Exit Sub
      End If

      'uuden nimen sijaintisolu
      newshtname = Range("A2").Value

      'varoitus samannimisestä välilehdestä
      For Each Sheet In ActiveWorkbook.Sheets
      If UCase(Sheet.Name) = UCase(newshtname) Then
      MsgBox "Antamasi nimi on jo olemassa. Anna uusi.", vbCritical
      Exit Sub
      End If
      Next Sheet

      'allaoleva kopioi välilehden, sijoittaa sen Taul1 jälkeen ja nimeää sen solun a2 mukaan
      ActiveSheet.Copy after:=Sheets(1)
      ActiveSheet.Name = newshtname
      End Sub

      Koodi löytyi tuolta:
      http://www.ozgrid.com/forum/showthread.php?t=17844

    • Tarkoitatko, että on liian monimutkaista pistää hiiren osoitin välilehti 1:n päälle, painaa ctrl alas ja vetää hiirellä tuuman verran oikealle seuraavaan välilehteen, ja sen jälkeen tuplaklikata välilehti 2 ja kirjoittaa siihen haluamansa nimi.
      Kaikki tiedot kaavoineen ovat kopioituneet uuteen välilehteen, eikä siinä nyt niin montaa napinpainallusta kulunut.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Sebastian Tynkkynen (pers.) ei vastusta raiskauksia

      "Sebastian Tynkkynen oli ainoa 14 suomalaismepistä, joka vastusti uutta suostumuksen puuttumiseen perustuvaa raiskauslak
      Maailman menoa
      45
      3897
    2. Purra jäi kiinni valehtelusta, Heinäluoma ei

      Ja heti alkoi Purra joukkoineen maalittamaan Heinäluomaa. Niin toimii äärioikeistoa edustava putinistipersulauma, jonka
      Maailman menoa
      15
      2942
    3. Yks vähemmän

      Yks narkki täälläkin vähemmän,m.t. sai mitä halusi😎
      Kiuruvesi
      32
      2500
    4. Nyt voin sanoa että vtuttaa!

      Kertaa sata 💯
      Ikävä
      27
      1811
    5. Oletko onnellinen

      Kun ei enää nähdä?
      Ikävä
      50
      1427
    6. Kaunis Martina taas lehtihaastattelussa - kommentoi Stefua

      Martina sanoi, että Isabella on käytännössä aina hänen kanssaan. "Minä olen se vanhempi, joka ottaa 100-prosenttisen vas
      Kotimaiset julkkisjuorut
      443
      1401
    7. Gallup: Kenet sinä haluaisit nähdä Yökylässä-sarjassa?

      Yökylässä Maria Veitola -sarjaa on nähty jo 10 kautta tv:ssä, ja Veitola on yöpynyt satojen suomalaisten julkkisten kode
      Tv-sarjat
      43
      1373
    8. Anteeksi

      Anteeksi 😭😭😭. Olet rakas❤️. En juo enää liikaa. 😭
      Ikävä
      31
      1218
    9. Minun kultani

      Mistä saataisiin sulle hyvät henkselit? 🤗😘
      Ikävä
      50
      1141
    10. Mitäs mieltä

      Hakeekohan pikkunennmies alavuden kaupunginjohtajaksi? Pakkoliitos ähtäri-alavus. Taas olis mieliharmi johtamassa suoho
      Ähtäri
      16
      1125
    Aihe