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

471

Äänestä

    Vastaukset

    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. Hetken jo luulin, että en ikävöi sinua koko aikaa

      Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r
      Ikävä
      35
      6261

    2. JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!

      Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t
      Kiuruvesi
      19
      3556

    3. Outoa että Trump ekana sanoutui irti ilmastosopimuksesta

      kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.
      Maailman menoa
      518
      2763

    4. Nolointa ikinä miehelle

      On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai
      Ikävä
      59
      1928

    5. Eli jos toisen hiki haisee ns. omaan nenään siedettävältä

      Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳
      Ikävä
      32
      1921

    6. Katsoitko mua yhtään

      Kun nähtiin 🥺.
      Ikävä
      26
      1515

    7. Sattuma ja muutama väärinkäsitys

      vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul
      Ikävä
      31
      1421

    8. Ei ois kyllä kivaa

      Jos miestä ei kiinnostais ollenkaan minun seura. Aina huitelis ties missä tai olis omassa seurassaan. Kaikki muu ois kiv
      Ikävä
      7
      1251

    9. En tiedä miksi kerroin sinusta täällä

      Siksi kai, kun meidän juttu on niin alkuvaiheessa, etten voi vielä puhua siitä kenellekään.
      Tunteet
      17
      1249

    10. Oho! Queen of Fucking Everything villitsee - Ikean sininen luottotuote nappasi hervottoman idean!

      Ikea on ajan hermoilla! Aika hauska idea ja Queen of Fucking Everything -ajatus toimii hyvin tässäkin. Lue lisää: http
      Mainonta ja markkinointi
      11
      1083
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt