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.
Välilehden nimen muuttaminen solusta käsin
9
52
Vastaukset
- 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
Heikki Silvennoinen petti vaimoaan vuosien ajan
Viiden lapsen isä Heikki kehuu kirjassaan kuinka paljon on pettänyt vaimoaan vuosien varrella.1612746- 242006
Miksi ihmeessä nainen seurustelit kanssani joskus
Olin ruma silloin ja nykyisin vielä rumempi En voi kuin miettiä että miksi Olitko vain rikki edellisestä suhteesta ja ha222001Persut nimittivät kummeli-hahmon valtiosihteeriksi!
Persujen riveistä löytyi taas uusi törkyturpa valtiosihteeriksi! Jutun perusteella järjenjuoksu on kuin sketsihahmolla.891806Onko ministeri Juuso epäkelpo ministerin tehtäviensä hoitamiseen?
Eikö hänellä ole kompetenttia hoitaa sosiaali- ja terveysministetin toimialalle kuuluvia ministerin tehtäviä?681557Sakarjan kirjan 6. luku
Jolla korva on, se kuulkoon. Sain profetian 22.4.2023. Sen sisältö oli seuraava: Suomeen tulee nälänhätä niin, että se191313Avaa sydämesi mulle
❤ ❤❤ Tahdon pelkkää hyvää sulle Sillä ilmeisesti puhumalla Avoimesti välillämme Kaikki taas selviää Kerro kaikki, tahdo371212- 101201
Elia tulee vielä
Johannes Kastaja oli Elia, mutta Jeesus sanoi, että Elia tulee vielä. Malakian kirjan profetia Eliasta toteutuu kokonaan361188Nellietä Emmaa ja Amandaa stressaa
Ukkii minnuu Emmaa ja Amandaa stressaa ihan sikana joten voidaanko me koko kolmikko hypätä ukin kainaloon ja syleilyyn k91171