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

4957

Ää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. Toiko Helen laivalastillisen vieraslajeja Suomeen?

      Loviisan satamaan tuotiin laiva­lastillinen pähkinän­kuoria Norsun­luu­rannikolta Loviisan satamaan kiinnittyi vapun al
      Maailman menoa
      134
      3227

    2. Elikkä Riikka Purra ei kannusta Suomea edes euroviisuissa

      Sellaista on persujen "isänmaallisuus", oma kansa viimeiseksi ja ulkomaalaiset ensimmäisiksi. https://www.iltalehti.fi/
      Maailman menoa
      73
      2114

    3. Koulujen kesälomien siirto

      Koulujen kesälomaa voitaisiin siirtää viikon verran. Se voisi olla hyvä kompromissi. Pääsiäsiseen voitaisiin lisätä muut
      Maailman menoa
      137
      1805

    4. Mitä kirjainta haluaisit

      rakastella juuri nyt?
      Ikävä
      126
      1705

    5. Riikka: 3 euron bensa, Ruotsi: bensavero jopa alle EU-minimin

      Eipä vaan suomalainen autoilija saa kaikkien rakastamalta Riikalta sympatiaa. Ruotsissa on eri meininki, siellä diskutee
      Maailman menoa
      24
      1697

    6. Inhottava stalkkeri

      Mikä ajaa ihmisen moiseen toimintaan ?
      Ikävä
      138
      1355

    7. Victoria-tytär, 16, vertaa Martina Aitolehteä ja Esko Eerikäistä: "Iskä on enemmän..."

      Martina Aitolehti ja Esko Eerikäinen ovat ex-pari ja heillä on yksi yhteinen tytär, Victoria. Eerikäinen oli Huomenta Su
      Kotimaiset julkkisjuorut
      105
      1192

    8. Nainen, mistä johtuu että joskus et vain ymmärrä?

      Älä sitä, älä tätä. Ei niitä varoituksia turhaan sanota. Älä laita sormeasi sirkkeliin. Älä hengaile sen murhaaja poruka
      Ikävä
      144
      1045

    9. "UKRAINA HYÖKKÄÄ LATVIAN ÖLJYVARASTOON JA JUNAAN"!!!

      "MATKUSTAJAJUNA SAI UKRAINALAISLENNOKEISTA VAKAVIA VAURIOITA"!!!
      Maailman menoa
      50
      1014

    10. Yhä pyörit mielessä,

      ja tällä kertaa huomasin yhden asian: Sinusta välittyi sellaista lempeyttä ja välittämisen tunnetta, jota ei voi unohtaa
      Ikävä
      30
      944
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt