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

496

Ää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. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      32
      11566

    2. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      61
      4151

    3. Unisex-vessat

      Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
      Tunteet
      147
      3449

    4. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      233
      2734

    5. Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?

      Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin
      Maailman menoa
      133
      2444

    6. Vastuun ottaminen omasta hyvinvoinnista

      Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh
      Henkinen hyvinvointi ja mielenterveys
      206
      1909

    7. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      7
      1796

    8. Sofia Virralle täydet 12 pistettä!

      Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.
      Maailman menoa
      356
      1303

    9. Kuvaile kaivattusi

      ulkonäkö. Asiattomatkin kommentit saa laittaa. -🏚️
      Ikävä
      74
      1153

    10. Miksi Hotelli Kainuuta dissataan?

      Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta
      Kuhmo
      20
      987
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt