Välilehden nimen muuttaminen solusta käsin

Anonyymi

Käytössäni on Excel jossa on kuusi välilehteä jotka ovat oletuksena nimettynä Taul1, Taul2 jne.. Toive on saada nimettyä taulukot uudelleen laskentataulukon soluun syötetyn tekstin/numeron mukaiseksi.

Eli jos välilehden Taul1 soluun A1 kirjoittaa Tarkastus, se muuttaisi välilehden nimen Taul1 nimestä Tarkastukseksi.

9

120

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Isot monisivuset taulukot kanattaa suunnitella etukäteen, jotta nimeämiset ei aiheuta ongelmia sen käytössä.
      MS office kannatta muutenkin heitää pois koska se on surkee ja vakoilee!

    • Anonyymi

      Tuohon pitää tehdä snadi makro.

      • Anonyymi

        Makrot on turvallisuusriski.


    • Anonyymi

      En kysyisikään asiaa jos se olisi simppeli. Kyseinen Excel on suojattu työväline johon ei voi laittaa oletus nimiä välehdille. Nimet muotoutuvat sen mukaan mitä tietoja millekin lehdelle täytetään, esim. tarkastus, auditointi jne..

      Löysin täältä vanhemmista keskusteluista kaavaa kyseiseen asiaan vaan eipä toiminut. Liekö jo Ms Office versio muuttunut ajan myötä niin paljon etteivät vanhemmat kaavat enää toimi.

      • Anonyymi

        Ei onnistu kaavoilla. Makrolla onnistuu. Hae vaikka "excel rename worksheet based on cell value" Teet sitten makron, joka ajetaan aina kun haluttu solu päivittyy. Siihen löytyy ohjeita esim. hakemalla "excel run macro when certain cells changes value".


    • Anonyymi

      Kiitos vinkistä. Yritän tutustua tuohon makro maailmaan, eiköhän se siitä....

      • Anonyymi

        Klikkaa työkirjan välilehteä ja valitse Näytä koodi.

        Lisää kaikkiin haluamiisi välilehtiin (Microsoft Excel Objects) koodi:

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        ActiveSheet.Name = ActiveSheet.Range("A1")
        End Sub

        Tallenna tiedosto xlsm -muodossa, makroja sisältävänä taulukkona.

        Kirjoita soluun A1 haluamasi teksti ja <naps> se vaihtaa myös välilehden nimeä.


      • Anonyymi
        Anonyymi kirjoitti:

        Klikkaa työkirjan välilehteä ja valitse Näytä koodi.

        Lisää kaikkiin haluamiisi välilehtiin (Microsoft Excel Objects) koodi:

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        ActiveSheet.Name = ActiveSheet.Range("A1")
        End Sub

        Tallenna tiedosto xlsm -muodossa, makroja sisältävänä taulukkona.

        Kirjoita soluun A1 haluamasi teksti ja <naps> se vaihtaa myös välilehden nimeä.

        Ei paljoa tarvitse kun osaa...


      • Ihan turhaa kirjoitella joka taulukolle omaa makroa
        Fiksumpi tapa

        ThisWorkbook moduuliin...
        tsekataan , että vain A1 on muuttunut

        Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        If Not Intersect(Target, Sh.Range("A1")) Is Nothing Then
        Sh.Name = Sh.Range("A1")
        End If
        End Sub


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

    Luetuimmat keskustelut

    1. Hetken jo luulin, että en ikävöi sinua koko aikaa

      Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r
      Ikävä
      34
      5308
    2. Outoa että Trump ekana sanoutui irti ilmastosopimuksesta

      kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.
      Maailman menoa
      484
      2474
    3. Eli jos toisen hiki haisee ns. omaan nenään siedettävältä

      Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳
      Ikävä
      27
      1219
    4. JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!

      Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t
      Kiuruvesi
      5
      992
    5. En tiedä miksi kerroin sinusta täällä

      Siksi kai, kun meidän juttu on niin alkuvaiheessa, etten voi vielä puhua siitä kenellekään.
      Tunteet
      16
      947
    6. Oho! Queen of Fucking Everything villitsee - Ikean sininen luottotuote nappasi hervottoman idean!

      Ikea on ajan hermoilla! Aika hauska idea ja Queen of Fucking Everything -ajatus toimii hyvin tässäkin. Lue lisää: http
      Mainonta ja markkinointi
      7
      924
    7. Nainen, tunnetko saman kuin minä

      Syvän yhteyden välillämme, silloin kun se tunne tulee. Niinä hetkinä minulla on niin järjettömän suuri ikävä sinua. Ikäv
      Ikävä
      41
      802
    8. HS - Yllätyskäänne Eagle S -tutkinnassa, Supo pitää onnettomuutena

      HS:n mukaan esitutkinta joudutaan todennäköisesti keskeyttämään syyttäjän päätöksellä mikäli näyttöä tahallisuudesta ei
      Maailman menoa
      193
      774
    9. Ei ois kyllä kivaa

      Jos miestä ei kiinnostais ollenkaan minun seura. Aina huitelis ties missä tai olis omassa seurassaan. Kaikki muu ois kiv
      Ikävä
      3
      764
    10. Siellä taas pyörin

      Nimittäin sinun paikkakunnalla mies. Mutta en vieläkään nähnyt sinua. Miksi sinä olet minulta aina piilossa?
      Tunteet
      8
      713
    Aihe