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

912

Äänestä

    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

    • tattiaivo

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vassarit kummittelee pääni sisällä joulunakin

      Hetki sitten alkoi punakapina. Joulupäivään mennessä ollaan jo Lindtmanin nuoruusvuosien näytelmäkerhossa. Tapaninpäivän
      Maailman menoa
      62
      2868

    2. Oho, köyhyys väheni Marinin hallituskaudella

      👋💥🤕 Tuonkin Marinin hallitus sössi --- Vuosien 2019–2023 sosiaaliturva- ja verotusperusteiden muutokset suhteessa h
      Maailman menoa
      127
      2559

    3. Suomen markka otettiin käyttöön vuonna 1860

      Suomi käytti vuoteen 1840 asti rahayksikkönään rinnakkain Ruotsin riikintaalareita ja Venäjän ruplaa. Tämän jälkeen oli
      Maailman menoa
      2
      2199

    4. Kylläpä asiat onkin nyt hyvin verrattuna Sannan aikaan

      Sannan aikana aähkön alv oli 10%, nyt 25,5%. Ajatelkaa nytkin pörssisähkö on ilmaista, keskellä talvea! Bensan hinta on
      Maailman menoa
      8
      1772

    5. Yksityinen sektori aiheuttanut Suomen taantuman

      Investointien sijasta nostaneet voitot osinkoina omistajille. Ehdotan korjausliikkeenä yksityisen sektorin sosialisoimi
      Maailman menoa
      17
      1584

    6. Ukrainan raukkamainen isku Moskovaan.

      Pitikö isku tehdä juuri jouluna.Siinä saattoi jäädä joku lapsi isättömäksi.Kyseessä ei edes sotilaskohde.
      Maailman menoa
      332
      1431

    7. En tiedä mitä olet mulle

      Rakkauteni,ihastukseni,pakkomielteeni,mitä lie. Jokatapauksessa ajattelen sinua päivittäin lämmöllä ja haluan toivottaa
      Ikävä
      60
      1429

    8. On mullakin

      Sua ikävä. En vain pysty siihen mitä toivot. Siksi toivon joskus että voisin vain olla hetken lähelläsi
      Ikävä
      71
      1164

    9. Vittumaista Joulua Kuhmolaisille.

      Siinäpä se tiivistettynä.
      Kuhmo
      22
      1141

    10. Mikä on kaunein naisennimi jonka tiedätte?

      Kotimainen tai ulkomainen.
      Sinkut
      82
      1107
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt