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

4872

Ää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. Jens Ihlen (ex Kukka) poika todistaa oikeudessa

      10:49 "Välit ovat olemattomat" Minkälainen isäsi ja sinun välinen suhde on tällä hetkellä? "Minulla ei ole minkäännäkö
      Maailman menoa
      246
      9269

    2. Riikka runnoo! Uutta velkaa tänä vuonna 17 mrd. euroa

      Tirsk. Nyt kyllä hihityttää kuin pientä eläintä. Riikka takoo maailmanennätyksiä tasaiseen tahtiin. " [Riikka] joutuu
      Maailman menoa
      128
      7608

    3. K-kaupassa on mukava käydä, kun ei tarvitse katsella köyhiä

      vasemmistolaisia, joista monet myös varastavat. Mielellään maksaa vähän enemmän tuotteista K-kaupassa, jotka ovat paljon
      Maailman menoa
      148
      5196

    4. Suomeen ei kuulu ihmiset jotka ei halua kätellä toisia ihmisiä, koska tämä on vääräuskoinen

      Nainen joka ei halunnut kätellä Stubbia on selvästi ääripään muslimi, eli sitä sakkia josta niitä ongelmia koituu. Ulos
      Maailman menoa
      149
      4887

    5. PS:n Purra teki -JÄTTI-VELAT

      * * PS:n Purra teki -JÄTTI-VELAT - ! ja jätti MaksuHuolet -Kansan Maksettavaksi -! *
      Maailman menoa
      50
      4613

    6. Suomessa on ollut suurtyöttömyyttä ennenkin, ja lääkäriin pääsee nykyäänkin

      Täällähän oli jonkun sekopään(vas.) juttu, että ennen ei ollut työttömyyttä ja lääkäriin pääsi. Siihen alkoi tietysti ko
      Maailman menoa
      92
      4299

    7. Kysymys: Kuinka moneen maahan neuvosto-venäjä on hyökännyt

      viimeisten 90-vuoden aikana? Ja lähinnä on siis kyse neuvosto-venäjän naapurimaista - kuten Suomesta. Lista on huomatta
      Maailman menoa
      123
      4133

    8. Ootko sä nainen suuttunut

      jostain? Harmi jos tullut väärinkäsityksiä.
      Ikävä
      164
      1871

    9. Nainen, sanotaan että totuus tekee kipeää

      Ehkä mutta se voi olla myös se kaikkein kamalin asia kohdata. Kuplassa on turvallista, kun tietää vähemmän on helpompi.
      Ikävä
      9
      1649

    10. Valtio lopettaa pienituloisten perheiden kylpylälomien tukemisen

      Pienituloiset suomalaiset ovat voineet vuosikymmenten ajan hakea tuettuja lomia terveydellisin, sosiaalisin ja taloudell
      Maailman menoa
      276
      1525
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt