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

492

Ää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. 6 kW saunan lämmityksestä kohta 10 euron lisämaksu / kerta

      Kokoomuslainen sähköyhtiöiden hallitsema Energiavirasto ehdottaa 5 kW:n rajaa, jonka ylittämisestä tulee lisämaksu. Tark
      Maailman menoa
      146
      5485

    2. Minja jytkyttää vas.liiton kannatusta ylöspäin

      Alkaa raavaat duunarimiehetkin palaamaan vasemmistoliiton kannattajiksi. Eduskunnassahan on vain kaksi työntekijöiden p
      Maailman menoa
      136
      3588

    3. "Mitä sä nainen tuot sitten pöytään" ?

      Jos mies provaidaa ja suojelee... Pitääkö miesten kysyä tuollaisia?
      Ikävä
      126
      3329

    4. Ekologinen kommunismi tulee voittamaan fossiilikapitalismin

      Kiina on mahtitekijä uusiutuvien energialähteiden kehityksessä, ja Trump osoitus viimeisestä öljyn perään itkemisestä, m
      Maailman menoa
      36
      3213

    5. Mies, kerro minulle vielä jotakin aivan uniikkia

      ja ainutlaatuista minkä vain me kaksi voisimme ymmärtää jos olemme sen kokeneet ja eläneet, jotta ihan varmasti tietäisi
      Tunteet
      43
      2704

    6. Oikeistopuolueiden kannatus vain 37,8 %, vasemmiston 43,0 %

      Keskustaan jää 17,4 prosenttia ja loput ovat sitten mitä ovat. Mutta selvästikin Suomen kansa on vasemmalle kallellaan.
      Maailman menoa
      43
      2287

    7. Tiedän ettei

      Meistä mitään tule. Toinen oli sinulle tärkeämpi
      Ikävä
      23
      2223

    8. Hyviäkin uutisia tulossa, hallinto-oikeus asettaa toimeenpanokieltoon

      Hyvinvointitalon työmaa pysähtyy. Rillankivi+energia ja vesi kytkyrahanpesu stoppaa. Tytäryhtiöiden hallitusjäsenet+kon
      Pyhäjärvi
      229
      2166

    9. prööt prööt nyt ottaa vihervassaria pattiin!

      Korvatkaa R kirjaimet L kirjaimilla ja sanokaa ääneen "Jari Kurri etsii pakoputkiautossaan jarruja".
      Maailman menoa
      11
      1904

    10. Gallup: Mikä on ollut mielestäsi paras tv-sarja ikinä?

      Gallup: Mikä on ollut mielestäsi paras tv-sarja ikinä? Onko se joku suomalainen viihdepläjäys, brittirikossarja, amerikk
      Tv-sarjat
      93
      1816
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt