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

5005

Äänestä

    Vastaukset 11

    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. Ny se loppuu ( Kuhmo)

      Yhtiö on myyty. Notta yyteet meleko äkkiä, notta. Pelastautukoon ken voi. Notta se on tuulista pian.
      Kuhmo
      54
      1516

    2. Parikymppinen hakkasi nelikymppisen kriittiseen tilaan

      Ja ihminen jäi junan alle lautiosaaressa...paljon on taas sattunut ja tapahtunut. Ketähän nämä uhrit mahtaa olla 🤔 htt
      Kemi
      21
      1156

    3. Harmi että välimme

      Menivät niin solmuun.
      Ikävä
      93
      987

    4. Ajatuksia

      Mitä ajatuksia hän herättää tänään?
      Ikävä
      79
      720

    5. Hei sinä rakas mies.

      Milloinkaan kohdataan? Toivottavasti pian....❤️
      Ikävä
      37
      698

    6. Kaivattusi tärkein ulkoinen tuntomerkki

      Onko jokin muu kuin yleinen kuten kaunis, laiha. hyväkroppainen jne.
      Ikävä
      21
      529

    7. Mille kirjaimelle

      toivotat hyvää yötä , kuka on mielessäsi kun menet nukkumaan?
      Ikävä
      27
      520

    8. Nainen, miten suhtautuisit

      Jos mies ehdottaisi tapaamista? Entä siihen, jos mies kertoisi tapaamisessa tunteistaan ja haluaisi seurustella?
      Ikävä
      54
      464

    9. Katse

      Miltä se tuntuu, kun hän katsoo sinua?
      Ikävä
      27
      456

    10. Voitko kirjoittaa mulle tänne mies?

      Jos täällä käyt? Ihan kaverimielessä, jos ei muuten? Haluaisin jutella sinun kanssa. Mulla on edelleen jotenkin niin h
      Ikävä
      30
      433
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt