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

185

    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. Taisin tehdä virheen

      Kaipaan sua enemmän kuin kuvittelin. Luulin, että helpottuisin, mutta olinkin täysin väärässä. Vieläkö vastaisit minulle
      Ikävä
      44
      3032
    2. Hyvä että lähdit siitä

      Ties mitä oisin keksinyt jos oisit jäänyt siihen, näit varmaan miten katoin sua.... 😘🤭😎💖
      Ikävä
      36
      2651
    3. Et siis vieläkään

      Et ilmeisesti ole vieläkään päässyt loppuun asti mun kirjoituksissa täällä. Kerro ihmeessä sit, kun valmista 😁 tuskin k
      Ikävä
      53
      2604
    4. Koronarokotus sattui oudon paljon nyt sairaanhoitaja Tanja 46 istuu pyörätuolissa

      Pitkä piina piikistä Kun Tanja Vatka käy suihkussa, tuntuu kuin ihoa revittäisiin raastinraudalla irti. Hän on kärsinyt
      Maailman menoa
      105
      2314
    5. Nyt tuntuu siltä, että on pakko päästä puhumaan kanssasi

      Tuntuu että sekoan tämän kaiken takia. Miehelle
      Ikävä
      51
      2143
    6. Olisitko mies valmis?

      Maksamaan naisellesi/vaimollesi/tyttöystävällesi elämisestä syntyvät kulut, ruokailun, vuokran ja muut välttämättömät me
      Ikävä
      344
      1909
    7. Mitä haluat sanoa kaivatullesi?

      Onko ikävä? Milloin näitte viimeksi?
      Ikävä
      150
      1556
    8. Nainen, mulla olisi sulle pari vinkkiä

      Kerro vain ongelmasi niin annan siihen vinkin. :/
      Ikävä
      73
      1418
    9. vieläkin sanoa voin...

      💖💛💖💛💖💛💖💛💖 💛 Beijjjbeh 💛 Kaks vuotta tänään täällä. Miten hitossa jotkut on jaksaneet kymmeniä vuos
      Ikävä
      23
      1258
    10. Nainen onko sulla supervoimmia ?

      Voisitko auttaa miestä mäessä? Tarjota auttavan käden ja jeesata tätä miestä? Tai antaa olla et sä kuitenkaan auta.
      Ikävä
      28
      1185
    Aihe