X solu=välilehden nimi

Sweit

Moro

Miten saa solun määriteltyä siten että kun siihen kirjoittaa niin solun sisältö on yhtäkuin kyseisen välilehden nimi (jossa solu sijaitsee)?

Koulussa joskus tälläinen asia muistaakseni oli mutta 3 vuoden jälkeen ei millään muistu mieleen.

Tattista

11

4787

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Kunde ei tajunnut yhtään mitään...
      voisitkos antaa esimerkin

      • tuttumies

        1) Välilehden nimi "Tau1", kun kirjoittaa soluun C3 tekstin "Tau1", niin eikös se ole siinä?

        2) Jos kirjoittaa samaan soluun =Sheet(), niin tulos on kaiketi sama?

        (-;

      • sweit

        Solu pitäisi olla määritettynä siten että kun siihen kirjottaa tekstiä ja painaa enter niin sama teksti ilmestyy kyseisen välilehden nimeksi. Eli toiminta olisi jotenkin asetettu kyseisen "solun rakenteeseen(?)".

        Jos vaikka A1 soluun oisi tehty tälläinen "kikka" niin aina kun kirjottaisin A1:seen jotain ja painaisin enter, niin solun A1 sisältö muuttaisi välilehden nimen täksi samaksi. Eli A1=Sheetin nimi.

        Tämä voi olla joku aivan törkeen yksinkertainen asia, mutta oon vähän huono selittämään =P

      • kunde
        sweit kirjoitti:

        Solu pitäisi olla määritettynä siten että kun siihen kirjottaa tekstiä ja painaa enter niin sama teksti ilmestyy kyseisen välilehden nimeksi. Eli toiminta olisi jotenkin asetettu kyseisen "solun rakenteeseen(?)".

        Jos vaikka A1 soluun oisi tehty tälläinen "kikka" niin aina kun kirjottaisin A1:seen jotain ja painaisin enter, niin solun A1 sisältö muuttaisi välilehden nimen täksi samaksi. Eli A1=Sheetin nimi.

        Tämä voi olla joku aivan törkeen yksinkertainen asia, mutta oon vähän huono selittämään =P

        taulukon moduuliin...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = Range("A1")
        End If
        End Sub

      • Sweit
        kunde kirjoitti:

        taulukon moduuliin...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = Range("A1")
        End If
        End Sub

        Kiitos!

      • Sweit
        kunde kirjoitti:

        taulukon moduuliin...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = Range("A1")
        End If
        End Sub

        Heh heh.. Voisitkos vielä rautalangasta vääntää mihin tuo pitää laittaa. Olen koittanut tökötä tuon koodin Visual Basicin kautta joka paikkaan, mutta eihän se mistään toimi.

        Nimimerkillä "ei vain osaa"

      • Sweit
        Sweit kirjoitti:

        Heh heh.. Voisitkos vielä rautalangasta vääntää mihin tuo pitää laittaa. Olen koittanut tökötä tuon koodin Visual Basicin kautta joka paikkaan, mutta eihän se mistään toimi.

        Nimimerkillä "ei vain osaa"

        W00t! Sain toimimaan, Kiitos! =)

    • Anonyymi

      Entäs toisinpäin? A1 solun arvo muuttuu jos välilehden nimi muuttuu. Kiitos

      • Anonyymi

        Function TaulukonNimi()
            Application.Volatile
            TaulukonNimi = ActiveSheet.Name
        End Function

    • Anonyymi

      Vaihda se surkee vakoileva MS offise johonkin toimivaan!

    • kunde

      Aika pahan kyssärin heitit ;-)
      Taulukon nimen muutokselle ei löydy tapahtumaa, mutta kikkailemalla sekin syntyi...
      Vanhalla EXCEL4 macrolla homma hoituikin

      ThisWorkbook moduuliin...
      Option Explicit

      Private Sub PäivitäTaulukonNimi()
      ActiveSheet.Range("A1").Formula = _
      "=MID(CELL(""filename""," & _
      ActiveSheet.Name & "!A1" & _
      "),FIND(""]"",CELL(""filename""," & _
      ActiveSheet.Name & "!A1" & _
      ")) 1,255)"
      End Sub

      Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
      On Error Resume Next
      Application.EnableEvents = False
      PäivitäTaulukonNimi
      Application.EnableEvents = True
      End Sub
      Sub Reset()
      Application.EnableEvents = True
      Application.Calculation = xlCalculationAutomatic
      End Sub


      Keep EXCELing
      @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      236
      4600

    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      76
      3035

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2463

    4. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      45
      1767

    5. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      25
      1613

    6. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      78
      1439

    7. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      85
      1285

    8. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      143
      965

    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      69
      938

    10. Sellainen tunne sydämessä

      Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,
      Ikävä
      86
      894
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt