Aktiivisen solun mukaisen sarakkeen tietyn rivin arvon näyttäminen toisessa solussa

Happi loppuu

Eli vaikka näin:
Käyttäjä napsuttelee arvoja taulukkoalueelle B3:J10. Kunkin sarakkeen 2. rivillä on pitkä kuvaus, jonka käyttäjän pitäisi nähdä ko. sarakkeeseen arvoja syöttäessään. Taulukko kuitenkin näyttäisi kömpelöltä jos sarakkeiden B-J leveys olisi niin leveä että 2. rivin arvon näyttämiselle olisi tilaa. Rivityksestäkin huolimatta.

Miten saan haluamaani soluun (vaikka A1) näkyville aktiivisen sarakkeen rivin 2 arvon? Onnistuuko ilman VBA-ohjelmointia?

6

505

Äänestä

    Vastaukset 6

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • rpo

      kaikkein parhaiten. Klikkaa kyseisen taulun nimeä taulukon alalaidassa hiiren oikealla näppäimellä ja valitse 'Näytä koodi'. Kopioi makro siihen makroikkunaan. Tämän jälkeen tämän taulun soluihin B3:J10 tietoa syötettäessä ao. sarakkeen rivillä 2 oleva tieto saadaan A1 -soluun.

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("B3:J10")) Is Nothing Then
      col = Target.Column
      On Error Resume Next
      If Target.Value = "" Then Exit Sub
      Range("A1") = Cells(2, col).Value
      Range("A1").Columns.AutoFit
      End If
      End Sub

      • Jo helpottaa!

        Hieno homma! Sen verran muutin, että vaihdoin ton eventin Worksheet_SelectionChange, koska A1:n arvo pitää vaihtua heti kun käyttäjä siirtyy seuraavaan sarakkeeseen, ei vasta arvon syötön jälkeen syystä että se A1:ssä näytettävä teksti on ohje käyttäjälle arvon syöttämiseen. Ja ton autofitin poistin tässä tarpeettomana.
        Mutta siis iso kiitos!

      • Vai saako?
        Jo helpottaa! kirjoitti:

        Hieno homma! Sen verran muutin, että vaihdoin ton eventin Worksheet_SelectionChange, koska A1:n arvo pitää vaihtua heti kun käyttäjä siirtyy seuraavaan sarakkeeseen, ei vasta arvon syötön jälkeen syystä että se A1:ssä näytettävä teksti on ohje käyttäjälle arvon syöttämiseen. Ja ton autofitin poistin tässä tarpeettomana.
        Mutta siis iso kiitos!

        Miten tuota kooda pitäisi muuttaa tai mihin se pitäis viedä, jos haluaisin tuon alkuperäisen kysymyksen toiminnallisuuden kaikille (identtisille) taulukoille samassa työkirjassa. Ei kai sitä koodia erikseen tarvi jokaiselle taulukolle kopsia?

      • rpo
        Vai saako? kirjoitti:

        Miten tuota kooda pitäisi muuttaa tai mihin se pitäis viedä, jos haluaisin tuon alkuperäisen kysymyksen toiminnallisuuden kaikille (identtisille) taulukoille samassa työkirjassa. Ei kai sitä koodia erikseen tarvi jokaiselle taulukolle kopsia?

        ThisWorkbook-moduuliin.

      • rpo
        rpo kirjoitti:

        ThisWorkbook-moduuliin.

        Varmin tapa on siirtää makro jokaisen taulun makromoduuliin.

    • kunde

      Jos ei tartte solusta lukea niin kayttokelpoisin tapa on kelpoisuusehdon sanomaruutu ja ruksi kun solu on valittuna kohtaan

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      64
      1341

    2. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      73
      1286

    3. Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas

      Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei
      Tv-sarjat
      8
      990

    4. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      125
      936

    5. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      109
      919

    6. Ikävä niitä hetkiä,kun katselin sua suoraan silmiin...

      😊
      Ikävä
      49
      828

    7. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      38
      793

    8. Rauha, sopiiko

      Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.
      Ikävä
      83
      761

    9. Kunnanhallitus

      Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.
      Puolanka
      42
      746

    10. Mikä estää ottamasta yhteyttä?

      🤨
      Ikävä
      77
      745

    11. En tahallaan sua välttele...

      Olis niin kiva nähdä jossain muualla kuin kaupassa!
      Ikävä
      53
      718

    12. Ei siitä pääse yli, eikä ympäri!

      Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle
      Ikävä
      66
      691

    13. Miesten (epä)viehättävyydestä kysymys

      Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev
      Sinkut
      141
      665

    14. Nyt kaatuu Kuisla

      Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee
      Seinäjoki
      30
      636

    15. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      55
      615

    16. Pystyisitkö liikkumaan

      Tai tapailemaan kaivattuasi julkisesti?
      Ikävä
      62
      587

    17. Olit hyödytön.

      Mulle hyödytön..
      Ikävä
      95
      541

    18. Sastamalassa epäillään tappoa, kaksi otettu kiinni

      Kuulemma Aarnontiellä tapahtunut Tietääkö joku enemmän?
      Sastamala
      23
      528

    19. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      60
      514

    20. Mitä meidän välillämme

      On käynyt näiden vuosien aikana?
      Ikävä
      55
      510
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt